Shiny in quarto doc

1 step 1 add in header

---

format: html server: shiny
  
---

2 step 2 make shinyapp

library(bslib)
library(ggplot2)

2.1 server

output$output_plot <- shiny::renderPlot({
  palmerpenguins::penguins |> 
    dplyr::filter(
      species %in% input$select_species,
      body_mass_g >= input$slider_weight
    ) |> 
    ggplot(
      aes(
        x = bill_length_mm, 
        y = flipper_length_mm, 
        fill = species
      )
    ) +
    geom_point(
      shape = 21, 
      size = 6, 
      col = 'black'
    ) +
    labs(
      x = 'Bill length (in mm)',
      y = 'Flipper length (in mm)',
      fill = 'Species',
      title = 'Penguins from the Palmer Archipelago'
    ) +
    theme_minimal(
      base_size = 20, 
      base_family = 'Source Sans Pro'
    ) +
    scale_fill_manual(
      values = c(
        Adelie = '#0072B2', 
        Gentoo = '#009E73',
        Chinstrap = '#CC79A7'
      ),
    ) +
    coord_cartesian(
      xlim = c(30, 60), 
      ylim = c(170, 240)
    )
})

2.2 ui

layout_sidebar(
  height = 600,
  sidebar =  sidebar(
    shiny::selectizeInput(
      'select_species', 
      'Highlighted Species', 
      choices = c('Adelie', 'Chinstrap', 'Gentoo'),
      selected = c('Adelie', 'Chinstrap', 'Gentoo'),
      multiple = TRUE
    ),
    shiny::sliderInput(
      'slider_weight',
      'Minimum Weight (g)',
      min = 1000,
      max = 5000,
      value = 3000
    )
  ),
  shiny::plotOutput('output_plot')
)