Question

我尝试使用shinyWidgets包中的awesomeCheckbox，遇到了无法检查/取消选中服务器呈现的框的问题。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  awesomeCheckbox(inputId = "checkboxA",
                  label = "A checkbox",
                  value = TRUE),
  uiOutput("checkboxB"), 
  uiOutput("FS1")

)
server <- function(input, output) {
  output$checkboxB <- renderUI({
    awesomeCheckbox(inputId = "checkboxB",
                    label = "B checkbox",
                    value = TRUE)
  })
  output[[paste0("FS", 1)]] <- renderUI({
    awesomeCheckbox(inputId = paste0("FS", 1),label = "FS", value = FALSE)
  })
}

shinyApp(ui= ui, server=server)

我需要这段代码作为更大的Shiny App的一部分，其中复选框是在服务器中动态生成的（因此奇怪的paste0命名）。

我已经检查了我的R版本，并尝试过使用Chrome和Safari，但似乎无法通过FS复选框来检查/取消选中。当我使用＆＃34; Inspect element＆＃34;时，我似乎也找不到任何与众不同的东西。在我的浏览器中。

Answer 1

你有outputids FS1和library(shiny) library(shinyWidgets) ui <- fluidPage( awesomeCheckbox(inputId = "checkboxA",label = "A checkbox",value = TRUE), uiOutput("checkboxB"), uiOutput("FS1") ) server <- function(input, output) { output$checkboxB <- renderUI({ awesomeCheckbox(inputId = "checkboxBx",label = "B checkbox", value = TRUE) }) output[[paste0("FS", 1)]] <- renderUI({ awesomeCheckbox(inputId = paste0("FSx", 1),label = "FS", value = FALSE) }) } shinyApp(ui= ui, server=server)分别已经渲染一次，但是你创建了具有相同名称的其他组件，因此它们不会工作，更改名称，因为你不能有这样的重复div：< / p>

NotificationChannel

R Shiny - 服务器渲染复选框无法检查

1 个答案: