Question

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

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总是相同的（他的值是：＆＃34;在线＆＃34;）。它没有改变。

出了什么问题？

Answer 1

确保将数据定义为被动

e.g。

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

闪亮的输入不起作用

1 个答案: