如何解决R Shiny:观察事件和事件反应的不同行为
下面的闪亮应用程序显示一个使用rhandsontable()
构建的可编辑表格。
问题:您能解释一下为什么在从未打印"ping"
的情况下对数据表进行编辑时将"pong"
打印到控制台的原因。
library(shiny)
ui <- fluidPage(
rhandsontable::rHandsontableOutput(
outputId = "data")
)
server <- function(input,output,session) {
data <- data.frame(a = 1,b = 2,c = 3)
output$data <- rhandsontable::renderRHandsontable({
rhandsontable::rhandsontable(
selectCallback = TRUE,data = data)
})
observeEvent(input$data$changes$changes,{
print("ping")
})
edits <- eventReactive(input$data$changes$changes,{
print("pong")
})
}
shinyApp(ui = ui,server = server)
解决方法
这是因为此后没有调用edits()
,所以shiny
认为您不需要它,因此没有理由对其进行任何工作,您需要添加它应该去的地方或内容您想使用它:
library(shiny)
ui <- fluidPage(
rhandsontable::rHandsontableOutput(
outputId = "data")
)
server <- function(input,output,session) {
data <- data.frame(a = 1,b = 2,c = 3)
output$data <- rhandsontable::renderRHandsontable({
rhandsontable::rhandsontable(
selectCallback = TRUE,data = data)
})
observeEvent(input$data$changes$changes,{
print("ping")
})
edits <- eventReactive(input$data$changes$changes,{
print("pong")
})
observe({
edits()
})
}
shinyApp(ui = ui,server = server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。