# This is the user-interface definition of a Shiny web application.
# You can find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com
#
shinyUI(bootstrapPage(useShinyjs(),
# Hidden input boxes to save the variable to
HTML(' <input type="text" id="username" name="username" style="display: none;"> '),
includeScript("www/getusername.js"),
# include the js code
# Add custom CSS & Javascript;
tagList(
tags$head(
tags$link(rel="stylesheet", type="text/css",href="style.css"),
tags$script(type="text/javascript", src = "busy.js"),
tags$script(src = "message-handler.js")
)
),dashboardPage(
# Application title
dashboardHeader(title = "opendapR"),
# Sidebar with a slider input for number of bins
dashboardSidebar(
sidebarMenu(
menuItem("Inputs", tabName = "inputs"),
menuItem("Spatial Output", tabName = "spatial"),
menuItem("Temporal Output", tabName = "temporal"))
#uiOutput('queryUI')
),
# Show a plot of the generated distribution
dashboardBody(
#h6('Longnames'),
#verbatimTextOutput('longNames'),
tabItems(
tabItem('inputs',
fluidRow(
box(width = 3,#height=700,
selectInput('src',label = 'Source',choices = c('',src$name),selected = ''),
uiOutput('var'),
sliderInput('xr',label = 'longitude range',min = -20,max=20,value = c(1,3),step = 0.1),
sliderInput('yr',label = 'latitude range',min = 40,max=60,value = c(52,54),step=0.1),
# flowLayout(
#
# textInput('xmin',label = 'xmin',value = 1),
# textInput('xmax',label = 'xmax',value = 3)),
# flowLayout(
# textInput('ymin',label = 'ymin',value = 52),
# textInput('ymax',label = 'ymax',value = 54)
# ),
flowLayout(
dateRangeInput('dateR',label = 'Date Range',start = Sys.Date()-(365*15),end = Sys.Date(),min = '1980-01-01',max = Sys.Date()),
uiOutput('vertUI')),
actionButton('run',label = 'Run')
),
box(width = 9,#height=500,
leafletOutput("map",height = 650)
)
),
fluidRow(
valueBox(width=3,textOutput('query'),subtitle = 'values'),
#box(
# ),
box(width=3,
verbatimTextOutput('varSummary')),
box(width=6,
verbatimTextOutput('queryout'),
downloadButton(outputId = 'downloadData',label = 'Download')
)
)),
tabItem('spatial',
box(width=3,
flowLayout(
selectInput('spstat','Statistic',
choices = c('mean','median','min','max',
'p5','p95','sum','sd','n')),
selectInput('spfacet','Facet',
choices = c('None','Month','Year','Month+Year')),
checkboxInput(inputId = 'splog',label = 'log10 scale')
)
),
box(width=9,plotOutput('SPplot',height = 700))
),
tabItem('temporal',
box(plotOutput('TSplot')),
box(
flowLayout(
checkboxInput(inputId = 'tslog',label = 'log10 scale'),
checkboxInput(inputId = 'tslm',label = ' linear fit')
)
)
#tableOutput('dims'),
)
)
))
,
div(class = "busy",
h4("working..."),
h2(HTML('<i class="fa fa-cog fa-spin"></i>')),
singleton(
tags$head(tags$script(src = "message-handler.js"))
)
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.