Skip to content

Writing text files out of a dataset

4 messages · Luca Meyer, Eric Berger, Rui Barradas +1 more

Original
Luca Meyer
# 
Hello,

I am trying to run the following syntax for all cases within the dataframe
"data"

d1 <- data[1,c("material")]
fileConn<-file("TESTI/d1.txt")
writeLines(d1, fileConn)
close(fileConn)

I am trying to use the for function:

 for (i in 1:nrow(data)){
  d[i] <- data[i,c("material")]
  fileConn<-file("TESTI/d[i].txt")
  writeLines(d[i], fileConn)
  close(fileConn)
}

but I get the error:

Object "d" not found

Any suggestion on how I can solve the above?

Thanks,

Luca
Eric Berger
# 
You have an error with the filename in the loop.
Try replacing the relevant line wtih
fileConn<-file(sprintf("TESTI/%d.txt",i))

HTH,
Eric
On Fri, Dec 29, 2017 at 4:31 PM, Luca Meyer <lucam1968 at gmail.com> wrote:

            

      
      
      
    

        

      
      
    

        

  
  


  


      

    

    

      
      

        


  

        

      Rui Barradas
    

    

      
      #
    

  


  

      
Hello,

You have to create the vector 'd' outside the loop before using it.

d <- numeric(nrow(data))

Only then comes the loop.

Hope this helps,

Rui Barradas

        
On 12/29/2017 2:31 PM, Luca Meyer wrote:

            

      
      
      
    

        

      
      
    

  
  


  


      

    

    

      
      

        


  

        

      Jeff Newmiller
    

    

      
      #
    

  


  

      
This presumes that 'data[["material"]]' is numeric.

It is unnecessary to put the output data into a separate vector d (it is already in a vector that is part of the 'data' data frame).  I would just overwrite `d` (or `d1`) each time through the loop:

 for (i in seq_along( data[["material"]] ) ){
    d <- data[i,c("material")]
    fileConn <- file(paste0("TESTI/d", i, ".txt"))
    writeLines(d, fileConn)
    close(fileConn)
}

or

for ( i in seq_along( data[["material"]] ) ){
   writeLines( data[i,c("material")], file=paste0("TESTI/d", i, ".txt" ) )
}