inst/scaffold/shiny_dashboard/server.R

In petermeissner/scaffold: Scaffolding and Skeletton Framework

#### Description ###########################################

# Script with definition of SERVER function
#



#### Startup Logging #######################################

cat("server loaded at ", as.character(Sys.time()), "\n")



#### Packages ##############################################

library(shiny)
library(shinydashboard)



#### Server function #######################################

server <-
  function(input, output, session) {




    #### Session wide reactive data storage ####################################


    SESSIONDATA <-
      reactiveValues(
        server_start_chr   = as.character(Sys.time()),
        server_start       = Sys.time()
      )



  }