Commit 12623115 authored by mahendra-mariadassou's avatar mahendra-mariadassou
Browse files

Change button text and help message

parent 9aece624
......@@ -54,10 +54,10 @@ app_server <- function(input, output, session) {
# Extract Affiliation for a given OTU
data$affi <- extract_affiliation(affi, input$asv) %>% dplyr::distinct()
amb <- find_level(data$affi)
output$txt <- renderUI(HTML({paste("<p><b>", input$asv, "- ", nrow(data$affi) ,"conflicting affiliation, ambiguity at rank ", amb, "</b></p>")}))
output$txt <- renderUI(HTML({paste("<p><b>", input$asv, "- ", nrow(data$affi) ,"conflicting affiliations, ambiguity at rank ", amb, "</b></p>")}))
output$help <- renderUI(HTML({paste("<cite>Select an affiliation by clicking on a row.<br/>",
"It is possible to change the affiliation by double clicking on a cell in the table.</cite>")}))
output$help <- renderUI(HTML({paste("<cite>Select new affiliation by clicking on a row (double click on a cell to edit its content).<br/>",
"Click \"Update ASV\" to update affiliation (with selected row) or \"Skip ASV\" to move to the next one</cite>")}))
output$table <- DT::renderDT({data$affi},
selection = list(mode = 'single', selected = NULL, target = 'row'),
......@@ -42,7 +42,7 @@ app_ui <- function() {
actionButton("clean", "Clean ASV"),
actionButton("clean", "Update ASV"),
actionButton("skip", "Skip ASV"),
downloadButton("download", "Download")
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