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
user_date <- Sys.Date()
user_date <- str_split_fixed(user_date, "-", 3)
user_month <- user_date[2]
if (user_month == "06") { # XMas Special
if (user_month == "12") { # XMas Special
app_logo <- "logoxmas.png"
app_title <- "XMas SChnurR"
} else if (user_month == "10") { # Halloween Special
......@@ -66,7 +66,7 @@ if (user_month == "06") { # XMas Special
app_logo <- "logosummer.png"
app_title <- "Sunny SChnurR"
} else {
app_logo <- "logo.png"
app_logo <- "logo.png" # Normal Style
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