- Special styles

app.R

@@ -50,10 +50,32 @@ header <- dashboardHeader(tags$li(class="dropdown", # Text for every tabs
                                   tags$head(HTML("<link rel='icon' href='min.png'>")
                                   )
 ))
-anchor <- tags$a(tags$img(src='logo.png', height='30', width='20'),'Shiny SChnurR', style="color: white") # Logo & Title
+user_date <- Sys.Date()
+user_date <- str_split_fixed(user_date, "-", 3)
+user_month <- user_date[2] 
+if (user_month == "06") { # XMas Special
+  app_logo <- "logoxmas.png"
+  app_title <- "XMas SChnurR"
+} else if  (user_month == "10") { # Halloween Special
+  app_logo <- "logohallo.png"
+  app_title <- "Spooky SChnurR"
+} else if  (user_month == "04") { # Easter Special
+  app_logo <- "logoeaster.png"
+  app_title <- "Easter SChnurR"
+} else if  ((user_month == "07") || (user_month == "08")) { # Summer Special
+  app_logo <- "logosummer.png"
+  app_title <- "Sunny SChnurR"
+} else {
+  app_logo <- "logo.png"
+  app_title <- "Shiny SChnurR"
+}
+
+anchor <- tags$a(tags$img(src=app_logo, height='30', width='20'),app_title, style="color: white") # Logo & Title
 header$children[[2]]$children <- tags$div(tags$head(tags$style(HTML(".name { background-color:  transparent } .content-wrapper, .right-side {background-color: white}"))),anchor)    
 header[["children"]][[2]][["children"]][["name"]] <- "Shiny SChnurR"
 
+
+
 ## SIDEBAR --------
 sidebar <- dashboardSidebar(
   tags$style(type="text/css",
@@ -267,7 +289,7 @@ sidebar <- dashboardSidebar(
   # About Panel --------
   conditionalPanel(condition="input.tabs=='about_item'",
                    fluidRow(
-                     column(1), column(10, tags$img(src='logo.png', height='300', width='175'))))
+                     column(1), column(10, tags$img(src=app_logo, height='300', width='175'))))
 
 )