Zapis wierszy tekstu do pliku w R

Właściwie ty możesz zrobić to za pomocą sink():

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

Stąd zrobić:

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

Użyłbym komendy cat() jak w tym przykładzie:

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

Możesz następnie wyświetlić wyniki za pomocą r z

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

A co z prostym writeLines()?

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

Lub

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

1.Użycie argumentu file W cat.

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

2.Użyj funkcji sink, Aby przekierować wszystkie dane wyjściowe z print i cat do pliku.

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

Uwaga : funkcja print nie może przekierować swojego wyjścia, ale funkcja sink może Wymuś wszystkie dane wyjściowe do pliku.

3.Wykonywanie połączenia z plikiem i zapisanie .

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

Możesz to zrobić w jednym oświadczeniu

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

Proponuję:

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

Jest krótsza i bardziej bezpośrednia niż obecna akceptowana odpowiedź. Nie jest konieczne:

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

Ponieważ dokumentacja dla writeLines() mówi:

Jeśli con jest ciągiem znaków, funkcja wywołuje file, aby uzyskać połączenie plików, które jest otwierane na czas trwania funkcji sprawdzam.

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

Aby dopełnić możliwości, możesz użyć writeLines() z sink(), Jeśli chcesz:

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

Dla mnie to zawsze wydaje się najbardziej intuicyjne w użyciu print(), ale jeśli to zrobisz, wyjście nie będzie tym, czego chcesz:

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

Na podstawie najlepsza odpowiedź :

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

Zauważ, że yourObject musi być w formacie string; użyj as.character() do konwersji, jeśli potrzebujesz.

Ale to za dużo typowania dla każdej próby zapisu. Stwórzmy fragment w RStudio.

W opcjach globalnych > > Kod > > urywek wpisz:

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

Następnie, podczas kodowania, Wpisz wfile i naciśnij Tab.

The ugly system option

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