Organizar projeto opcional

Então, gostaria de saber o que pode ser alterado no projeto opcional pra acessá-lo de fora da pasta. Setar o working directory como a pasta onde os dados estão me parece uma má prática, então resolvi subir uma pasta e trabalhar acessando a pasta.

df_medidas <- data.frame()
arqs = list.files(path = ".//HMP_Dataset", pattern = ".txt$", recursive = TRUE, full.names = TRUE)

for (a in 1:length(arqs))
{
  arquivo = arqs[a]
  # buscamos arquivos em subdiretórios
  if (!(length(i <- grep('/', arquivo))) == 0)
  {
    movimento = unlist(strsplit(arquivo, "/")[1][1])[1]
    genero = substr(unlist(strsplit(arquivo, "-"))[9],1,1)
    data <- read.table(arquivo)
    data$arquivo <- arquivo
    data$movimento <- movimento
    data$genereo <- genero
    df_medidas <- rbind(df_medidas,data)
  }
}

colnames(df_medidas) <- c("X","Y", "Z", "Arquivo", "Movimento", "Genero")

Troquei os caminhos em algumas funcões e coloquei o "full.names = TRUE" pra poder sair de um erro e ele até roda o for e depois dá um erro

Error in scan(file = file, what = what, sep = sep, quote = quote, dec = dec,  : 
  line 1 did not have 3 elements