闪亮的renderUI selectInput返回空 [英] Shiny renderUI selectInput returned NULL

问题描述

我正在尝试使用一个反应性模型，其中一个输入影响多个输出，如闪亮的小抄中所述。 我需要使用renderUI，因为选项列表是动态呈现的(示例中没有显示) 但是，在初始化期间，selectInput返回NULL，而不是默认值。在第一个空值之后，输入按预期工作。我刚接触闪亮，可能做错了什么。

更新：其他控件在初始化后不仅意外返回NULL，还返回NA。

请参阅下面的代码。请参见控制台输出，第一个输入返回NULL。

Listening on http://127.0.0.1:6211
 NULL
 chr "1"
 chr "2"
 chr "1"




library(shiny)

runApp(list(

  ui = bootstrapPage(
    fluidPage( uiOutput('ui.A')   )
  ),


  server = function(input, output){

    output$ui.A = renderUI({
      selectInput("A", label = h4("input A"), 
                  choices = list(A_1=1, A_2=2), 
                  selected = 1)
    })

    A.r <- reactive({input$A })

    observe({ 

      A <- A.r()
      str(A)

    })

  }))

推荐答案

如果您使用is.null()并为输入$A：

返回"默认值"，这可能会起作用

A.r <- reactive({
   if(is.null(input$A)) return (1)

   input$A 

})

这篇关于闪亮的renderUI selectInput返回空的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！