如何获取 selectinput 的值并在另一个带有闪亮的 selectinput 中显示变量数据

Question

我想检索用户选择的值，所以我把这段代码放在 server.R 函数里面

selected_value <- input$valtext
A <-Filter (catalog, gene_name == selected_value)
B <-select (A,snp)

valtext : 是我的 selectizeinput 的 id

那我想给用户显示selected_value的snp通讯员 (B) 在 "choices" 中的另一个 selectizeinput 中，但为此我需要检索变量 B：

selectizeInput( 
  'snpvalue', 'Choisir le snp a visualiser :', choices = "" ,
  multiple = TRUE, options = list(maxItems = 2)
      )

我的问题是我在数据中看不到 B，似乎没有任何变化！没有任何执行，因为如果我有我的变量 B，我可以很容易地在我的 selectizeinput 中显示它

Answer 1

在 ui.R 中，将第二个 selectizeInput 替换为

uiOutput('snpselect')

在server.R中添加

output$snpselect <- renderUI({
  selected_value <- input$valtext
  A <- Filter (catalog, gene_name == selected_value)
  B <- select (A,snp)
  selectizeInput( 
    'snpvalue', 'Choisir le snp a visualiser :', choices = B, multiple = TRUE, options = list(maxItems = 2)
  )
})

如何获取 selectinput 的值并在另一个带有闪亮的 selectinput 中显示变量数据

How to get value of selectinput and show a variable data in another selectinput with shiny

r

rstudio

shiny