tests/testthat/test-elements_server.R

In CRI-iAtlas/iatlas.modules2: iAatlas Modules2

test_that("numeric_filter_element_server_pcawg", {
  shiny::testServer(
    numeric_filter_element_server,
    args = list(
      "reactive_values" = shiny::reactiveValues(),
      "module_id" = "element1",
      "numeric_named_list" = shiny::reactiveVal(
        list(
          "B Cells" =  "B_cells_Aggregate2",
          "Height" = "height"
        )
      ),
      "dataset" = shiny::reactiveVal("PCAWG")
    ),
    {
      expect_type(output$select_ui, "list")
      session$setInputs("numeric_choice" = "B_cells_Aggregate2")
      expect_type(features_tbl(), "list")
      expect_equal(nrow(features_tbl()), 1)
      expect_type(feature_min(), "double")
      expect_type(feature_max(), "double")
      expect_length(feature_min(), 1)
      expect_length(feature_max(), 1)
      expect_type(output$slider_ui, "list")
      session$setInputs("range" = c(100, 120))
      expect_true(shiny::is.reactivevalues(session$getReturned()))
    }
  )
})

test_that("group_filter_element_server", {
  shiny::testServer(
    group_filter_element_server,
    args = list(
      "reactive_values" = shiny::reactiveValues(),
      "module_id" = "element1",
      "group_named_list" = shiny::reactiveVal(
        list(
          "Immune Subtype" = "Immune_Subtype",
          "Gender" = "gender"
        )
      ),
      "dataset" = shiny::reactiveVal("TCGA")
    ),
    {
      expect_type(output$select_ui, "list")

      session$setInputs("parent_group_choice" = "Immune_Subtype")
      expect_type(group_choices(), "character")
      expect_equal(unname(group_choices()), c("C1", "C2", "C3", "C4", "C5", "C6"))
      expect_type(output$checkbox_ui, "list")
      session$setInputs("tag_choices" = "C1")
      expect_true(shiny::is.reactivevalues(session$getReturned()))
    }
  )
})

test_that("numeric_model_covariate_element_server", {
  shiny::testServer(
    numeric_model_covariate_element_server,
    args = list(
      "reactive_values" = shiny::reactiveValues(),
      "module_id" = "element1",
      "covariate_list" = shiny::reactiveVal(
        list("B Cells" =  "B_cells_Aggregate2")
      )
    ),
    {
      expect_type(output$select_covariate_ui, "list")
      session$setInputs("covariate_choice_name" = "B_cells_Aggregate2")
      expect_type(output$select_transformation_ui, "list")
      session$setInputs("transformation_choice" = "None")
      expect_true(shiny::is.reactivevalues(session$getReturned()))
    }
  )
})

test_that("categorical_model_covariate_element_server", {
  shiny::testServer(
    categorical_model_covariate_element_server,
    args = list(
      "reactive_values" = shiny::reactiveValues(),
      "module_id" = "element1",
      "covariate_list" = shiny::reactiveVal("C1", "C2")
    ),
    {
      expect_type(output$select_covariate_ui, "list")
      session$setInputs("covariate_choice" = c("C1", "C2"))
      expect_true(shiny::is.reactivevalues(session$getReturned()))
    }
  )
})