R 闪亮的仪表板操作按钮
我有一个带有反应式操作按钮的闪亮仪表板,但该按钮不会更新仪表板 我使用sourceby ui.R将选项卡项拆分为它们自己的文件和引用 中的tabItem仅包含以下代码R 闪亮的仪表板操作按钮,r,shiny,shinydashboard,R,Shiny,Shinydashboard,我有一个带有反应式操作按钮的闪亮仪表板,但该按钮不会更新仪表板 我使用sourceby ui.R将选项卡项拆分为它们自己的文件和引用 中的tabItem仅包含以下代码 actionButton("go", "Go"), numericInput("n", "n", 50), plotOutput("plot") server.R文件也被拆分,并使用源代码引用每个文件。 relavent文件包含的 randomVals <- eventReactive(input$go
actionButton("go", "Go"),
numericInput("n", "n", 50),
plotOutput("plot")
server.R文件也被拆分,并使用源代码引用每个文件。
relavent文件包含的
randomVals <- eventReactive(input$go, {
runif(input$n)
})
output$plot <- renderPlot({
hist(randomVals())
})
randovals你应该隔离你的按钮,就像这样:
编辑:根据@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())
})
})
)
rm(list=ls())
图书馆(闪亮)
shinyApp(
ui=shinyUI(基本页)(
动作按钮(“开始”,“开始”),
数字输入(“n”,“n”,50),
绘图输出(“绘图”)
)),
服务器=shinyServer(功能(输入、输出、会话){
随机变量我添加了一个提交按钮,如果我单击操作按钮,然后单击提交按钮,则绘图将更新。与没有闪亮的仪表板不同,go按钮只更新绘图。从-“LikeobserveEvent()
,eventReactive()
在第二个参数中用isolate()
隔离代码块。”-这意味着你不需要隔离()
,不是吗?@tospig你是对的,不需要这样做。我编辑了我的答案