Commit 61c53484 authored by Sandra Derozier's avatar Sandra Derozier
Browse files

Table Row Selection

parent 6540677a
......@@ -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)
}
})
})
})
......
......@@ -33,7 +33,9 @@ app_ui <- function() {
solidHeader = T,
htmlOutput("txt"),
HTML("<br/>"),
DT::DTOutput("table")
DT::DTOutput("table"),
HTML("<br/>"),
htmlOutput("selection")
)
)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment