tests/testthat/test-plot_target_height.R

fn <- system.file("extdata", "bds_v1.0", "terneuzen", "T_3254.json", package = "jamesdemodata")
ind <- bdsreader::read_bds(fn)

g <- process_chart(ind, chartcode = "NJCH")
grid::grid.draw(g)

test_that("Adds target height to NJCH", {
  expect_silent(process_chart(ind, chartcode = "NJCH"))
})
growthcharts/chartplotter documentation built on Nov. 29, 2024, 1:08 p.m.