2017-08-02 90 views

回答

1

input$table_rows_selected如果沒有選擇行的值是NULL

,如果你想檢查多少行被選中/或如果沒有選擇行,你可以很容易地使用print(input$table_rows_selected)並在控制檯中您可以根據價值會得到到選擇。

[更新]

檢查這個代碼了:

library(shiny) 
library(DT) 
shinyApp(
    ui = fluidPage(
dataTableOutput("table"), 
textOutput("text") 
), 
    server = function(input, output) { 
    output$table <- renderDataTable({ 
    datatable(iris) 
    }) 

    output$text <- renderText({ 
    if(length(input$table_rows_selected) > 0){ 
    data <- input$table_rows_selected 
    data} 
    else{print("NULL")} 
    }) 

    } 
) 

如果沒有行選擇將打印NULL,當行被選中,我們讓他們的索引號。

+0

當我連同你的代碼一起點擊我的DT時,我得到索引,但是當取消選擇時什麼都不打印出來?我曾嘗試使用if(is.null(input $ table_rows_selected)),但這也不起作用 –

+0

檢查我的更新 –

+0

謝謝你的幫助 –