Commit 6540677a authored by Sandra Derozier's avatar Sandra Derozier
Browse files

Change tableOutput -> DTOutput

parent 885ff605
...@@ -29,10 +29,7 @@ app_server <- function(input, output, session) { ...@@ -29,10 +29,7 @@ app_server <- function(input, output, session) {
data <- extract_affiliation(all$affi, input$asv) data <- extract_affiliation(all$affi, input$asv)
amb <- find_level(data) amb <- find_level(data)
output$txt <- renderUI({paste(input$asv, "- ", nrow(data) ," affiliation, ambiguity at rank ", amb)}) output$txt <- renderUI({paste(input$asv, "- ", nrow(data) ," affiliation, ambiguity at rank ", amb)})
output$table <- renderTable({data}) output$table <- DT::renderDT({data})
# output$table <- renderFlexTable({
# mymtcars$Name <- paste0('<label><input type="radio" id="name', seq_along(names(data)), '"> <span>', names(data), '</span></label>')
# })
}) })
}) })
......
...@@ -33,7 +33,7 @@ app_ui <- function() { ...@@ -33,7 +33,7 @@ app_ui <- function() {
solidHeader = T, solidHeader = T,
htmlOutput("txt"), htmlOutput("txt"),
HTML("<br/>"), HTML("<br/>"),
tableOutput("table") DT::DTOutput("table")
) )
) )
) )
......
Supports Markdown
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