mr.T

Asked: 2023-12-05 02:03:18 +0800 CST2023-12-05 02:03:18 +0800 CST 2023-12-05 02:03:18 +0800 CST

escrever, ler linhas como código em um arquivo csv

Eu tenho um quadro de data com uma coluna contendo linhas de código.

f1 <- 'paste0("f","q","D",collapse = "")'
f2 <- "q <- rep(NA,10) 
       for(i in 1:10){
       q[i] <- 5+i
       } 
       q"

df <- data.frame(code=c(f1,f2), n=1:2 , lg=c(TRUE,FALSE))

o código pode ser executado

eval(str2expression(df$code[1]))
eval(str2expression(df$code[2]))

como salvá-lo corretamente em um csve depois ler este quadro para que este código possa ser executado novamente

pth <- "C:\\Users\\....\\Desktop\\f.csv"

# how to correctly save
write.csv(m, pth, row.names = F, quote = F)

# how to correctly read
df2 <- read.csv(pth)

# so the code can be run again
eval(str2expression(df2$code[1]))
eval(str2expression(df2$code[2]))

1 respostas

Voted

Best Answer

MrFlick
2023-12-05T02:11:39+08:002023-12-05T02:11:39+08:00
Você precisa usar aspas ao salvar o arquivo.

write.csv(df, pth, row.names = F)

Então deve ser um arquivo CSV válido que você possa ler mais tarde. Caso contrário, você estará criando um arquivo CSV inválido (você tem vírgulas em seu código, portanto não é um separador inequívoco).
3