Fix face issue in docs for travis. replaced with wand method

tests/testthat/test_igbirth.R:30:1: style: lines should not be more than 80 characters.

test_that("vectorized intergrowth birth standard centile to value conversion works", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_igbirth.R:99:1: style: lines should not be more than 80 characters.

test_that("vectorized intergrowth early birth z-score to value conversion works", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_igbirth.R:109:1: style: lines should not be more than 80 characters.

test_that("vectorized intergrowth early birth value to z-score conversion works", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_igfet.R:27:1: style: lines should not be more than 80 characters.

    expect_true(igfet_value2centile(cp$ga * 7, cp$p3 / 10, var = cp$var) / 100 - 0.03 < 0.001)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_igfet.R:28:1: style: lines should not be more than 80 characters.

    expect_true(igfet_value2centile(cp$ga * 7, cp$p50 / 10, var = cp$var) / 100 - 0.5 < 0.001)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_igfet.R:29:1: style: lines should not be more than 80 characters.

    expect_true(igfet_value2centile(cp$ga * 7, cp$p97 / 10, var = cp$var) / 100 - 0.97 < 0.001)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_igfet.R:35:1: style: lines should not be more than 80 characters.

  expect_true(all(igfet_bpdcm2centile(cp2$ga * 7, cp2$p3 / 10) / 100 - 0.03 < 0.001))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:28:5: style: Commented code should be removed.

#   unlink(file.path("test_cache", paste(name, ".Rda", sep = "")))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:101:7: style: Commented code should be removed.

  #   print_model_json(p)
      ^~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:212:1: style: lines should not be more than 80 characters.

  expect_equivalent(c(cpp2_hbgd$time_vars, cpp2_hbgd$timevarying_vars), colnames(time_dt))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:214:1: style: lines should not be more than 80 characters.

  expect_data_frame(cpp2_hbgd$var_summ, c("variable", "label", "type", "vtype", "n_unique"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:244:5: style: Commented code should be removed.

  # print(str_c(standard_name, "_", type))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:251:1: style: lines should not be more than 80 characters.

      maybe_random_centile <- fn_to_centile(time, centile_to_fn(time, random_centile))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:259:1: style: lines should not be more than 80 characters.

      maybe_random_zvalue <- fn_to_zscore(time, zscore_to_fn(time, random_zvalue))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:315:1: style: lines should not be more than 80 characters.

      c(fn_to_centile_name, fn_to_zscore_name, centile_to_fn_name, zscore_to_fn_name),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:605:1: style: lines should not be more than 80 characters.

      paste("Object obtained from get_fit\\(\\) using method '", meth, "'", sep = "")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:617:1: style: lines should not be more than 80 characters.

  expect_fit_plot(plot(fit, x_range = c(0, 755), hover = c("agedays", "htcm"), center = TRUE))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:694:1: style: lines should not be more than 80 characters.

  test_vdb_conn <- trelliscope::vdbConn(name = "ghap_vdb", path = vdb_path, autoYes = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_zz_ghpages.R:704:5: style: Commented code should be removed.

  # trscope_trajectories(smc_tr)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~

HBGDki / hbgd

Fix face issue in docs for travis. replaced with wand method #12

Current coverage is 87.09% (diff: 100%)