Conversation
|
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)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
Current coverage is 87.09% (diff: 100%)@@ master #12 diff @@
==========================================
Files 17 17
Lines 2232 2232
Methods 0 0
Messages 0 0
Branches 0 0
==========================================
Hits 1944 1944
Misses 288 288
Partials 0 0
|
3 participants
No description provided.