我正在尝试使用一种响应性模型,其中一个输入影响多个输出,就像在闪亮的速查表中描述的那样。由于选择列表是动态呈现的(未在示例中显示),因此我需要使用renderUI。
然而,在初始化期间,selectInput返回NULL而不是默认值。在第一个NULL值之后,输入按预期工作。我是shiny的新手,可能做错了什么。
更新:其他控件在初始化后意外地返回了NULL和NA。
请参见下面的代码。请查看控制台输出,第一个输入返回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)
})
}))
if(!is.null(input$something))
。 - cory