-
Notifications
You must be signed in to change notification settings - Fork 3
/
global.R
59 lines (48 loc) · 1.75 KB
/
global.R
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
# global.R is sourced when the application is lauched
# dependencies
library(shiny)
library(rStrava)
library(tidyverse)
library(lubridate)
library(httr)
library(jsonlite)
library(glue)
library(DT)
library(leaflet)
library(highcharter)
library(shinyjs)
library(shinydashboard)
library(shinythemes)
library(logging)
library(googlePolylines)
library(shinyjs)
library(tidyquant)
# initialise logging ----
basicConfig()
dir.create('./logs/',showWarnings = F)
addHandler(writeToFile,file=glue('./logs/{strftime(Sys.time(),\'%Y%m%d-%H%M%S\')}.log'))
#addHandler(writeToConsole)
# file dependencies ----
loginfo('Load file depencencies',logger='authentication')
source('./utils.R')
source("./dplyr_verbs.R")
list.files('./modules/',recursive = T,full.names = T,pattern='\\.R$') %>%
walk(source)
# Application options ----
dir.create('cache',showWarnings = F)
cache <- F # whether to load cached data (must have authenticated before)
if (cache) {
loginfo('Use cached credentials and data',logger='authentication')
}
# app misc ----
periods <- list(
'This week' = c(floor_date(Sys.Date()-1,unit = 'week')+1,as.Date(strftime(Sys.Date(),'%Y-%m-%d'))),
'Last 7 days' = c(Sys.Date()-6,Sys.Date()),
'This month' = c(floor_date(Sys.Date(),unit = 'month'),as.Date(strftime(Sys.Date(),'%Y-%m-%d'))),
'Last 30 days' = c(Sys.Date()-29,Sys.Date()),
'This year' = c(floor_date(Sys.Date(),unit = 'year'),Sys.Date()),
'Last week' = c(floor_date(Sys.Date()-1-7,unit = 'week')+1,floor_date(Sys.Date()-1,unit = 'week')),
'Last month' = c(floor_date(Sys.Date(),unit = 'month') - months(1),floor_date(Sys.Date(),'month')-1),
'All time' = c(as.Date('1900-01-01'),as.Date(Sys.Date())),
'Custom' = c(floor_date(Sys.Date()-1,unit = 'week')+1,as.Date(strftime(Sys.Date(),'%Y-%m-%d')))
)