How can I read an *.rtf file?-CodePudding

I have a large *.rtf file with meteorological data. When I open it using LibreOffice I get the data in the following format:

[ {
  "fecha" : "2022-01-01",
  "indicativo" : "0016A",
  "nombre" : "REUS AEROPUERTO",
  "provincia" : "TARRAGONA",
  "altitud" : "71",
  "tmed" : "12,8",
  "prec" : "0,0",
  "tmin" : "4,6",
  "horatmin" : "07:33",
  "tmax" : "21,0",
  "horatmax" : "14:49",
  "dir" : "99",
  "velmedia" : "1,7",
  "racha" : "3,6",
  "horaracha" : "13:01",
  "sol" : "8,7",
  "presMax" : "1019,0",
  "horaPresMax" : "00",
  "presMin" : "1016,3",
  "horaPresMin" : "14"
}, {
  "fecha" : "2022-01-02",
  "indicativo" : "0016A",
  "nombre" : "REUS AEROPUERTO",
  "provincia" : "TARRAGONA",
  "altitud" : "71",
  "tmed" : "11,0",
  "prec" : "0,0",
  "tmin" : "4,2",
  "horatmin" : "01:13",
  "tmax" : "17,7",
  "horatmax" : "12:09",
  "dir" : "17",
  "velmedia" : "2,2",
  "racha" : "10,8",
  "horaracha" : "11:51",
  "sol" : "7,6",
  "presMax" : "1019,5",
  "horaPresMax" : "Varias",
  "presMin" : "1017,1",
  "horaPresMin" : "14"
}, {
  "fecha" : "2022-01-03",
  "indicativo" : "0016A",
  "nombre" : "REUS AEROPUERTO",
  "provincia" : "TARRAGONA",
  "altitud" : "71",
  "tmed" : "10,4",
  "prec" : "0,0",
  "tmin" : "5,7",
  "horatmin" : "23:54",
  "tmax" : "15,0",
  "horatmax" : "13:13",
  "dir" : "35",
  "velmedia" : "1,4",
  "racha" : "5,8",
  "horaracha" : "19:05",
  "sol" : "4,8",
  "presMax" : "1019,0",
  "horaPresMax" : "00",
  "presMin" : "1009,2",
  "horaPresMin" : "24"
} ]

All I need is to transform this data to columns (variables by date) using R. I tried with striprtf:::read_rtf().

Any help would be appreciated. Thanks

Lee

CodePudding user response：

This appears to be JSON, so we can use jsonlite. Taking that and storing it in an object,

chr <- '[ {
  "fecha" : "2022-01-01",
  "indicativo" : "0016A",
  "nombre" : "REUS AEROPUERTO",
  "provincia" : "TARRAGONA",
  "altitud" : "71",
  "tmed" : "12,8",
  "prec" : "0,0",
  "tmin" : "4,6",
  "horatmin" : "07:33",
  "tmax" : "21,0",
  "horatmax" : "14:49",
  "dir" : "99",
  "velmedia" : "1,7",
  "racha" : "3,6",
  "horaracha" : "13:01",
  "sol" : "8,7",
  "presMax" : "1019,0",
  "horaPresMax" : "00",
  "presMin" : "1016,3",
  "horaPresMin" : "14"
}, {
  "fecha" : "2022-01-02",
  "indicativo" : "0016A",
  "nombre" : "REUS AEROPUERTO",
  "provincia" : "TARRAGONA",
  "altitud" : "71",
  "tmed" : "11,0",
  "prec" : "0,0",
  "tmin" : "4,2",
  "horatmin" : "01:13",
  "tmax" : "17,7",
  "horatmax" : "12:09",
  "dir" : "17",
  "velmedia" : "2,2",
  "racha" : "10,8",
  "horaracha" : "11:51",
  "sol" : "7,6",
  "presMax" : "1019,5",
  "horaPresMax" : "Varias",
  "presMin" : "1017,1",
  "horaPresMin" : "14"
}, {
  "fecha" : "2022-01-03",
  "indicativo" : "0016A",
  "nombre" : "REUS AEROPUERTO",
  "provincia" : "TARRAGONA",
  "altitud" : "71",
  "tmed" : "10,4",
  "prec" : "0,0",
  "tmin" : "5,7",
  "horatmin" : "23:54",
  "tmax" : "15,0",
  "horatmax" : "13:13",
  "dir" : "35",
  "velmedia" : "1,4",
  "racha" : "5,8",
  "horaracha" : "19:05",
  "sol" : "4,8",
  "presMax" : "1019,0",
  "horaPresMax" : "00",
  "presMin" : "1009,2",
  "horaPresMin" : "24"
} ]
'

We can do

jsonlite::fromJSON(chr)
#        fecha indicativo          nombre provincia altitud tmed prec tmin horatmin tmax horatmax dir velmedia racha horaracha sol presMax horaPresMax presMin horaPresMin
# 1 2022-01-01      0016A REUS AEROPUERTO TARRAGONA      71 12,8  0,0  4,6    07:33 21,0    14:49  99      1,7   3,6     13:01 8,7  1019,0          00  1016,3          14
# 2 2022-01-02      0016A REUS AEROPUERTO TARRAGONA      71 11,0  0,0  4,2    01:13 17,7    12:09  17      2,2  10,8     11:51 7,6  1019,5      Varias  1017,1          14
# 3 2022-01-03      0016A REUS AEROPUERTO TARRAGONA      71 10,4  0,0  5,7    23:54 15,0    13:13  35      1,4   5,8     19:05 4,8  1019,0          00  1009,2          24

It appears to have a comma-based locale and a date, we can fix some of that with:

out <- jsonlite::fromJSON(chr)
out[] <- lapply(out, type.convert, as.is = TRUE, dec = ",")
out$fecha <- as.Date(out$fecha)

out
#        fecha indicativo          nombre provincia altitud tmed prec tmin horatmin tmax horatmax dir velmedia racha horaracha sol presMax horaPresMax presMin horaPresMin
# 1 2022-01-01      0016A REUS AEROPUERTO TARRAGONA      71 12.8    0  4.6    07:33 21.0    14:49  99      1.7   3.6     13:01 8.7  1019.0          00  1016.3          14
# 2 2022-01-02      0016A REUS AEROPUERTO TARRAGONA      71 11.0    0  4.2    01:13 17.7    12:09  17      2.2  10.8     11:51 7.6  1019.5      Varias  1017.1          14
# 3 2022-01-03      0016A REUS AEROPUERTO TARRAGONA      71 10.4    0  5.7    23:54 15.0    13:13  35      1.4   5.8     19:05 4.8  1019.0          00  1009.2          24

str(out)
# 'data.frame': 3 obs. of  20 variables:
#  $ fecha      : Date, format: "2022-01-01" "2022-01-02" "2022-01-03"
#  $ indicativo : chr  "0016A" "0016A" "0016A"
#  $ nombre     : chr  "REUS AEROPUERTO" "REUS AEROPUERTO" "REUS AEROPUERTO"
#  $ provincia  : chr  "TARRAGONA" "TARRAGONA" "TARRAGONA"
#  $ altitud    : int  71 71 71
#  $ tmed       : num  12.8 11 10.4
#  $ prec       : num  0 0 0
#  $ tmin       : num  4.6 4.2 5.7
#  $ horatmin   : chr  "07:33" "01:13" "23:54"
#  $ tmax       : num  21 17.7 15
#  $ horatmax   : chr  "14:49" "12:09" "13:13"
#  $ dir        : int  99 17 35
#  $ velmedia   : num  1.7 2.2 1.4
#  $ racha      : num  3.6 10.8 5.8
#  $ horaracha  : chr  "13:01" "11:51" "19:05"
#  $ sol        : num  8.7 7.6 4.8
#  $ presMax    : num  1019 1020 1019
#  $ horaPresMax: chr  "00" "Varias" "00"
#  $ presMin    : num  1016 1017 1009
#  $ horaPresMin: int  14 14 24