inst/iatlas_examples/distributions_plot_server_3.R

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

iatlas.modules::distributions_plot_server(
  "distplot3",

  sample_data_function = shiny::reactive(
    function(.feature){
      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_name",
          values_to = "feature_value"
        ) %>%
        dplyr::mutate(
          "feature_display" = stringr::str_replace(.data$feature_name, "\\.", " "),
          "feature_class" = stringr::str_extract(.data$feature_name, "([[:alpha:]]+)"),
        ) %>%
        dplyr::filter(.data$feature_name == .feature) %>%
        dplyr::select(
          "group_name", "sample_name", "feature_name", "feature_value", "dataset_name"
        )
    }
  ),

  feature_data = shiny::reactive(
    iris %>%
      dplyr::as_tibble() %>%
      dplyr::mutate("sample_name" = as.character(1:dplyr::n())) %>%
      tidyr::pivot_longer(
        !c("Species", "sample_name"),
        names_to = "feature_name",
        values_to = "feature_value"
      ) %>%
      dplyr::select("feature_name") %>%
      dplyr::distinct() %>%
      dplyr::mutate(
        "feature_display" = stringr::str_replace(.data$feature_name, "\\.", " "),
        "Class1" = stringr::str_extract(.data$feature_name, "^[[:alpha:]]+"),
        "Class2" = stringr::str_extract(.data$feature_name, "[[:alpha:]]+$"),
      )
  ),

  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")
)