O código original retorna: "HMP_Dataset"
movimento = unlist(strsplit(arquivo, "/")[1][1])[1]
Já o código alterado retorna: "Brush_teeth"
movimento = unlist(strsplit(arquivo, "/")[1][1])[2]
Portanto, acredito que o código fonte original deva ser alterado.