闪亮的输入不起作用答案

【问题标题】：shiny input doesn't work闪亮的输入不起作用
【发布时间】：2015-03-12 14:57:59
【问题描述】：

我创建了一个闪亮的应用程序。带有一些选择输入。

HTML 代码：

    <label>1.  Choose industry:
    <select  style="background-color:#efeff0"  onclick="myFunction1(this.value)" name="vertical_id" id="vertical_id" class="selectized shiny-band-input" tabindex="-1">
    <option style="color:#800d7e"  name="vertical_id_name" value="Online">Online</option>
    <option style="color:#800d7e" name="vertical_id_name"  value="Forex">Forex</option>
    <option style="color:#800d7e" name="vertical_id_name" value="Binary Options">Binary Options</option>
    <option style="color:#800d7e" name="vertical_id_name" value="Gaming">Gaming</option>
    <option style="color:#800d7e" name="vertical_id_name" value="Social Gaming">Social Gaming</option>
    <option style="color:#800d7e" name="vertical_id_name" value="Finance">Finance</option>
    <option style="color:#800d7e" name="vertical_id_name" value="Telecom">Telecom</option>
    <option  style="color:#800d7e" name="vertical_id_name" value="Insurance">Insurance</option>
    <option style="color:#800d7e" name="vertical_id_name"  value="Other">Other</option>
    </select>
            <input style="visibility: hidden" style="background-color:#efeff0" type="text"  id="vertical_id_Others_text" />
    </label>

在 R 服务器中，我想获取我在 UI 中选择的值。所以我写：

vertical_id<<-input$vertical_id

变量vertical_id总是相同的（他的值是：“在线”）。它不会改变。

怎么了？

【问题讨论】：

我们需要在这里查看更多代码才能使用...您使用全局赋值 (<<-) 而不是赋值 (<-) 的任何特殊原因？
我使用这个赋值来查看变量值。
我可以在这里粘贴所有代码。但这是很长的代码...

标签： html r shiny

【解决方案1】：

确保将数据定义为响应式

例如

filteredStateData<-reactive({
    if(!(is.null(input$vertical_id) || input$vertical_id =="")) 
      return(yourdata[which...=input$vertical_id]   
    else
      return(yourdefaultdatawhennull)
  })

【讨论】：