Escribir líneas de texto en un archivo en R

En realidad usted puede hacerlo con sink():

sink("outfile.txt")
cat("hello")
cat("\n")
cat("world")
sink()

Por lo tanto hacer:

file.show("outfile.txt")
# hello
# world

Usaría el comando cat() como en este ejemplo:

> cat("Hello",file="outfile.txt",sep="\n")
> cat("World",file="outfile.txt",append=TRUE)

Luego puede ver los resultados de con R con

> file.show("outfile.txt")
hello
world

¿Qué hay de un simple writeLines()?

txt <- "Hallo\nWorld"
writeLines(txt, "outfile.txt")

O

txt <- c("Hallo", "World")
writeLines(txt, "outfile.txt")

1.Usando argumento de archivo en cat.

 cat("Hello World", file="filename")

2.Use la función sink para redirigir toda la salida de print y cat a file.

 sink("filename")                     # Begin writing output to file
 print("Hello World")
 sink()                               # Resume writing output to console

NOTA: La función print no puede redirigir su salida, pero la función sink sí forzar toda la salida a un archivo.

3.Hacer conexión a un archivo y escribir.

con <- file("filename", "w")
cat("Hello World", file=con)
close(con)

Usted podría hacer eso en una sola declaración

cat("hello","world",file="output.txt",sep="\n",append=TRUE)

Sugiero:

writeLines(c("Hello","World"), "output.txt")

Es más corto y más directo que la respuesta aceptada actual. No es necesario hacer:

fileConn<-file("output.txt")
# writeLines command using fileConn connection
close(fileConn)

Porque la documentación para writeLines() dice:

Si el con es una cadena de caracteres, la función llama a file para obtener una conexión de archivo que se abre durante la duración de la función llamada.

# default settings for writeLines(): sep = "\n", useBytes = FALSE
# so: sep = "" would join all together e.g.

Para completar las posibilidades, puedes usar writeLines() con sink(), si quieres:

> sink("tempsink", type="output")
> writeLines("Hello\nWorld")
> sink()
> file.show("tempsink", delete.file=TRUE)
Hello
World

Para mí, siempre parece más intuitivo usar print(), pero si lo haces la salida no será lo que quieres:

...
> print("Hello\nWorld")
...
[1] "Hello\nWorld"

Basado en la mejor respuesta:

file <- file("test.txt")
writeLines(yourObject, file)
close(file)

Tenga en cuenta que el yourObject necesita estar en un formato de cadena; use as.character() para convertir si lo necesita.

Pero esto es demasiado escribir para cada intento de guardar. Vamos a crear un fragmento en RStudio.

En Opciones globales > > Código > > Fragmento, escriba esto:

snippet wfile
    file <- file(${1:filename})
    writeLines(${2:yourObject}, file)
    close(file)

Luego, durante la codificación, escriba wfile y presione la pestaña .

La opción del sistema feo

ptf <- function (txtToPrint,outFile){system(paste(paste(paste("echo '",cat(txtToPrint),sep = "",collapse = NULL),"'>",sep = "",collapse = NULL),outFile))}
#Prints txtToPrint to outFile in cwd. #!/bin/bash echo txtToPrint > outFile