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) {
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 <- renderTable({data})
# output$table <- renderFlexTable({
# mymtcars$Name <- paste0('<label><input type="radio" id="name', seq_along(names(data)), '"> <span>', names(data), '</span></label>')
# })
output$table <- DT::renderDT({data})
})
})
......
......@@ -33,7 +33,7 @@ app_ui <- function() {
solidHeader = T,
htmlOutput("txt"),
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