R/mod_PCA_plots.R

In rforbiodatascience22/group_15_final_project_app: BreastCancerExplorer

#' PCA_plots UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_PCA_plots_ui <- function(id){
  ns <- NS(id)
  tagList(
    titlePanel("PCA Plots"),

    shiny::sidebarLayout(
      shiny::sidebarPanel(
        boldtext("Choose x-value:"),
        shiny::radioButtons(
          inputId = ns("PCA_choice_x"),
          label = NULL,
          choices = c("PC 1" = "PC1",
                      "PC 2" = "PC2",
                      "PC 3" = "PC3",
                      "PC 4" = "PC4",
                      "PC 5" = "PC5")
        ),

        boldtext("Choose y-value:"),
        shiny::radioButtons(
          inputId = ns("PCA_choice_y"),
          label = NULL,
          choices = c("PC 1" = "PC1",
                      "PC 2" = "PC2",
                      "PC 3" = "PC3",
                      "PC 4" = "PC4",
                      "PC 5" = "PC5"),
          selected = "PC2"
        ),

        boldtext("Choose color:"),
        shiny::radioButtons(
          inputId = ns("PCA_choice_color"),
          label = NULL,
          choices = c("Tumour stage" = "Tumour_Stage",
                      "Histology",
                      "HER2 status" = "HER2.status",
                      "Surgery type" = "Surgery_type",
                      "Patient status" = "Patient_Status"),
          selected = "Patient_Status"
        ),

        # Set width of sidebar panel
        width = 3
      ),
      shiny::mainPanel(
        shiny::plotOutput(
          outputId = ns("PCA")
        ),

        # Set width of main panel
        width = 9
      )
    )
  )
}

#' PCA_plots Server Functions
#'
#' @noRd
mod_PCA_plots_server <- function(id){
  moduleServer( id, function(input, output, session){
    ns <- session$ns

    output$PCA <- renderPlot(
      pca_vis_BRCA(my_data_clean_aug,
                   input$PCA_choice_x,
                   input$PCA_choice_y,
                   input$PCA_choice_color)
      )

  })
}

## To be copied in the UI
# mod_PCA_plots_ui("PCA_plots_1")

## To be copied in the server
# mod_PCA_plots_server("PCA_plots_1")