server.R

library(shinydashboard)

shinyServer
(function(input, output, session)
{
  checkNull <- function(x) {
    if (!exists(as.character(substitute(x)))) {
      return(NULL)
    } else if (is.null(x)) {
      return(NULL)
    } else if (length(x) > 1) {
      return(x)
    }
    else if (x %in% c(0, "", NA, "NULL")) {
      return(NULL)
    } else {
      return(x)
    }
  }
  
  beautifulTable <- function(data)  {
    DT::datatable(
      data = data,
      rownames = FALSE,
      filter = "top",
      extensions = c("Buttons", "ColReorder", "FixedColumns"),
      options = list(
        dom = "lBtip",
        pageLength = 10,
        lengthMenu = list(c(10, 25, 50, 100,-1), list('10', '25', '50', '100', 'All')),
        buttons = list(
          'colvis',
          list(
            extend = 'collection',
            buttons = c('copy', 'csv', 'excel', 'pdf'),
            text = 'Download'
          )
        ),
        colReorder = TRUE,
        scrollX = TRUE,
        fixedColumns = list(leftColumns = 1, rightColumns = 0)
      ),
      width = "auto",
      height = "auto"
    )
  }
  
  source({
    "https://raw.githubusercontent.com/mahendra-mariadassou/phyloseq-extended/master/R/load-extra-functions.R"
  })
  
  source("internals.R")
  
  data16S <- reactive({
    ## BIOM input
    if (input$dataset == "input")
    {
      ## Unhappy path
      if (is.null(input$fileBiom))
        return()
      
      ## Happy path
      ## Import biom
      d <- .import_biom(input)
      
      ## Format tax table
      tax_table(d) <- .format_tax_table(tax_table(d))
      
      ## import metadata and store it in phyloseq object
      sample_data(d) <- .import_sample_data(input, d)