Saving multiple files to a specified directory

[Andrzej]

Hi ,
I need to save multiple (just have been created) files to a specified directory:

library(plyr)
dat2 <- data.frame(ID = c(1:10))
d_ply(dat2, "ID", function(x)
     write.table(x, file = paste(x$ID[1], "txt", sep = "."), sep = "\t", row.names = FALSE)) %>%
  file.path("Q:/TXT2/")

This file.path() does not work here, I don't know where should I place file = "some path" command ?

Thank you in advance for your help.

[nirgrahamuk]

@Andrzej

write.table(x, file = paste(x$ID[1],

write.table file = takes your path

[Andrzej]

I am not sure if I understand your reply Nir correctly.
I know that without specifying a path write.table() will save all these files in my currect working directory,
but I want to save them into another disk and in another directory.
I have come up with this solution:

dat2 = c(1:10)

mypath <- "Q:/TXT2/"

for (i in 1:length(dat2)) {
  write.table(dat2[i],
    file = paste0(mypath, paste(dat2[i], "txt", sep = ".")))
}

which works very well, but I was wondering if there is any tidyverse alternative ?

[nirgrahamuk]

its best to use file.path rather than a second paste to glue mypath to the rest , as its more cross platform compatible.
You can optionally use tidyverse purrr to do the iteration

dat2 <- c(1:10)

mypath <- "Q:/TXT2/"

purrr::walk(
  seq_along(dat2),
  ~ write.table(dat2[.],
    file = file.path(
      mypath,
      paste0(dat2[.], ".txt")
    )
  )
)

[Andrzej]

Thank you very much indeed Nir,
that was very helpful,
best regards,
Andrzej