Question

下面的应用程序包含带有两个选项（input$set1和download）的selectInput upload和使用input$set2呈现的单选按钮组renderUI()。我正在使用一个自定义消息处理程序，该函数将根据selectInput的值禁用单选按钮组中的单选按钮（如果input$set1 == 'download'则禁用upload单选按钮，否则启用它。）

这是应用程序：

library(shiny)
library(shinyWidgets)
library(shinydashboard)

toggleRadioOpt <- function(session, inputId, choice, enable = TRUE, selected) {
  session$sendCustomMessage(
    type = 'toggleRadioOpt',
    message = list(id = inputId, choice = choice, enable = enable, selected = selected)
  )
}

modUI <- function(id) {

  ns <- NS(id)

  tagList(

    tags$head(
      tags$script("

                  Shiny.addCustomMessageHandler('toggleRadioOpt',
                  function(data) {
                  $('#' + data.id + ' input[value = \"' + data.choice + '\"]').attr('disabled', !data.enable).prop('checked', false);
    if(data.selected !== null) {
                  $('#' + data.id + ' input[value = \"' + data.selected + '\"]').prop('checked', true);
}
                  }
                  );

                  ")
      ),

    prettyRadioButtons(ns('set1'), label = 'Select', choices = c('download', 'upload', 'abb')),

    # selectInput(ns('set1'), label = 'Select', choices = c('download', 'upload', 'sql')),

    uiOutput(ns('taskUI'))

      )

}


modServer <- shinyServer(function(input, output, session) {
  ns = session$ns

  output$taskUI <- renderUI({

    switch(input$set1, 
           'download' = selectInput(ns('data'), '', state.area),
           'upload' = selectInput(ns('data'), '', state.center),
           'abb' = tagList(
             selectInput(ns('data'), '', state.abb), 
             actionButton(ns('upload'), 'Upload')
             )
           )

    prettyRadioButtons(ns('set2'), label = '', choices = c('split', 'upload'))

  })

  observe({

    if(!is.null(input$set2)) {

      if(input$set1 %in% c('download', 'abb')) {

        toggleRadioOpt(session = session, inputId = ns('set2'), choice = 'upload', enable = F, selected = 'split')

      } else {

        toggleRadioOpt(session = session, inputId = ns('set2'), choice = 'upload', enable = T, selected = 'split')

      }

    }

  })
})


# UI ----------------------------------------------------------------------
ui = fluidPage(modUI('first'))

# SERVER ------------------------------------------------------------------
server <- shinyServer(function(input, output, session) {

  callModule(modServer, 'first')  

})

shinyApp(ui, server)

如果在UI中创建了单选按钮组，则处理程序将按预期工作，但是如果使用renderUI()创建按钮，则处理程序将失败。具体来说，它在启动时失败，但是如果随后更改input$set1，它将起作用。我是使用自定义消息处理程序的新手，所以我不确定这里发生了什么或如何修复它。我认为这可能与在UI加载之前触发jQuery有关，但我不确定。

Answer 1

我认为这可能与jQuery被触发有关在用户界面加载之前，但我不确定。

我是这样认为的。在加载UI之前，input$set2是NULL。您可以这样做：

  observe({
    if(!is.null(input$set2)){
      if(input$set1 == 'download') {
        toggleRadioOpt(session = session, inputId = ns('set2'), choice = 'upload',
                       enable = F, selected = 'split')
      } else {
        toggleRadioOpt(session = session, inputId = ns('set2'), choice = 'upload', 
                       enable = T, selected = 'split')
      }
    }
  })

R Shiny-使用自定义消息处理程序禁用单选按钮组中的单个单选按钮

1 个答案: