2017-08-02 49 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

谢谢你的帮助 –