Konvertierung von JSON-Datei in R/Text-Datei ohne Ausführung

Question

RStudio ist während der Arbeit abgestürzt und die ungespeicherten Dateien konnten nicht in die Sitzung geladen werden. Die Dateien sind jedoch im JSON-Format verfügbar. Ein Beispiel,

{ 
    "contents" : "library(hgu133a.db)\nx <- hgu133aENSEMBL\nx\nlength(x)\ncount.mappedkeys(x)\nx[1:3]\nlinks(x[1:3])\n\n## Keep only the mapped keys\nkeys(x) <- mappedkeys(x)\nlength(x)\ncount.mappedkeys(x)\nx # now it is a submap\n\n## The above subsetting can also be achieved with\nx <- hgu133aENSEMBL[mappedkeys(hgu133aENSEMBL)]\n\n", 
    "created" : 1463131195093.000, 
    "dirty" : true, 
    "encoding" : "", 
    "folds" : "", 
    "hash" : "1482602869", 
    "id" : "737C178C", 
    "lastKnownWriteTime" : 0, 
    "path" : null, 
    "project_path" : null, 
    "properties" : { 
     "tempName" : "Untitled3" 
    }, 
    "source_on_save" : false, 
    "type" : "r_source" 
} 

JSON-Format-Dateien gelesen werden können, die jsonlite::fromJSON und die benötigten Informationen mit Hilfe wurde in Inhalt Variable gespeichert. Beim Versuch, die Befehle mit der readLines() or scan() zu lesen, wurden die Befehle ausgeführt, anstatt sie in eine einfache Datei zu konvertieren. Wie konvertiert man das in eine r Datei?

Ausgabe (?): Befehl in einer r Skript/Textdatei.

library(hgu133a.db) 
x <- hgu133aENSEMBL 
x 
length(x) 
count.mappedkeys(x) 
x[1:3] 
links(x[1:3]) 

## Keep only the mapped keys 
keys(x) <- mappedkeys(x) 
length(x) 
count.mappedkeys(x) 
x 
# now it is a submap 

## The above subsetting can also be achieved with 
x <- hgu133aENSEMBL[mappedkeys(hgu133aENSEMBL)] 

Answer 1

Wenn jemand für Antwort auf diese Frage suchen, der Befehl von @ vorgeschlagen Kevin gearbeitet.

writeLines(json$contents, con = "/path/to/file.R") 

Ausgang:

library(hgu133a.db) 
x <- hgu133aENSEMBL 
x 
length(x) 
count.mappedkeys(x) 
x[1:3] 
links(x[1:3]) 

## Keep only the mapped keys 
keys(x) <- mappedkeys(x) 
length(x) 
count.mappedkeys(x) 
x # now it is a submap 

## The above subsetting can also be achieved with 
x <- hgu133aENSEMBL[mappedkeys(hgu133aENSEMBL)]