2

我submitButton在我的 Shiny 应用程序中遇到了使用问题（我使用它作为一些耗时的渲染是使用应用程序用户提供的数据完成的）。我还使用一些radioButtonswithconditionalPanel来定义用户可以选择参数的变量组。请查看附图以了解想法（用户正在选择列表类型，并且 - 基于他的列表选择 - 出现一个特定列表（conditionalPanel正在工作），用户从中选择参数），或运行下面提供的可重复示例.

当然，只有参数是用于渲染输出的值，我想强制 a以自动方式仅submitButton传递参数。问题是这也会影响元素，它无法使用选择所需的值（因为值列表没有切换）。submitButtonradioButtons

问题：有什么方法可以定义哪些 UI 元素要停止自动更新以submitButton解决我的问题？感谢您的任何帮助！

用户界面：

library(shiny)

shinyUI(pageWithSidebar(  

   headerPanel("Problem with submit button"),

   sidebarPanel(

     radioButtons("selectionway", "Choose list type", c(number='number', letter='letter')),

     conditionalPanel(
  condition = "input.selectionway == 'number'",
  selectInput("numberlist", "Choose NUMBER:", choices = c("11111", "22222", "33333"))
  ),    

     conditionalPanel(
  condition = "input.selectionway == 'letter'",
  selectInput("letterlist", "Choose LETTER:", choices = c("A", "B", "C"))
  ),          

    submitButton("submitButton") 

),

  mainPanel(
   verbatimTextOutput("list"),
   verbatimTextOutput("value")  
  )
))

服务器：

library(shiny)

shinyServer(function(input, output) {

  selected.value <- reactive({
    if(input$selectionway=="letter"){
      return(input$letterlist)
    } else {
      return(input$numberlist)
    }    
  })

  output$list <- renderText({
    input$selectionway
  })

  output$value <- renderText({    
   selected.value()
  })

在此处输入图像描述 })

4

0 回答 0