# Author: benben-miao # Emial: benben.miao@outlook.com # Github: https://github.com/benben-miao # Websit: https://omics.netlify.com # Team: https://hiplot-academic.com # Version: R-4.0.2 # Date: 2020-08-25 # # install.packages("shiny") # install.packages("bs4Dash") # install.packages("DT") # install.packages("colourpicker") # BiocManager::install("maftools") .libPaths(c(getOption("libPathExtra"), .libPaths())) library(pacman) pacman::p_load(shiny, bs4Dash, DT, markdown) wd <- getwd() sif <- sprintf("ssh -p 52018 43.242.96.52 singularity run --containall --bind /tmp --bind /cluster %s/blast.sif", wd) # Define server logic required to draw a histogram shinyServer(function(input, output, session) { # Templates: Please Remain. # # 1.Progress # progress <- Progress$new(session, min = 0, max = 100) # on.exit(progress$close()) # # progress$set( # message = "Calculation in progress", # detail = "This may take a while..." # ) # progress$set(value = 0) # # 2.Download and compression # output$example_download <- downloadHandler( # filename = function(){ # paste("example", # "tar.gz", # sep = ".") # }, # content = function(filename){ # tar(tarfile = filename, # files = "data/", # compression = "gzip", # compression_level = 6, # tar = Sys.getenv("tar")) # } # ) output$html_content <- renderUI({ includeHTML('

Fourier Formula: Sine waves are superimposed into square waves.

') }) } )