growthcharts / jamesclient Goto Github PK

library(jamesclient)

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

# works
resp1a <- request_chart(js1a)
resp1b <- request_chart(js1b)

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

# works
resp2a <- request_chart(js2a)
# fails
resp2b <- request_chart(js2b)
#> Bad Request (HTTP 400).No encoding supplied: defaulting to UTF-8.