R 观察事件2号和2号上的不同操作;第三项
我尝试使用带有ObserveeEvent的actionButton。我的问题是:我可以通过再次单击按钮来定义不同的操作吗?差不多R 观察事件2号和2号上的不同操作;第三项,r,shiny,R,Shiny,我尝试使用带有ObserveeEvent的actionButton。我的问题是:我可以通过再次单击按钮来定义不同的操作吗?差不多 `observeEvent(input$verlauf,{ if (input$verlauf == 0){input$verlauf <- 1 & renderTable(BDI2())} else if (input$verlauf == 1){input$verlauf <- 2 & renderTable(BDI2())} el
`observeEvent(input$verlauf,{
if (input$verlauf == 0){input$verlauf <- 1 & renderTable(BDI2())}
else if (input$verlauf == 1){input$verlauf <- 2 & renderTable(BDI2())}
else if (input$verlauf == 2){input$verlauf <- 3 & renderTable(BDI3())}
else if (input$verlauf == 3){input$verlauf <- 4 & renderTable(BDI4())}
else if (input$verlauf == 4){input$verlauf <- 5 & renderTable(BDI5())}
else if (input$verlauf == 5){input$verlauf <- 6 & renderTable(BDI6())}
else {}})`
`observeEvent(输入$verlauf{
如果(input$verlauf==0){input$verlauf您不能增加input$verlauf
的值,但您可以创建一个reactiveValues
对象并增加该值。请参见下面的示例
library(shiny)
shinyApp(
ui = fluidPage(
actionButton(inputId = "button",
label = "I am a Button. Click me!"),
uiOutput("result")
),
server = shinyServer(function(input, output, session){
# MAKE A REACTIVE VALUES OBJECT HERE. THIS BEHAVES LIKE A LIST, BUT
# CAN TRIGGER REACTIVE COMPONENTS
Button <- reactiveValues(
Click = 0
)
# Update the Button$Click object on each click of input$button
observeEvent(input$button,
{
Button$Click <- input$button %% 8
})
# Take an element of the vector. This is changed every time
# Button$Click changes.
output$result <-
renderUI({
p(c("It's raining tacos.",
"From out of the sky.",
"Tacos.",
"No need to ask why.",
"Just open your mouth",
"and close your eyes...",
"it's raining tacos.")[Button$Click])
})
})
)
库(闪亮)
shinyApp(
ui=fluidPage(
actionButton(inputId=“button”,
label=“我是一个按钮。单击我!”,
输出(“结果”)
),
服务器=shinyServer(功能(输入、输出、会话){
#在此创建一个被动值对象。其行为类似于列表,但
#可以触发反应性组件
按钮