inst/shinyapps/lipopeptidor/app.R

In DimitriF/lipopeptidor: Lipopeptidor, lipopeptide database for MS structure determination

## ui.R
## lipopeptidor
## copyright: dimitri fichou, 2016

# tlc_denoising module
# rsconnect::deployApp("/home/clau/Dropbox/DLC/inst/shinyapps/tlc_denoising/",account="dimitrif",appName="tlc_denoising")
# shiny::runApp("/home/clau/Dropbox/DLC/inst/shinyapps/tlc_denoising/",launch.browser = T)
library(shiny)
library(dplyr)
library(magrittr)

ui <- fluidPage(title = "Lipopeptidor",
  # 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;}")),
  h2("Lipoptidor"),
  dataTableOutput("table"),
  includeMarkdown('convention.md')
)

server <- function(input,output,session){
  output$table <- renderDataTable({
    my_db <- src_sqlite("www/lipopeptide_db", create = FALSE)
    tbl(my_db,"MS_candidat") %>% as.data.frame(n=-1)
  },options = list(pageLength = 10))
}

shinyApp(ui,server)