通過URL GET方法在閃亮的數據表中選擇行

Question

有沒有人看過一段代碼被剪掉或者在文檔中通過提交一些get參數來選擇閃亮應用的數據表中的行？

喜歡的東西http://mywebsite.com/shinyapp/?row=1&row=2

或者，如果有人能指出我的一些想法如何實現這一點。

Answer 1

瀏覽一下堆棧溢出之後，我找到一個簡單的例子How do you pass parameters to a shiny app via URL，並根據我的需要進行了調整。

library(DT) 
library(shiny) 


ui <- bootstrapPage(
    h2("The mtcars data"), 
    textInput("text", "Text", ""), 
    DT::dataTableOutput("mytable") 
) 

server <- function(input, output, session) { 

    observe({ 
    query <- parseQueryString(session$clientData$url_search) 
    print(query) 
    if (!is.null(query[['text']])) { 
     text_string <- query[['text']] 
     DT::selectRows(mytable_proxy, as.numeric(text_string)) 
     updateTextInput(session, "text", value = text_string) 
    } 
    }) 

    output$mytable = DT::renderDataTable({mtcars}) 
    mytable_proxy = DT::dataTableProxy('mytable') 
} 

shinyApp(ui, server) 

所以通過執行應用程序，並在瀏覽器中打開它，我可以添加GET參數，而且我在文本字段中的號碼，但該行不會被選中。 http://127.0.0.1:3010/?text=4（IP和端口可能與您的情況不同）。