Table Row Selection

R/app_server.R

@@ -29,7 +29,17 @@ app_server <- function(input, output, session) {
       data <- extract_affiliation(all$affi, input$asv)
       amb <- find_level(data)
       output$txt <- renderUI({paste(input$asv, "- ", nrow(data) ," affiliation, ambiguity at rank ", amb)})
-      output$table <- DT::renderDT({data})
+      output$table <- DT::renderDT({data}, selection = 'single')
+      #output$selection <- renderUI({paste(output$table$tableId_rows_selected)})
+      
+      output$selection <- renderUI({
+        s = input$table_rows_selected
+        if (length(s)) {
+          # cat('These rows were selected: ')
+          # cat(s, sep = ', ')
+          paste("These rows were selected: ", s)
+        }
+      })
     })
     
   })

R/app_ui.R

@@ -33,7 +33,9 @@ app_ui <- function() {
                 solidHeader = T,
                 htmlOutput("txt"),
                 HTML("<br/>"),
-                DT::DTOutput("table")
+                DT::DTOutput("table"),
+                HTML("<br/>"),
+                htmlOutput("selection")
             )
           )
         )