Commit 5b823ff8 authored by Bagueneau Mathias's avatar Bagueneau Mathias
Browse files

- Special styles

parent b82d3be0
......@@ -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'))))
)
......
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