This is a non-modularized Shiny app to explore different data sets.

data_viewer_app.R

setwd(here::here('shiny_modules'))
library(shiny)
library(ggplot2)

ui <- fluidPage(
  theme =  bslib::bs_theme(
    # Colors (background, foreground, primary)
    bg = 'white', 
    fg = '#06436e', 
    primary = colorspace::lighten('#06436e', 0.3),
    
    # Fonts (Use multiple in case a font cannot be displayed)
    base_font = c('Source Sans Pro',  'Lato', 'Merriweather', 'Roboto Regular', 'Cabin Regular'),
    heading_font = c('Oleo Script', 'Prata', 'Roboto', 'Playfair Display', 'Montserrat'),
    font_scale = 1
  ),
  tabsetPanel(
    tabPanel("Penguins", {
      sidebarLayout(
        sidebarPanel(
          selectInput(
            'select_var_1',
            'Variable 1',
            choices = names(palmerpenguins::penguins)
          ),
          selectInput(
            'select_var_2',
            'Variable 2',
            choices = names(palmerpenguins::penguins)
          ),
          actionButton(
            'draw_scatterplot',
            'Draw scatterplot',
          )
        ),
        mainPanel(
          plotOutput('scatterplot')
        )
      )
    }),
    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 <- renderPlot({
    ggplot(palmerpenguins::penguins) +
      geom_point(
        aes_string(input$select_var_1, input$select_var_2), 
        size = 3,
        alpha = 0.5,
        col = 'dodgerblue4'
      )
  }) |> bindEvent(input$draw_scatterplot)
  
  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)