Commit 5927ae25 authored by Bagueneau Mathias's avatar Bagueneau Mathias
Browse files

The final commit

parent 5b823ff8
...@@ -53,7 +53,7 @@ header <- dashboardHeader(tags$li(class="dropdown", # Text for every tabs ...@@ -53,7 +53,7 @@ header <- dashboardHeader(tags$li(class="dropdown", # Text for every tabs
user_date <- Sys.Date() user_date <- Sys.Date()
user_date <- str_split_fixed(user_date, "-", 3) user_date <- str_split_fixed(user_date, "-", 3)
user_month <- user_date[2] user_month <- user_date[2]
if (user_month == "06") { # XMas Special if (user_month == "12") { # XMas Special
app_logo <- "logoxmas.png" app_logo <- "logoxmas.png"
app_title <- "XMas SChnurR" app_title <- "XMas SChnurR"
} else if (user_month == "10") { # Halloween Special } else if (user_month == "10") { # Halloween Special
...@@ -66,7 +66,7 @@ if (user_month == "06") { # XMas Special ...@@ -66,7 +66,7 @@ if (user_month == "06") { # XMas Special
app_logo <- "logosummer.png" app_logo <- "logosummer.png"
app_title <- "Sunny SChnurR" app_title <- "Sunny SChnurR"
} else { } else {
app_logo <- "logo.png" app_logo <- "logo.png" # Normal Style
app_title <- "Shiny SChnurR" app_title <- "Shiny SChnurR"
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment