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.