library(shiny)
source("server_area_page.R")
source("server_listing_page.R")
shinyServer(function(input,output, session){
server_area_page(input, output, session)
server_listing_page(input, output, session)
output$defenders <- renderImage({
width <- session$clientData$output_defenders_width
if (width > 100) {
width <- 100
}
list(src = "01_DOW_LOGO_COLOR_300-01.png",
contentType = "image/png",
alt = "Defenders of Wildlife", br(), "Endangered Species Program",
width=width)
}, deleteFile=FALSE)
output$yesterday <- renderText({
paste0(as.character(format(Sys.Date()-1, "%m/%d/%Y")), ".")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.