inst/iatlas_examples/distributions_plot_server2_1.R

In Sage-Bionetworks/shiny-module-gallery: What the Package Does (One Line, Title Case)

iatlas.modules::distributions_plot_server2(
  "distplot1",

  distplot_data = shiny::reactive(
    iris %>%
      dplyr::as_tibble() %>%
      dplyr::rename("group_name" = .data$Species) %>%
      dplyr::mutate(
        "sample_name"  = as.character(1:dplyr::n()),
        "group_name"   = as.character(.data$group_name),
        "dataset_name" = "Iris"
      ) %>%
      tidyr::pivot_longer(
        !c("group_name", "sample_name", "dataset_name"),
        names_to = "feature_display",
        values_to = "feature_value"
      )
  ),

  group_data = shiny::reactive(
    iris %>%
      dplyr::as_tibble() %>%
      dplyr::select("group_name" = "Species") %>%
      dplyr::distinct() %>%
      dplyr::mutate(
        "group_name" = as.character(.data$group_name),
        "group_display" = stringr::str_to_title(.data$group_name),
        "group_description" = stringr::str_c("Iris Species: ", .data$group_name),
      )
  ),

  drilldown = shiny::reactive(T),
  distplot_xlab = shiny::reactive("Species")
)