我试图了解以下代码的行为方式
library(shiny)
ui<-fluidPage(
sliderInput("inpslider","Slider",1,10,5),
uiOutput("radio"),
)
server <- function(input, output) {
output$radio<-renderUI({
x<-input$inpslider
radioGroupButtons(inputId = 'myRadioButton', choices = c("A","B"),status = 'warning',
direction = 'vertical', justified = T)
})
}
代码第一次运行时,它将添加一个输入滑块和分组单选按钮。
问题:- 由于output$radio
块包含响应值input$slider
,它会在滑块值更改时执行,所以闪亮会在每次执行时添加一组新的单选按钮(在前一个单选按钮的顶部)output$radio
?还是每次都会清除旧的单选按钮并添加新的单选按钮?