如何从闪亮的selectInput中获取值

我现在正在玩闪亮的包几个小时，并且想要创建一个选择输入小部件，使我可以从服务器下载某个数据集。所以，我想出了一个办法让我这个数据帧包含我的所有ID下载：如何从闪亮的selectInput中获取值

> dput(runDf) 
structure(list(runName = c("5587bfe560b27bb14676ce46", "5587bfde60b27bb14676ce2c", 
"5587bfd860b27bb14676ce0e", "5587bfd260b27bb14676ccaa", "5587bfc160b27bb14676cbb9", 
"5587bfaf60b27bb14676cba5"), pipeline = c("gentrap", "gentrap", 
"gentrap", "gentrap", "gentrap", "gentrap"), nSamples = c(16L, 
10L, 12L, 60L, 125L, 8L)), .Names = c("runName", "pipeline", 
"nSamples"), row.names = c(NA, 6L), class = "data.frame") 



        runName pipeline nSamples 
1 5587bfe560b27bb14676ce46 gentrap  16 
2 5587bfde60b27bb14676ce2c gentrap  10 
3 5587bfd860b27bb14676ce0e gentrap  12 
4 5587bfd260b27bb14676ccaa gentrap  60 
5 5587bfc160b27bb14676cbb9 gentrap  125 
6 5587bfaf60b27bb14676cba5 gentrap  8

出这个数据帧我解析从DF含有Runids一个selectInput中，像这样的：

tst <- as.vector(runDf$runName) 
names(tst) <- runDf$runName 
selectInput("selectRunid", label = "Select RunID", choices = tst) 


#OUTPUT of selectInput 
<div class="form-group shiny-input-container"> 
    <label class="control-label" for="selectRunid">Select RunID</label> 
    <div> 
    <select id="selectRunid"><option value="5587bfe560b27bb14676ce46" selected>5587bfe560b27bb14676ce46</option> 
<option value="5587bfde60b27bb14676ce2c">5587bfde60b27bb14676ce2c</option> 
<option value="5587bfd860b27bb14676ce0e">5587bfd860b27bb14676ce0e</option> 
<option value="5587bfd260b27bb14676ccaa">5587bfd260b27bb14676ccaa</option> 
<option value="5587bfc160b27bb14676cbb9">5587bfc160b27bb14676cbb9</option> 
<option value="5587bfaf60b27bb14676cba5">5587bfaf60b27bb14676cba5</option></select> 
    <script type="application/json" data-for="selectRunid" data-nonempty="">{}</script> 
    </div> 
</div>

现在我想能够从selectInput()输出中提取值。这样我可以从服务器检索正确的数据文件。

input$selectRunid == <value> { Jin <- content(GET("http://stats/gentrap/alignments?runIds=<MYRUNID>&userId=dev", add_headers("X-SENTINEL-KEY" = "dev"), as = "parsed"))}

任何提示的感谢！

来源

2015-06-22 Sander Van der Zeeuw

您可以简单地使用input$selectRunid这样的：

content(GET(
    "http://stats", path="gentrap/alignments", 
    query=list(runIds=input$selectRunid, userId="dev") 
    add_headers("X-SENTINEL-KEY"="dev"), as = "parsed"))

这可能是明智的添加某种动作按钮并触发下载仅在点击。

来源

2015-06-23 00:27:14 zero323

谢谢，的确，这件作品完全谢谢！ –

如何从闪亮的selectInput中获取值

回答

相关问题