如何为reactivepoll对象创建If语句。创建警报示例

如何为reactivepoll对象创建If语句。创建警报示例,r,shiny,R,Shiny,我发现了一些关于如何使用IF语句的问题,但如何使用reactivepoll() 服务器 库(蜂鸣器) 图书馆(闪亮) 服务器 ui <- fluidPage( a("Status",align = "center"), #show reactive data uiOutput("wq_print") ) #ATTEMPT observe({ if(sample_data!="okay"){beep()} #

我发现了一些关于如何使用IF语句的问题,但如何使用
reactivepoll()

服务器
库(蜂鸣器)
图书馆(闪亮)
服务器
ui <- fluidPage(
a("Status",align = "center"),
#show reactive data
uiOutput("wq_print")
)
#ATTEMPT
observe({
if(sample_data!="okay"){beep()} # if my sample_data result it's not okay make a sound!
})