materialSwitch 在 renderUI 中不起作用

Question

我想在我的应用程序中使用shinyWidgets::materialSwitch而不是复选框来改进 UI。

但是，当与 renderUI/uiOutput 一起使用时，我似乎无法让 materialSwitch 工作。 输入显示正确但似乎没有注册点击“切换”。

出于我的应用程序的目的 - 我需要将它放在 renderUI 中。

封装版本：
闪亮的Widgets_0.7.2
闪亮_1.7.2

library(shiny)
library(shinyWidgets)
# library(shinyjs)

ui <- fluidPage(
  div(class="row",
    column(width = 3,
      uiOutput("switch")
    )
  )
)

server <- function(input, output, session) {
  
 output$switch = renderUI({
   materialSwitch(
    inputId = "switch",
    label = "Show Count",
    right = TRUE,
    status = "primary",
    value = FALSE
   )
 })
}

shinyApp(ui = ui, server = server)

为什么会发生这种情况，如何解决这个问题？

Answer 1

问题是您为uiOutput.outputId和materiaSwitch.inputId赋予相同的名称“switch”。

当他们获得不同的 id 时它工作正常：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  div(class="row",
      column(width = 3,
             uiOutput("switch"),
             textOutput("result")
      )
  )
)

server <- function(input, output, session) {
  
  output$switch = renderUI({
    materialSwitch(
      inputId = "switchButton",
      label = "Show Count",
      right = TRUE,
      status = "primary",
      value = FALSE
    )
  })
  output$result = renderText(input$switchButton)
}

shinyApp(ui = ui, server = server)

Answer 2

这是它应该如何工作：

library(shiny)
library(shinyWidgets)
# library(shinyjs)

ui <- fluidPage(
  div(style = 'position: absolute;left: 50px; top:100px; width:950px;margin:auto',
      materialSwitch(inputId = "switch",
                     label = "Show Count",
                     right = TRUE,
                     status = "primary",
                     value = FALSE)
  )
)

server <- function(input, output, session) {
  
  output$value1 <- renderText({ input$switch })
  
}

shinyApp(ui = ui, server = server)