Question

我想构建一个闪亮的应用程序，该应用程序可以运行模拟并显示3个结果图（我已使用tabsetPanel()进行了设置）。该代码需要几秒钟才能运行，所以我做了一个submitButton()。现在，随着代码花费更长的时间，我希望它只运行一次，然后显示3个图。如何使用输入值运行代码，提取5个结果向量，然后再绘制它们？

当前闪亮会产生错误，因为当代码不在output$plot <- renderPlot({ ...})部分内时，它是无响应的。

到目前为止，我的情况是这样的：

ui <- fluidPage(
titlePanel("My Simulation"),
submitButton(text="RUN SIMULATION")

  mainPanel(
    tabsetPanel(
      tabPanel("Plot 1", plotOutput("p1")), 
      tabPanel("Plot 2", plotOutput("p2")), 
      tabPanel("Plot 3", plotOutput("p3"))
    )
  )
)


server <- function(input, output) {
  v<-reactiveValues(v1=0,v2=0,v3,v4=0,v5=0)
  observeEvent(input,{ myFunction()})

output$p1<-renderPlot{
  plot(v1,v2)
}

output$p2<-renderPlot{
  plot(v1,v3)
}

output$p3<-renderPlot{
  plot(v1,v4)
  lines(v1,v4)
}

shinyApp(ui, server)

Answer 1

实际上是分开的。要使绘图具有反应性，您必须将reactiveValues()引用为v$v1，v$v2，... 它已分配给v，因此您也必须以这种方式引用它。实际上，您可以将reactiveValues()与data.frame()进行比较，或更像是反应式列表。您还可以通过v <- list(v1 = 1)来调用的列表v$v1，...

可复制的示例：

library(shiny)

ui <- fluidPage(
  titlePanel("My Simulation"),
  actionButton(inputId = "simulate", label = "simulate"),

  mainPanel(
    tabsetPanel(
      tabPanel("Plot 1", plotOutput("p1")), 
      tabPanel("Plot 2", plotOutput("p2")), 
      tabPanel("Plot 3", plotOutput("p3"))
    )
  )
)


server <- function(input, output) {

  v <- reactiveValues(v1 = 0, v2 = 0, v3 = 0, v4 = 0, v5 = 0)

  observeEvent(input$simulate,{ 
    v$v1 <- 1
    v$v2 <- 2
    v$v3 <- 3
    v$v4 <- 4
  })

  output$p1<-renderPlot({
    plot(v$v1, v$v2)
  })

  output$p2<-renderPlot({
    plot(v$v1, v$v3)
  })

  output$p3<-renderPlot({
    plot(v$v1, v$v4)
    lines(v$v1, v$v4)
  })
}

shinyApp(ui, server)

R Shiny中的单独计算和绘图

1 个答案: