有条件的输出情节

Question

假设我有一个条件面板

fluidRow(column(12,selectInput("models", label = "Models",choices =list("choice 1"=1,"choice 2"=2))))  

tabsetPanel(tabPanel(strong("plots"), 
          plotOutput("plot 1"), 
          plotOutput("plot 2"))) 

现在，根据一些选择输入值，我想表明plot 1或plot 2。有没有办法在一个闪亮的应用程序？

Answer 1

第一个版本，以选择在渲染：

library(shiny) 


ui <- fluidPage(fluidRow(column(12,selectInput("models", label = "Models",choices =list("A-Plots"=1,"B-Plots"=2)))),  

tabsetPanel(tabPanel(strong("plots"), 
        lapply(1:5, function(i) plotOutput(paste0("plot", i)))))) 

server <- function(session, input, output) { 

plotsA <- lapply(1:5, function(x) function(y) (plot(1:10, main=paste("Plot A", x)))) 

plotsB <- lapply(1:5, function(x) function(y) (plot(1:10, main=paste("Plot B", x)))) 

for (i in 1:5) local({ 
    my_i <- i 
    output[[paste0("plot", my_i)]] <- renderPlot({ 
    switch(input$models, "1"=plotsA, "2"=plotsB)[[my_i]]()}) 
})} 

shinyApp(ui = ui, server = server) 

版本2 conditionalPanel：

库（闪亮）

ui <- fluidPage(fluidRow(column(12,selectInput(
    "models", label = "Models", choices =list("A-Plots"=1,"B-Plots"=2)))),  

tabsetPanel(tabPanel(strong("plots"), 
        conditionalPanel("input.models==1", 
         lapply(1:5, function(i) plotOutput(paste0("plot", i)))), 
        conditionalPanel("input.models==2", 
         lapply(6:10, function(i) plotOutput(paste0("plot", i))))))) 

server <- function(session, input, output) { 

    plotsA <- lapply(1:5, function(x) function(y) (plot(1:10, main=paste("Plot A", x)))) 

    plotsB <- lapply(1:5, function(x) function(y) (plot(1:10, main=paste("Plot B", x)))) 

    for (i in 1:5) local({ 
    my_i <- i 
    output[[paste0("plot", my_i)]] <- renderPlot({plotsA[[my_i]]()}) 
    }) 

    for (i in 6:10) local({ 
    my_i <- i 
    output[[paste0("plot", my_i)]] <- renderPlot({plotsB[[my_i-5]]()}) 
    }) 

} 

shinyApp(ui = ui, server = server) 

第三种选择，与uiOutput：

library(shiny) 


ui <- fluidPage(fluidRow(column(12,selectInput(
    "models", label = "Models", choices =list("A-Plots"=1,"B-Plots"=2)))),  

tabsetPanel(tabPanel(strong("plots"), 
        uiOutput("plots")))) 

server <- function(session, input, output) { 

    plotsA <- lapply(1:5, function(x) function(y) (plot(1:10, main=paste("Plot A", x)))) 

    plotsB <- lapply(1:5, function(x) function(y) (plot(1:10, main=paste("Plot B", x)))) 

    output$plots <- renderUI(lapply(switch(input$models, "1"=1:5, "2"=6:10), 
            function(y) plotOutput(paste0("plot", y)))) 

    for (i in 1:5) local({ 
    my_i <- i 
    output[[paste0("plot", my_i)]] <- renderPlot({plotsA[[my_i]]()}) 
    }) 

    for (i in 6:10) local({ 
    my_i <- i 
    output[[paste0("plot", my_i)]] <- renderPlot({plotsB[[my_i-5]]()}) 
    }) 

} 

shinyApp(ui = ui, server = server) 

在所有情况下，只有在您实际显示该情节时才应该准备情节。