Commit 17a5d53b authored by mahendra-mariadassou's avatar mahendra-mariadassou
Browse files

Clean code

parent 128359db
......@@ -49,7 +49,6 @@ app_server <- function(input, output, session) {
cleaned = phyloseq::tax_table(physeq) %>% as("matrix"), ## All current affiliations (not only those of ambiguous OTUs)
affi = NULL, ## Placeholder for conflicting affiliations of current OTU
sequence = NULL ## Placeholder for current OTU sequence
# blast_result = NULL ## Placeholder for current OTU blast result
)
## Sort `cleaned` by decreasing taxa abundances
data$cleaned <- data$cleaned[phyloseq::taxa_sums(physeq) %>% sort(decreasing = TRUE) %>% names(), ]
......@@ -84,11 +83,6 @@ app_server <- function(input, output, session) {
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 OTU\" to update affiliation (with selected row) or \"Skip OTU\" to move to the next one.</cite>")}))
## Show alignment information
output$aln_info <- renderUI({
HTML(glue::glue())
})
## Show conflicting affiliations
output$table <- DT::renderDT({data$affi},
options = list(scrollX = TRUE),
......
......@@ -57,7 +57,6 @@ app_ui <- function() {
htmlOutput("txt"),
htmlOutput("help"),
HTML("<br/>"),
# htmlOutput("aln_info"),
DT::DTOutput("table"),
htmlOutput("sequence"),
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