时间戳

首页 > 解决方案 > R中的observeEvent()函数

r - R中的observeEvent()函数

问题描述

我是 R 的超级新手，正在探索不同的按钮。我遇到了观察事件并尝试使用它，但它没有打印我的输出。有人可以帮忙吗！

library(shiny)
ui <- fluidPage(
sliderInput(inputId = "num",
label = "Choose a number",
value = 25, min = 1, max = 100),
actionButton(inputId = "go", label = "Print Value")
)

server <- function(input, output) {
observeEvent(input$go,{as.numeric(input$num)})
}

shinyApp(ui = ui, server = server)

注意：该函数是闪亮库的一部分

标签： rshiny

解决方案

如果要打印到控制台，则需要调用print. 如果您想在 UI 中打印，可以使用reactiveVal：

library(shiny)

ui <- fluidPage(
  sliderInput(inputId = "num",
              label = "Choose a number",
              value = 25, min = 1, max = 100),
  actionButton(inputId = "go", label = "Print Value"),
  textOutput("myText")
)

server <- function(input, output) {
  
  printData <- reactiveVal()
  
  observeEvent(input$go,{
    print(input$num) # print to console
    printData(input$num) # pass data to reactiveVal
    })
  
  output$myText <- renderText(printData())
}

shinyApp(ui = ui, server = server)

推荐阅读