vignettes/snippets/shinyembeddedinline.md

In rstudio/flexdashboard: R Markdown Format for Flexible Dashboards

shinyApp(
  ui = fillPage(
    fillCol(flex = c(NA, 1), 
      inputPanel(
        selectInput("region", "Region:", choices = colnames(WorldPhones))
      ),
      plotOutput("phonePlot", height = "100%")
    )
  ),
  server = function(input, output) {
    output$phonePlot <- renderPlot({
      barplot(WorldPhones[,input$region]*1000, 
              ylab = "Number of Telephones", xlab = "Year")
    })
  },
  options = list(height = 600)
)

rstudio/flexdashboard documentation built on Oct. 18, 2023, 11:02 a.m.