Question

我想要由用户检索所选值，所以我将此代码放在函数内的server.R中

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

valtext：是我的选择输入的ID

然后我想用户显示selected_value的snp记者（B）在“选择”中的另一个选择输入，但要做到这一点，我需要检索变量B：

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

我的问题是我在数据中看不到B，似乎没什么变化！没有执行，因为如果我有我的变量B，我可以在我的选择输入中轻松地显示它

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的值并在另一个带有闪亮

1 个答案: