Use a reactive plot as section or slide background.

fullSectionPlot(outputId, ..., menu = NULL, center = FALSE,
  background = "rgba(255,255,255,0.5)")

fullSlidePlot(outputId, ..., menu = NULL, center = FALSE,
  background = "rgba(255,255,255,0.5)")

pageSectionPlot(outputId, ..., menu = NULL, center = FALSE,
  background = "rgba(255,255,255,0.5)")

multiSectionPlot(outputId, ..., menu = NULL, center = FALSE,
  background = "rgba(255,255,255,0.5)")

Arguments

outputId

id passed to plotOutput.

...

any children element.

menu

menu link.

center

whether to center text horizontally.

background

sets background to overlaying shiny inputs, set to NULL to remove.

Examples

if(interactive()){ library(shiny) ui <- fullPage( opts = list(sectionsColor = c('#4BBFC3', '#7BAABE')), fullSection(h1("Full section plots"), center = TRUE), fullSectionPlot( "myPlot2", center = TRUE, fullContainer( h2("With a title") ) ), fullSectionPlot( "myPlot", center = TRUE, fullContainer( h3("Layer anything you want"), selectInput( "select", "Choose y", choices = c("mpg", "drat", "wt") ) ) ) ) server <- function(input, output){ output$myPlot <- renderPlot({ plot(1:nrow(mtcars), mtcars[[input$select]]) }) output$myPlot2 <- renderPlot({ plot(1:nrow(mtcars), mtcars[[input$select]]) }) } shinyApp(ui, server) }