Nothing
# *------------------------------------------------------------------
# | PROGRAM NAME: header.R
# | DATE: 29/03/2018
# | CREATED BY: David Granjon
# *----------------------------------------------------------------
# | PURPOSE: This code contains the header of shinydashboard.
# | It is modified compared to classic header: help button,
# | userInfo card.
# *-----------------------------------------------------------------
# | UPDATES: 29/03/2018 (last update)
# |
# |
# *------------------------------------------------------------------
header <- shinydashboardPlus::dashboardHeader(
title = HTML(paste0(
'<span class = "logo-lg">CaPO4 Teaching Tool</span>',
'<img src= "logos/online-learning.svg">'
)),
titleWidth = 300,
# user box (see generate_userInfo.R and model_utils.R)
userInfoUi(id = "rat"),
# help button
helpCaPO4Ui(id = "help_section"),
# full screen option
leftUi = tagList(fullScreenUI(id = "fullScreenTrigger"))
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.