shiny_modules_60_seconds.R

shiny_modules_60_seconds.R

setwd(here::here('02_shiny_modules'))
library(shiny)
library(ggplot2)


ui <- fluidPage(
  theme =  bslib::bs_theme(bootswatch = 'flatly'),
  tabsetPanel(
    tabPanel("Penguins", {
      sidebarLayout(
        sidebarPanel(
          selectInput(
            'select_var_1_penguins',
            'Variable 1',
            choices = names(palmerpenguins::penguins)
          ),
          selectInput(
            'select_var_2_penguins',
            'Variable 2',
            choices = names(palmerpenguins::penguins)
          ),
          actionButton(
            'draw_scatterplot_penguins',
            'Draw scatterplot',
          )
        ),
        mainPanel(
          plotOutput('scatterplot_penguins')
        )
      )
    }),
    tabPanel("Iris", {
      sidebarLayout(
        sidebarPanel(
          selectInput(
            'select_var_1_iris',
            'Variable 1',
            choices = names(iris)
          ),
          selectInput(
            'select_var_2_iris',
            'Variable 2',
            choices = names(iris)
          ),
          actionButton(
            'draw_scatterplot_iris',
            'Draw scatterplot',
          )
        ),
        mainPanel(
          plotOutput('scatterplot_iris')
        )
      )
    })
  )
)

server <- function(input, output, session) {
  
  output$scatterplot_penguins <- renderPlot({
    ggplot(palmerpenguins::penguins) +
      geom_point(
        aes_string(input$select_var_1_penguins, input$select_var_2_penguins), 
        size = 3,
        alpha = 0.5,
        col = 'dodgerblue4'
      )
  }) |> bindEvent(input$draw_scatterplot_penguins)
  
  output$scatterplot_iris <- renderPlot({
    ggplot(iris) +
      geom_point(
        aes_string(input$select_var_1_iris, input$select_var_2_iris), 
        size = 3,
        alpha = 0.5,
        col = 'dodgerblue4'
      )
  }) |> bindEvent(input$draw_scatterplot_iris)
  
  
}

shinyApp(ui, server)