inst/shinyapps/tlc_var_selector/app.R

# tlc_denoising
#

library(shiny)
library(DLC)
source('tlc_var_selector.R')

ui <- fluidPage(
  # tags$head(tags$style(HTML(".box {height: 90vh; overflow-y: auto;}"))),
  tags$head(tags$style(HTML(".col-sm-6 {border-style: solid;border-color: black; border-width:1px;}"))), #background: Lavender;
  tags$head(tags$style(type="text/css", "tfoot {display: table-header-group}")),
  tags$head(tags$style(HTML(".shiny-output-error-validation {color: red;font-size: 24px}"))),
  tags$head(tags$style(type="text/css", ".shiny-progress .progress {position: absolute;width: 100%;top: 100px;height: 10px;margin: 0px;}")),
  tags$head(tags$style(type="text/css", ".shiny-progress .progress-text {position: absolute;border-style: solid;
                                 border-width: 2px;right: 10px;height: 36px;width: 50%;background-color: #EEF8FF;margin: 0px;padding: 2px 3px;opacity: 1;}")),
  tags$head(tags$style(type="text/css", ".btn {border-radius: 20px; font-size: 30px;}")),
  tlc_var_selectorUI('tlc_var_selector')
)

server <- function(input,output,session){
  tlc_var_selector <- callModule(tlc_var_selectorServer,id='tlc_var_selector')
}

shinyApp(ui,server)
DimitriF/DLC documentation built on May 27, 2018, 9:04 a.m.