tests/testthat/test-aba_demographics.R

In ncullen93/abaR: Automated Biomarker Analysis

test_that("example works", {
  model <- aba_model() %>%
    set_data(adnimerge %>% dplyr::filter(VISCODE == 'bl')) %>%
    set_groups(everyone()) %>%
    set_outcomes(ConvertedToAlzheimers, CSF_ABETA_STATUS_bl) %>%
    set_predictors(
      PLASMA_PTAU181_bl, PLASMA_NFL_bl,
      c(PLASMA_PTAU181_bl, PLASMA_NFL_bl)
    ) %>%
    set_covariates(AGE, GENDER, EDUCATION) %>%
    set_stats('glm') %>%
    aba_fit()

  expect_error(
    my_table <- model %>% aba_demographics(),
    NA
  )

  expect_error(
    my_table <- model %>% aba_demographics(strata = 'DX_bl'),
    NA
  )

  # annoyingly prints table to console when writing to file
  #tmp_filename_csv <- tempfile(fileext = '.csv')
  #expect_error(
  #  my_table %>% aba_write(tmp_filename_csv),
  #  NA
  #)
  #removed <- file.remove(tmp_filename_csv)

})