Conversion to JSON string does not work for format 2.0 about jamesclient

[stefvanbuuren]

Direct call of james::draw_chart() yields the following:

library(james)
#> Loading required package: svglite

fn1 <- system.file("extdata", "bds_v1.0", "smocc", "Laura_S.json", package = "jamesdemodata")
fn2 <- system.file("extdata", "bds_v2.0", "smocc", "Laura_S.json", package = "jamesdemodata")

js1a <- readLines(fn1)
js1b <- jsonlite::toJSON(jsonlite::fromJSON(fn1), auto_unbox = TRUE)
identical(js1a, js1b[1])
#> [1] TRUE

resp1a <- draw_chart(js1a)
#> chartcode:  NMBH
resp1b <- draw_chart(js1b)
#> chartcode:  NMBH

js2a <- readLines(fn2)
js2b <- jsonlite::toJSON(jsonlite::fromJSON(fn2), auto_unbox = TRUE)
identical(js2a, js2b[1])
#> [1] FALSE

resp2a <- draw_chart(js2a)

#> chartcode:  NMBH
resp2b <- draw_chart(js2b)
#> Warning in `[<-.data.frame`(`*tmp*`, i, "bdsnummer", value = list(ElementNummer
#> = 82L, : provided 3 variables to replace 1 variables
#> BDS  82 (Zwangerschapsduur): Supplied: 110, Supplied type: list
#> BDS  63 (Geboortedatum ouder/verzorger) Onjuist format
#> Error in pp[pp$ElementNummer == 62L, "Waarde"]: incorrect number of dimensions

^{Created on 2021-11-25 by the reprex package (v2.0.1)}

[stefvanbuuren]

This is a problem in bdsreader::read_bds()so closing here.