R shinny-服务器渲染复选框赢得'；不检查

我试图使用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)

库（闪亮）
图书馆（shinyWidgets）
ui您的outputid
checkboxB
和
FS1
已经分别呈现过一次，但是您创建了具有相同名称的其他组件，因此它们无法工作，请更改名称，因为您不能像这样有重复的div：

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)

库（闪亮）
图书馆（shinyWidgets）
非常感谢你！