Question

我有一个带有反应操作按钮的闪亮仪表板，但该按钮不会更新仪表板。

我将tabItems分解为他们自己的文件和使用ui.R源代码的引用。

其中的tabItem仅包含以下代码。

  actionButton("go", "Go"),
  numericInput("n", "n", 50),
  plotOutput("plot")

server.R文件也被拆分并使用source引用每个文件。相关文件包含

    randomVals <- eventReactive(input$go, {
      runif(input$n)
    })

    output$plot <- renderPlot({
      hist(randomVals())
    })

单击动作按钮在ShinyDahsboard中不会执行任何操作，但如果我将此代码作为闪亮的应用程序运行，则它可以正常工作。

Answer 1

你应该isolate你的按钮，如下：

编辑：根据@tospig

rm(list = ls())
library(shiny)

shinyApp(
  ui=shinyUI(basicPage(
    actionButton("go", "Go"),
    numericInput("n", "n", 50),
    plotOutput("plot")
  )),
  server=shinyServer(function(input, output, session){

    randomVals <- eventReactive(input$go, {
      runif(input$n)
    })

    output$plot <- renderPlot({
      hist(randomVals())
    })
  })
)

闪亮的仪表板动作按钮

1 个答案: