tests/testthat/test-immunomodulator_distributions_server.R

In CRI-iAtlas/iatlas-app: What the Package Does (One Line, Title Case)

test_that("immunomodulator_distributions_server", {
  shiny::testServer(
    immunomodulator_distributions_server,
    args = list(
      "cohort_obj" = shiny::reactiveVal(
        iatlas.modules2::pcawg_immune_subtype_cohort_obj
      ),
      "mock_event_data" = shiny::reactive(data.frame(
        "curveNumber" = c(0,0),
        "pointNumber" = c(0,0),
        "x" = "C1",
        "y" = c(5.1, 2.1),
        "key" = "PCAWG"
      ))
    ),
    {
      session$setInputs("distplot-feature_choice" = "135")
      session$setInputs("distplot-scale_method_choice" = "None")
      session$setInputs("distplot-reorder_method_choice" = "None")
      session$setInputs("distplot-plot_type_choice" = "Violin")

      expect_type(feature_data(), "list")
      expect_named(
        feature_data(),
        c(
          "feature_name",
          "feature_display",
          "Gene Family",
          "Gene Function",
          "Immune Checkpoint",
          "Super Category"
        )
      )
      expect_type(sample_data_function(), "closure")
      entrez = as.character(feature_data()$feature_name[[1]])

      plot_data <- sample_data_function()(.feature = entrez)
      expect_type(plot_data, "list")
      expect_named(
        plot_data,
        c(
          "sample_name",
          "group_name",
          "feature_name",
          "feature_display",
          "feature_value",
          "dataset_name"
        )
      )
      expect_equal(unique(plot_data$dataset_name), "PCAWG")
      expect_true(nrow(plot_data) > 0)
      expect_equal(
        unique(plot_data$feature_display),
        feature_data()$feature_display[[1]]
      )
      expect_type(result(), "list")
    }
  )
})