inst/shiny/beta/app_shinydashboard.R

In folkehelseinstituttet/dashboards_ui: Depreciated - to be removed

## app.R ##
library(shinydashboard)
library(data.table)
library(magrittr)
library(dplyr)
library(ggplot2)

shinyOptions(cache = diskCache("/tmp/", max_size = 50e6), autoreload=TRUE)

source("global.R")
source("barometer.R")
source("signals.R")
source("number_weekly.R")
source("number_daily.R")
source("meminfluensa.R")

header = dashboardHeader(title = "Sykdomspulsen")
sidebar = dashboardSidebar(
  sidebarMenu(id = "tabs",
    menuItem("Nyheter", tabName = "nyheter", icon = icon("newspaper")),
    menuItem("Oversikt (ukentlig)", tabName = "oversikt_ukentlig", icon = icon("th")),
    menuItem("Signaler (ukentlig)", tabName = "signaler_ukentlig", icon = icon("exclamation-triangle")),
    menuItem("Antall (ukentlig)", tabName = "antall_ukentlig", icon = icon("chart-line")),
    menuItem("Antall (daglig)", tabName = "antall_daglig", icon = icon("chart-line")),
    menuItem("MeM-Influensa", tabName = "meminfluensa", icon = icon("snowflake"))
    #menuItemOutput("menuitem")
  )
)
body = dashboardBody(
  tabItems(
    # First tab content
    tabItem(
      tabName = "nyheter",
      fluidRow(
        column(width = 2),
        column(
          width = 8,
          box(
            title = "2019-09-20 / Ny nettside", width = NULL, solidHeader = TRUE, status = "primary",
            "Vi har byttet ut den gamle nettsiden med en ny for å gi dere en raskere opplevelse og for å være mer i tråd med kommunikasjonsavdelingens anbefalinger om grafer. Håper dere liker det!"
          ),
          box(
            title = "2019-09-11 / MeM terskler til influensa tilsatt", width = NULL, solidHeader = TRUE, status = "primary",
            "Nå kan du se på MeM terskler til influensa under fanen 'MeM-Influensa'."
          ),
          box(
            title = "2016-08-01 / Økning i aldersgruppen 15-19 år", width = NULL, solidHeader = TRUE, status = "primary",
            "Fra august 2016 er det en økning i antall konsultasjoner i aldersgruppen 15-19 år grunnet behov for sykemelding ved fravær i den videregående skole."
          ),
          box(
            title = "2015-01-01 / Lansering av Sykdomspulsen", width = NULL, solidHeader = TRUE, status = "primary",
            "Velkommen til Sykdomspulsen!"
          )
        ),
        column(width = 2)
      )
    ),

    tabItem(tabName = "oversikt_ukentlig",
            barometerUI("barometer", "Counter #1", GLOBAL=GLOBAL)
    ),

    tabItem(tabName = "signaler_ukentlig",
            signalsUI("signals", "Counter #1", GLOBAL=GLOBAL)
    ),

    tabItem(tabName = "antall_ukentlig",
            number_weeklyUI("number_weekly", "Counter #1", GLOBAL=GLOBAL)
    ),

    tabItem(tabName = "antall_daglig",
            number_dailyUI("number_daily", "Counter #1", GLOBAL=GLOBAL)
    ),

    tabItem(tabName = "meminfluensa",
            meminfluensaUI("meminfluensa", "Counter #1", GLOBAL=GLOBAL)
    )
  )
)

ui <- dashboardPage(
  header = header,
  sidebar = sidebar,
  body = body
)

server <- function(input, output) {
  callModule(barometerServer, "barometer", GLOBAL=GLOBAL)
  callModule(signalsServer, "signals", GLOBAL=GLOBAL)
  callModule(number_weeklyServer, "number_weekly", GLOBAL=GLOBAL)
  callModule(number_dailyServer, "number_daily", GLOBAL=GLOBAL)
  callModule(meminfluensaServer, "meminfluensa", GLOBAL=GLOBAL)
#
#   output$menuitem <- renderMenu({
#     retval <- menuItem(" ")
#     if(input$tabs=="oversikt_ukentlig"){
#       retval <- menuItem("Instillinger",startExpanded = TRUE
#       )
#     } else if(input$tabs=="antall_ukentlig"){
#       weeklyMunicipChoices <- reactive({
#         if (is.null(input$weeklyCounty))
#           return(NULL)
#         if (input$weeklyCounty == "Norge") {
#           return("Norge")
#         } else {
#           data <- fhidata::norway_locations_current[county_code==input$weeklyCounty]
#           x <- data$municip_code
#           names(x) <- data$municip_name
#
#           return(c("Fylke", x))
#         }
#       })
#
#       selectInput("weeklyValue", "Verdier", as.list(GLOBAL$weeklyValues), selected = GLOBAL$weeklyValues[1])
#       retval <- menuItem("Instillinger",startExpanded = TRUE,
#         selectInput("weeklyType", "Sykdom/Symptom", as.list(GLOBAL$weeklyTypes), selected = GLOBAL$weeklyTypes[1]),
#         selectInput("weeklyAge", "Alder", as.list(GLOBAL$weeklyAges), selected = "Totalt"),
#         selectInput("weeklyCounty", "Fylke", as.list(GLOBAL$weeklyCounties), selected = GLOBAL$weeklyCounties[1]),
#         renderUI({
#           selectInput("weeklyMunicip", "Kommune", as.list(weeklyMunicipChoices()), selected = weeklyMunicipChoices()[1])
#         }),
#         selectInput("weeklyValue", "Verdier", as.list(GLOBAL$weeklyValues), selected = GLOBAL$weeklyValues[1])
#       )
#     }
#
#     return(retval)
#   })


}

shinyApp(ui, server)

#  shiny::runApp('inst/shiny/dashboard', port = 4989, host = "0.0.0.0")