inst/listings-summary/server.R

In jacob-ogre/ESAListings: An R Data package for U.S. Endangered Species Act Listed Species

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")), ".")
  })
})