app.R 931 Bytes
Newer Older
jlopez's avatar
jlopez committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
library(shiny)
library(shinydashboard)
library(shinyjs)
library(DT)
library(dplyr)
library(devtools)
library(randomcoloR)
library(ggplot2)

source("./R/helper_functions.R", local = T)
source("./R/menugauche.R", local = T)
source("./pages/pages_def_home.R", local = T)

options(encoding = 'UTF-8')

#style <- tags$style(HTML(readLines("www/added_styles.css")) )
UI <- dashboardPage(
  skin = "blue",
  dashboardHeader(title = "RMosquito"),
  dashboardSidebar(MenuGauche),
  dashboardBody(
    
    shinyjs::useShinyjs(),
    #extendShinyjs(text = jscode),
    tags$head(tags$link(rel = "stylesheet", type = "text/css", href = "bootstrap.min.readable.css")) ,
    #tags$head(style),
    
    tabItems(
      tabItem(tabName = "Home",         tabHome)
    )
  )
)


server <- function( input, output, session) {
  
  tutu <<- NULL
  
  listM <<- c()
  
  source("./server/opt_home.R", local=TRUE)
}

shinyApp(ui = UI, server = server)