Question

我希望能够通过单击操作按钮来控制复选框的值（当选择不同的功能时禁用某些程序选项）。虽然我接近我想要的，但我无法正确初始化复选框。必须至少按一次操作按钮才能看到第一个复选框。

MWE：

# ui.R

fluidPage(

# plot checkbox
uiOutput("make_box"),

# plot action button
actionButton("action", label = "Action"),
br(),

hr(),
# output check
fluidRow(column(3, verbatimTextOutput("value")))

)

和

{{1}}

Answer 1

一种方法是使用reactiveVal()：

setboxon <- reactiveVal(TRUE)

observe({
  if(is.null(input$checkbox))
    setboxon(FALSE)
  else if(input$checkbox==FALSE)
    setboxon(FALSE)
})

observe({
  if(input$action) setboxon(TRUE)
})

R Shiny：使用操作按钮控制复选框值

1 个答案: