inst/shiny/sea_ice_coverage/ui.R

In leonawicz/snapapps: Shiny Apps Collection

library(shinythemes)
library(snaputils)
addResourcePath("res", snap_res("images"))

tabPanelAbout <- source("about.R")$value
headerPanel_2 <- function(title, h, windowTitle = title) {
  tagList(
    tags$head(tags$title(windowTitle)),
      h(title)
    )
}

shinyUI(fluidPage(theme = shinytheme("spacelab"),
	headerPanel_2(
		HTML('Modeled Arctic Sea Ice Coverage
			<a href="http://accap.uaf.edu" target="_blank"><img align="right" style="margin-left: 15px;" src="res/accap.png" /></a>
			<a href="http://snap.uaf.edu" target="_blank"><img align="right" src="res/snap_acronym_color.svg" height="28px" /></a>'
		), h3, "Modeled Arctic Sea Ice Coverage"
	),
	fluidRow(column(4,
		wellPanel(
			conditionalPanel( # Tab 1 only, part 1
				condition = "input.tsp == 'ts'",
				selectInput("dataset", "Choose RCP 8.5 sea ice model:", choices = modnames, selected = modnames[6], multiple = T, width = "100%"),
				sliderInput("yrs", "Year range:", 1860, 2099, c(1979, 2011), step = 1, sep = "", width = "100%"),
				selectInput("mo", "Seasonal period:", choices = c(mos, "Dec-Mar Avg", "Jun-Sep Avg", "Annual Avg"), selected = "Jan")
			),
			conditionalPanel( # Tab 2 only, part 1
				condition = "input.tsp == 'map'",
				selectInput("decade", "Decade:", choices = paste(seq(1860, 2090, by = 10), "s", sep = ""), selected = "2010s"),
				selectInput("mo2", "Month:", choices = mos, selected = "Jan")
			)
		),
		conditionalPanel( # Tab 1 only,  part 2
			condition = "input.tsp == 'ts'",
			wellPanel(
			  checkboxInput("regpts", "Show sample points", TRUE),
				checkboxInput("reglns", "Show time series line(s)", TRUE),
				checkboxInput("reglnslm1", "Linear trend", FALSE),
				checkboxInput("reglnslm2", "Quadratic trend", FALSE),
				checkboxInput("reglnslo", "Locally weighted LOESS", FALSE),
				uiOutput("loSpan"),
				checkboxInput("fix.xy", "Full fixed (x, y) limits", value = F),
				uiOutput("semiTrans"),
				checkboxInput("showObs", "Show Observations (1979 - 2011)", FALSE)
			)
		),
		wellPanel(
			conditionalPanel( # Tab 1 only,  part 3
				condition = "input.tsp == 'ts'",
				downloadButton("dlCurPlotTS", "Download Graphic", class = "btn-block btn-primary")
			),
			conditionalPanel( # Tab 2 only,  part 3
				condition = "input.tsp == 'map'",
				downloadButton("dlCurPlotMap", "Download Graphic", class = "btn-block btn-primary")
			)
		)
	),
	column(8,
		tabsetPanel(
			tabPanel(
				"Extent Totals",
				h4("RCP 8.5 Sea Ice Extent Totals"),
				plotOutput("plot", width = "100%", height = "auto"),
				conditionalPanel("input.reglnslm1 == true",
					p(strong("Linear Model")),
					verbatimTextOutput("lm1_summary")
				),
				conditionalPanel("input.reglnslm2 == true",
					p(strong("Linear Model w/ Quadratic Term")),
					verbatimTextOutput("lm2_summary")
				),
				conditionalPanel("input.reglnslo == true",
					p(strong("Locally Weighted LOESS Model")),
					verbatimTextOutput("lo_summary")
				),
			value = "ts"),
			tabPanel("Concentration Map [Experimental]", h4("RCP 8.5 Sea Ice Concentration"), plotOutput("plot2", width = "100%", height = "auto"), value = "map"),
			tabPanelAbout(),
			id = "tsp"
		)
	))
))