Discussion:
[R-es] SOBRESCRIBIR EN LA PRIMERA LÍNEA DE TEXTOS
Carlos Córcoles
2018-02-19 15:37:06 UTC
Permalink
Hola

Escribo este mensaje porque llevo unas horas y no consigo solucionar un
obstáculo.

No consigo añadir unos caracteres en la primera línea de un archivo ".json"
desde R.

Utilizando el siguiente código

*write(line,file="map_wgs91.js",append=TRUE)*
*cat("var statesData =", file="map_wgs93.js", append=TRUE, sep = "\a")*

he conseguido que la palabra aparezca al final del archivo, pero eso no es
lo que quiero.

No se si me podrías dar desde esta lista alguna sugerencia...

Gracias

[[alternative HTML version deleted]]
Carlos Ortega
2018-02-19 16:15:40 UTC
Permalink
Hola,

¿Qué sistema operativo usas?.

- Si usas Linux/MacOS puedes llamar al SO desde R y decirle que
sustituya un elemento de la primera línea de tu fichero con lo que tú
quieres. Lo puedes hacer con varias utilidades del SO (sed, awk, o incluso
con echo).
- Si usas Windows lo que puedes hacer es lo siguiente, leer el fichero
json con "readLines()", el resultado lo vas a guardar en un data.frame al
que le puedes añadir una primera línea con lo que tú quieras y luego este
nuevo data.frame salvarlo con "write()"

Es importante a la hora de pedir ayuda indicar este detalle del SO y además
incluir algún ejemplo/dato con el que se pueda reproducir el problema y dar
una solución que se pueda ver que funciona.

Gracias,
Carlos Ortega
www.qualityexcellence.es
Post by Carlos Córcoles
Hola
Escribo este mensaje porque llevo unas horas y no consigo solucionar un
obstáculo.
No consigo añadir unos caracteres en la primera línea de un archivo ".json"
desde R.
Utilizando el siguiente código
*write(line,file="map_wgs91.js",append=TRUE)*
*cat("var statesData =", file="map_wgs93.js", append=TRUE, sep = "\a")*
he conseguido que la palabra aparezca al final del archivo, pero eso no es
lo que quiero.
No se si me podrías dar desde esta lista alguna sugerencia...
Gracias
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
https://stat.ethz.ch/mailman/listinfo/r-help-es
--
Saludos,
Carlos Ortega
www.qualityexcellence.es

[[alternative HTML version deleted]]
Javier Marcuzzi
2018-02-19 19:34:24 UTC
Permalink
Estimado Carlos Córcoles

No comprendo si quieres colocar una línea al inicio de un archivo json, o
dentro del archivo de texto hay json y en su estructura colocar una línea
nueva.

Lo que comenta Carlos Ortega está bien, puede ser que RJSON o JSONLITE le
faciliten algo el trabajo, este depende mucho del sistema operativo y de la
estructura JSON o archivo con un JSON interno.

Su código tiene la palabra append=TRUE, pienso que puede ser más fácil
escribir un archivo nuevo, ante un error no borra ningún dato.

Javier Rubén Marcuzzi
Post by Carlos Córcoles
Hola
Escribo este mensaje porque llevo unas horas y no consigo solucionar un
obstáculo.
No consigo añadir unos caracteres en la primera línea de un archivo ".json"
desde R.
Utilizando el siguiente código
*write(line,file="map_wgs91.js",append=TRUE)*
*cat("var statesData =", file="map_wgs93.js", append=TRUE, sep = "\a")*
he conseguido que la palabra aparezca al final del archivo, pero eso no es
lo que quiero.
No se si me podrías dar desde esta lista alguna sugerencia...
Gracias
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
https://stat.ethz.ch/mailman/listinfo/r-help-es
[[alternative HTML version deleted]]
Freddy Omar López Quintero
2018-02-19 20:14:24 UTC
Permalink
Hola.
Post by Carlos Córcoles
No se si me podrías dar desde esta lista alguna sugerencia...
Tomando un subconjunto del clásico conjunto de datos mtcars y
convirtiéndolo a json para ejemplificar, puedes hacer lo siguiente:

library(jsonlite)
line<-toJSON(head(mtcars), pretty=T)write(line,file="map_wgs91.js")
line<-toJSON(head(mtcars), pretty=T)write(line,
file="map_wgs91.js")fConn <- file('map_wgs91.js', 'r+')Lines <-
readLines(fConn)writeLines(c("var statesData =\n", Lines), con =
fConn)close(fConn)

que lo tomé, básicamente, de aquí:

http://r.789695.n4.nabble.com/Appending-strings-at-the-beginning-of-a-t
ext-file-td901370.html

Ojalá sea de utilidad.
--
«...homines autem hominum causa esse generatos...»

Cicero
[[alternative HTML version deleted]]
Loading...