Wie die Ausgabe einer Liste, um die Datei in R

Davon ausgehen, dass eine Liste von Büchern mit Autoren , nach dem Lesen der Daten in eine Liste "LS" ich habe versucht, geben Sie es in eine Datei und die Ausgabe war

> write.table(LS, "output.txt")
Error in data.frame(..., title = NULL,  : 
  arguments imply differing number of rows: 1, 0

> write(LS, "output.txt")
Error in cat(list(...), file, sep, fill, labels, append) : 
  argument 1 (type 'list') cannot be handled by 'cat'

War ich in der Lage zu verwenden, dput, aber ich möchte die Daten formatiert werden (keine Redundanz von wiederholten Schlüsselwörter, die alle über die Datei). Irgendwelche Vorschläge?
Dank

UPDATE
dput( Kopf (LS, 2))

list(structure(list( title = "Book 1", 
authors = list(structure(c("Pooja", "Garg"),
 .Names = c("forename","surname")), 
structure(c("Renu", "Rastogi"), 
.Names = c("forename","surname")))),
 .Names = c("title", "authors")), 

structure(list( title = "Book 2", 
 authors = list(structure(c("Barry", "Smit"), .Names = c("forename", 
    "surname")), structure(c("Tom", "Johnston"), .Names = c("forename", 
    "surname")))), .Names = c("title", "authors")))
Ich denke, Sie müssen erklären Sie, warum Sie glaube nicht, dass die Ausgabe von dput ist akzeptabel. Was ist Ihre erwartete/gewünschte Ausgabe?
In dput den Stichworten "Buch" und "Autoren" werden wiederholt, die alle über die Datei , während ich möchte, dass Sie in der Kopfzeile nur als csv-Dateien.
die Platzierung der einige Beispiel-Daten helfen, (wie etwa in dput(head(LS,2)) in der Frage, so können wir sehen, die Struktur der Daten
Ich füge der obigen Ausgabe
Warum sind Sie in eine Datei schreiben? Wenn es nur für die R-um Sie später zu Lesen, verwenden Sie save statt.

InformationsquelleAutor Thomas Lee | 2012-10-03

  1. 9

    Können Sie zuerst konvertieren Sie Ihre Liste, um einen Daten-frame:

    LS.df = as.data.frame(do.call(rbind, LS))

    Oder

    LS.df = as.data.frame(do.call(cbind, LS))

    Dann können Sie einfach speichern Sie LS.df mit schreiben.csv oder schreiben.Tabelle

    InformationsquelleAutor Ali

  2. 8

    Mithilfe der Daten, die Sie zur Verfügung gestellt und rjson

    library(rjson)

# write them to a file
cat(toJSON(LS), file = 'LS.json')


LS2 <- fromJSON('LS.json')


# some rearranging to get authors back to being a data.frame

LS3 <- lapply(LS2, function(x) { x[['authors']] <-  lapply(x[['authors']], unlist); x})

identical(LS, LS3)

## TRUE

    Die Datei sieht wie

    [{"title":"Book 1","authors":[{"forename":"Pooja","surname":"Garg"},{"forename":"Renu","surname":"Rastogi"}]},{"title":"Book 2","authors":[{"forename":"Barry","surname":"Smit"},{"forename":"Tom","surname":"Johnston"}]}]

    wenn Sie möchten, dass jedes Buch in einer separaten Zeile können Sie dann

    .json <-  lapply(LS, toJSON)
# add new lines and braces

.json2 <- paste0('[\n', paste0(.json, collapse = ', \n'), '\n]')
 cat(.json)
[
{"title":"Book 1","authors":[{"forename":"Pooja","surname":"Garg"},{"forename":"Renu","surname":"Rastogi"}]}, 
{"title":"Book 2","authors":[{"forename":"Barry","surname":"Smit"},{"forename":"Tom","surname":"Johnston"}]}
]
    Ich hinzufügen, dass die Struktur oben
    Und jetzt habe ich bearbeitet, die Reaktion auf die Arbeit mit dieser Struktur
    Vielen Dank für die Lösung, sondern die Daten-Rahmen war leichter für mich

    InformationsquelleAutor mnel

  3. 2

    Ich die RJSONIO Paket.

    library(RJSONIO)

exportJSON <- toJSON(LS)
write(exportJSON,"LS.json")

    InformationsquelleAutor Raimi bin Karim

  4. 0

    Ist es besser, um format()

    LS.str <- format(LS)

    InformationsquelleAutor Shahryar

Schreibe einen Kommentar