Nothing
interface_logo <- "logos/interface.jpeg"
uzh_logo <- "logos/uzh.svg"
unil_logo <- "logos/unil.svg"
nccr_logo <- "logos/nccr.svg"
left_footer <- fluidRow(
column(
width = 3,
align = "center",
"The Interface Group",
a(
href = "http://interfacegroup.ch/people/",
target = "_blank",
img(src = interface_logo, height = "30px")
)
),
column(
width = 3,
align = "center",
"With",
a(
href = "https://shiny.rstudio.com",
target = "_blank",
img(src = "https://www.rstudio.com/wp-content/uploads/2014/04/shiny.png", height = "30px")
),
"by",
a(
href = "http://www.rstudio.com",
target = "_blank",
img(src = "https://www.rstudio.com/wp-content/uploads/2014/07/RStudio-Logo-Blue-Gray.png", height = "30px")
)
),
column(
width = 6,
align = "center",
a(
href = "http://www.nccr-kidney.ch",
target = "_blank",
img(src = nccr_logo, height = "50px")
),
a(
href = "http://www.uzh.ch/de.html",
target = "_blank",
img(src = uzh_logo, height = "30px")
),
"and",
a(
href = "https://www.unil.ch/fbm/fr/home.html",
target = "_blank",
img(src = unil_logo, height = "30px")
)
)
)
footer <- bs4DashFooter(left_footer)
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.