r - 闪亮的仪表板操作按钮

Question

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

我使用 ui.R 的源将 tabItems 拆分为自己的文件和引用。

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

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

server.R 文件也被拆分出来，并使用源代码引用每个文件。相关文件包含

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

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

在 ShinyDahsboard 中单击 actionbutton 不会做任何事情，但如果我将此代码作为一个闪亮的应用程序运行它自己，它工作正常。

Answer 1

You should isolate your button, like so:

Edit: as per @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())
    })
  })
)