select 'none'

b16f0541 · Midoux Cedric · cfd6e78d · b16f0541
Commit b16f0541 authored 5 years ago by Midoux Cedric
Hide whitespace changes
Inline Side-by-side

Showing

with 5 additions and 2 deletions
+5 -2
--- a/panels/dataInput.R
+++ b/panels/dataInput.R
@@ -281,8 +281,9 @@ transformSample <- function() {
    radioButtons(
      inputId = "transformFun",
      label = "Transform function : ",
-      selected = character(0),
+      selected = "none",
-      choices = c("Proportional Transformation" = "prop", 
+      choices = c("None" = "none", 
+                  "Proportional Transformation" = "prop", 
                  "Square Root Transformation" = "sqrt", 
                  "Centered Log-Ratio (CLR) Transformation" = "clr")
    ),
@@ -299,6 +300,7 @@ transformSample <- function() {
 output$transformFun <- renderText({
  validate(need(input$transformFun, ""))
  switch (input$transformFun,
+          "none" = "",
          "prop" = paste("count_to_prop <- function(x) {return( x / sum(x) )}", 
                         "data_prop <- transform_sample_counts(data, count_to_prop)",
                         sep = "\n"),
@@ -323,6 +325,7 @@ observeEvent(input$transformData, {
  } else {
    try(
      switch (input$transformFun,
+              "none" = {return(physeq())},
              "prop" = {
                count_to_prop <- function(x) {return( x / sum(x) )}
                physeq(transform_sample_counts(physeq(), count_to_prop))