ui.R
In ln1267/dWaSSI: dWaSSI-C model
#
# This is the user-interface definition of a dWaSSI-C web application. You can
# run the application by clicking 'Run App' above.
#
library(shiny)
# Define UI for dWaSSI-C application
shinyUI(
navbarPage(
"dWaSSIC model",
# Tab: About ----
tabPanel("About",
shinythemes::themeSelector(), # <--- Add this somewhere in the UI
column(10, wellPanel(
#tags$img(src = 'coweeta_logo.jpg',width=600),
tags$h4("Description"),
tags$html("This is the distributed R-based Water Supply and Stress Index ", tags$b("(WaSSI)")," model.
The WaSSI model is a monthly hydrologic model developed by Sun et al. (2011).
The key component of WaSSI mode is evapotranspiration (ET),
which is calculated by an empirical model with leaf area index (LAI),
precipitation (P) and potential evapotranspiration (PET).
In order to consider the effect of soil water storage on water balance,
the actual ET was calculated by the Sacramento Soil Moisture Accounting (SAC-SMA) model.
More details of the WaSSI model can be found on the WaSSI model's ", tags$a("website",href="https://forestthreats.org/research/tools/WaSSI/")),
tags$br(),
tags$hr(),
h4("Author:"),
p("Dr Ning Liu.",p(),a("Email: LN1267@Gmail.com",href="mailto:LN1267@Gmail.com")),
h4("Terms:"),
p("This app is under the ",a("MIT",href="https://opensource.org/licenses/MIT"),"License.")
))
),
# Tab: Upload data ----
tabPanel("Upload input data",
sidebarLayout(
sidebarPanel(
# Application title
titlePanel("Select inputs data for dWaSSIC model"),
## HTML: introduction of the input data
HTML("<p>The input data of dWaSSIC model includes:</p>
<ol>
<li>Watershed characters for each Hydrologic research unit (HRU);</li>
<li>Monthly climate time series for each HRU;</li>
<li>Monthly LAI time series for each land cover in each HRU;</li>
<li>Soil parameters for each HRU.</li>
</ol>"),
tags$hr(),
# Action: Read input data ----
actionButton("readdata","Read all input data!"),
HTML("<p>You can prepare those files as a 'csv/txt' format.</p>
"),
## Choose each file----
fileInput("Input_cellinfo", "Cellinfo [BasinID, Latitude, Longitude, Elevation_m, Area_m2 and ratio for each lc]"),
fileInput("Input_climate", "Monthly Climate [BasinID, Year, Month, Precip_mm, Tmean_C]"),
fileInput("Input_LAI", "Monthly LAI [BasinID, Year, Month, and LAI for each lc]"),
fileInput("Input_soilinfo", "Soil info [BasinID, uztwm,uzfwm,uzk,zperc,rexp,lztwm,lzfsm,lzfpm,lzsk,lzpk,pfree]")
),
# MainPanel for upload data----
mainPanel(
## Output: Summary of the selected plotting file----
h2("The summary of the input file"),
tags$h6("Process log: "),
verbatimTextOutput("printreadinginfo"),
verbatimTextOutput("printsummary")
)
)
),
# Tab: Prepare input data ----
tabPanel("Input preparation",
sidebarLayout(
sidebarPanel(
# Application title
h2("Upload watershed Shapefile and other raster data"),
HTML("<p>Please chose a '*gml' file to upload.</p>
"),
fileInput('Input_basin', 'Choose watershed shapefile', multiple=FALSE, accept="gml"),
# Action: Plot basin ----
actionButton("processrasters","process input!"),
# Action: Process input ----
actionButton("plotrasterdata","Plot input data!"),
actionButton("saveInputData","Save input data!"),
downloadButton("downloadInputData", label = "Export input data"),
#h2("Upload all original raster files"),
HTML("<p>Please chose a '*.tif' or '*.nc' monthly stacked precipitation and temperation file to upload.</p>
"),
fileInput('Input_dem_raster', 'Choose elevation raster file (Optional)', multiple=FALSE, accept="tif"),
checkboxInput("updateLc", "Update land cover", FALSE),
fileInput('Input_lc_raster', 'Choose land cover raster file', multiple=FALSE, accept="tif"),
textInput("yearStartClimate", "Start year of climate data","2000",width = "50%"),
checkboxInput("updateClimate", "Update", FALSE),
fileInput('Input_temp_raster', 'Choose monthly temperature raster file', multiple=FALSE, accept="tif"),
fileInput('Input_precp_raster', 'Choose monthly precipitation raster file', multiple=FALSE, accept="tif"),
textInput("yearStartLai", "Start year of Lai data","2000",width = "50%"),
checkboxInput("updateLai", "Update", FALSE),
# shinyFilesButton("Input_lai_fpath", "Choose a file" ,
# title = "Please select a file:", multiple = FALSE,
# buttonType = "default", class = NULL),
textInput("Input_lai_fpath", "Type in the lai data path","~"),
fileInput('Input_lai_raster', 'Choose monthly LAI raster file', multiple=FALSE, accept="tif"),
checkboxInput("updateSoil", "Update", FALSE),
fileInput('Input_soil_raster', 'Choose Soil raster file', multiple=FALSE, accept="tif"),
checkboxInput("updateImp", "Update", FALSE),
fileInput('Input_imp_raster', 'Choose impverious raster file [Optional]', multiple=FALSE, accept="tif")
),
# MainPanel for upload data----
mainPanel(
## Output: Head of the selected plotting file----
# h2("The Map of the Watershed"),
# leafletOutput("basinmap"),
h2("Plot an interactice map and print summary of processed input."),
HTML("<p>It will take a while for the data process. Please wait ...</p>
"),
leafletOutput("basinrastermap"),
tags$h4("Input Summary:"),
tags$h5("We recommand upload all raster are in the same projection and cellsize!"),
tags$h5("It will take more time to process,
if your land cover data's cellsize is much smaller than your LAI data."),
#verbatimTextOutput("printprocessinginfo"),
verbatimTextOutput("prntraster")
)
)
),
# Tab: Plot data ----
tabPanel("Plot input data",
sidebarLayout(
sidebarPanel(
# Application title
## Plot the information----
h2("Select a dataset to plot"),
## Input: Select a file to plot----
selectInput("daname2plot", "Name of the dataset.",
choices=c("Climate","LAI","Cellinfo","Soilinfo")),
## Input: Select a variable ----
textInput("plotvar", "Type the variable name for ploting","Ppt_mm"),
textInput("varnames", "Type the printing name for those variables","Ppt_mm"),
textInput("plotBasinID", "Type the BasinID name for ploting","1"),
#textInput("Basinnames", "Type the printing name for those Basins","ID1"),
# Input: Year for plotting ---
sliderInput("plotyrrange", "Select the year range", 1970, 2017, value = c(2000, 2010)),
# Input: Month ----
checkboxGroupInput("plotmonths","Select the months to plot",c(1:12),selected=c(1:12),inline=T),
checkboxInput("plotannualinput", "Annual", FALSE),
# Action: plot input data ----
actionButton("plotdata","Plot the selected input data!")
),
# MainPanel for ploting data----
mainPanel(
h2("Plot the selected input dataset!"),
tags$html("This is the processing log:"),
verbatimTextOutput("printplottinginfo"),
verbatimTextOutput("printbasininfo"),
plotOutput("Plotinput",height = 800)
)
)
),
# Tab: Simulation-----
tabPanel("Run the simulation",
sidebarLayout(
sidebarPanel(
# Application title
titlePanel("Select the outlet station's BasinID and timeperiod for simulation"),
## HTML: Introduction ----
## Input: Select a Station ----
textInput("StationID", "Type the BasinID of the hydrologic station!","0"),
fileInput('Input_routpar', 'Choose flow routing parameter file (Optional)', multiple=FALSE, accept="csv"),
selectInput("Input_routingmethod", "Select method for flow routing.",
choices=c("NULL","AreaWeighted","Method1","Method2","Method3")),
fileInput('Input_ETmodel', 'Choose your ET model file (Optional)', multiple=FALSE, accept="csv"),
fileInput('Input_WUEmodel', 'Choose your WUE model file (Optional)', multiple=FALSE, accept="csv"),
# Action: Subset data ----
#actionButton("subSimData","Subset the selected dataset"),
# Input: Simulation period
dateRangeInput("dateSimulation","Select the date range for simulation"),
#sliderInput("dateSimulation", "Year simulation", 1970, 2017, value = c(2000, 2010)),
# Input: Checkbox if calibate model ----
checkboxInput("Calibration", "Calibration", FALSE),
## Action: run model
actionButton("runSimulation","Run Simulation!"),
#actionButton("savesimOut","Save output!"),
downloadButton("downloadoutputData", label = "Export output data!"),
tags$hr(),
tags$h5("Simulation log:"),
verbatimTextOutput("printsimulatinginfo")
),
# Mainpanel: of Simulation----
mainPanel(
h2("Plot the time series of averaged result for the whole area"),
# Input: Year for plotting ---
#sliderInput("plotSimDaterange", "Year plot", 1970, 2017, value = c(2000, 2010)),
dateRangeInput("plotSimDaterange","Select the date range for plotting"),
#textInput("plotSimuBasinID", "Type the BasinID for plotting!","0"),
# Action: Plot simulated result ---
# Input: Result plot variables ----
checkboxGroupInput("plotvars","Select the variables to plot",c("P","ET","Q"),selected="Q",inline = T),
checkboxInput("plotannualoutput", "Annual", FALSE),
actionButton("plotsimOut","Plot"),
verbatimTextOutput("printsimplotinfo"),
# Output: ploted simulated result
plotOutput("SimOutplot")
)
)
),
# Tab: Plot simulated result-----
tabPanel("Plot Result",
sidebarLayout(
sidebarPanel(
# Application title
h2("Upload watershed Shapefile"),
HTML("<p>Please chose a '*gml' file to upload.</p>
"),
fileInput('Input_basin1', 'Choose watershed shapefile', multiple=FALSE, accept="gml"),
# Input: Result plot variables ----
#checkboxGroupInput("mapvars","Select the layers to plot",c("P","T","ET","Q"),selected="Q",inline = T),
selectInput("mapvars", "Select the layers to plot.",
choices=c("P","T","ET","Q","LAI","Flow","AccFlow")),
selectInput("mapbrkmethod", "Select the method for breaking the intervals.",
choices=c("equal","quantile", "fisher-jenks","q6", "geom", "arith")),
#checkboxInput("plotannualoutput1", "Annual", FALSE),
actionButton("plotresultmap","Plot"),
verbatimTextOutput("printplotresultinfo")
),
# MainPanel for upload data----
mainPanel(
## Output: Head of the selected plotting file----
# h2("The Map of the Watershed"),
# leafletOutput("basinmap"),
h2("Maping the simulated result."),
HTML("<p>It will take a while for the data process. Please wait ...</p>
"),
# leafletOutput("outresultmap")
plotOutput("outresultmap",width = "auto",height= "600px")
)
)
),
# Tab: Help-----
tabPanel("Help",
column(5, wellPanel(
tags$h4("Instruction for using this app:"),
tags$ol(
tags$li("Read the target format input data;"),
tags$li("Process data to the target format from the scratch;"),
tags$li("Plot the input data, if you want;"),
tags$li("Run the simulation and save the result;")
),
tags$hr(),
tags$h4("Framework of dWaSSI model:"),
tags$img(src = 'Framework_WaSSIC.png',width=400)
))
)
)
)
ln1267/dWaSSI documentation built on Dec. 3, 2019, 4:39 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#
# This is the user-interface definition of a dWaSSI-C web application. You can
# run the application by clicking 'Run App' above.
#
library(shiny)
# Define UI for dWaSSI-C application
shinyUI(
navbarPage(
"dWaSSIC model",
# Tab: About ----
tabPanel("About",
shinythemes::themeSelector(), # <--- Add this somewhere in the UI
column(10, wellPanel(
#tags$img(src = 'coweeta_logo.jpg',width=600),
tags$h4("Description"),
tags$html("This is the distributed R-based Water Supply and Stress Index ", tags$b("(WaSSI)")," model.
The WaSSI model is a monthly hydrologic model developed by Sun et al. (2011).
The key component of WaSSI mode is evapotranspiration (ET),
which is calculated by an empirical model with leaf area index (LAI),
precipitation (P) and potential evapotranspiration (PET).
In order to consider the effect of soil water storage on water balance,
the actual ET was calculated by the Sacramento Soil Moisture Accounting (SAC-SMA) model.
More details of the WaSSI model can be found on the WaSSI model's ", tags$a("website",href="https://forestthreats.org/research/tools/WaSSI/")),
tags$br(),
tags$hr(),
h4("Author:"),
p("Dr Ning Liu.",p(),a("Email: LN1267@Gmail.com",href="mailto:LN1267@Gmail.com")),
h4("Terms:"),
p("This app is under the ",a("MIT",href="https://opensource.org/licenses/MIT"),"License.")
))
),
# Tab: Upload data ----
tabPanel("Upload input data",
sidebarLayout(
sidebarPanel(
# Application title
titlePanel("Select inputs data for dWaSSIC model"),
## HTML: introduction of the input data
HTML("<p>The input data of dWaSSIC model includes:</p>
<ol>
<li>Watershed characters for each Hydrologic research unit (HRU);</li>
<li>Monthly climate time series for each HRU;</li>
<li>Monthly LAI time series for each land cover in each HRU;</li>
<li>Soil parameters for each HRU.</li>
</ol>"),
tags$hr(),
# Action: Read input data ----
actionButton("readdata","Read all input data!"),
HTML("<p>You can prepare those files as a 'csv/txt' format.</p>
"),
## Choose each file----
fileInput("Input_cellinfo", "Cellinfo [BasinID, Latitude, Longitude, Elevation_m, Area_m2 and ratio for each lc]"),
fileInput("Input_climate", "Monthly Climate [BasinID, Year, Month, Precip_mm, Tmean_C]"),
fileInput("Input_LAI", "Monthly LAI [BasinID, Year, Month, and LAI for each lc]"),
fileInput("Input_soilinfo", "Soil info [BasinID, uztwm,uzfwm,uzk,zperc,rexp,lztwm,lzfsm,lzfpm,lzsk,lzpk,pfree]")
),
# MainPanel for upload data----
mainPanel(
## Output: Summary of the selected plotting file----
h2("The summary of the input file"),
tags$h6("Process log: "),
verbatimTextOutput("printreadinginfo"),
verbatimTextOutput("printsummary")
)
)
),
# Tab: Prepare input data ----
tabPanel("Input preparation",
sidebarLayout(
sidebarPanel(
# Application title
h2("Upload watershed Shapefile and other raster data"),
HTML("<p>Please chose a '*gml' file to upload.</p>
"),
fileInput('Input_basin', 'Choose watershed shapefile', multiple=FALSE, accept="gml"),
# Action: Plot basin ----
actionButton("processrasters","process input!"),
# Action: Process input ----
actionButton("plotrasterdata","Plot input data!"),
actionButton("saveInputData","Save input data!"),
downloadButton("downloadInputData", label = "Export input data"),
#h2("Upload all original raster files"),
HTML("<p>Please chose a '*.tif' or '*.nc' monthly stacked precipitation and temperation file to upload.</p>
"),
fileInput('Input_dem_raster', 'Choose elevation raster file (Optional)', multiple=FALSE, accept="tif"),
checkboxInput("updateLc", "Update land cover", FALSE),
fileInput('Input_lc_raster', 'Choose land cover raster file', multiple=FALSE, accept="tif"),
textInput("yearStartClimate", "Start year of climate data","2000",width = "50%"),
checkboxInput("updateClimate", "Update", FALSE),
fileInput('Input_temp_raster', 'Choose monthly temperature raster file', multiple=FALSE, accept="tif"),
fileInput('Input_precp_raster', 'Choose monthly precipitation raster file', multiple=FALSE, accept="tif"),
textInput("yearStartLai", "Start year of Lai data","2000",width = "50%"),
checkboxInput("updateLai", "Update", FALSE),
# shinyFilesButton("Input_lai_fpath", "Choose a file" ,
# title = "Please select a file:", multiple = FALSE,
# buttonType = "default", class = NULL),
textInput("Input_lai_fpath", "Type in the lai data path","~"),
fileInput('Input_lai_raster', 'Choose monthly LAI raster file', multiple=FALSE, accept="tif"),
checkboxInput("updateSoil", "Update", FALSE),
fileInput('Input_soil_raster', 'Choose Soil raster file', multiple=FALSE, accept="tif"),
checkboxInput("updateImp", "Update", FALSE),
fileInput('Input_imp_raster', 'Choose impverious raster file [Optional]', multiple=FALSE, accept="tif")
),
# MainPanel for upload data----
mainPanel(
## Output: Head of the selected plotting file----
# h2("The Map of the Watershed"),
# leafletOutput("basinmap"),
h2("Plot an interactice map and print summary of processed input."),
HTML("<p>It will take a while for the data process. Please wait ...</p>
"),
leafletOutput("basinrastermap"),
tags$h4("Input Summary:"),
tags$h5("We recommand upload all raster are in the same projection and cellsize!"),
tags$h5("It will take more time to process,
if your land cover data's cellsize is much smaller than your LAI data."),
#verbatimTextOutput("printprocessinginfo"),
verbatimTextOutput("prntraster")
)
)
),
# Tab: Plot data ----
tabPanel("Plot input data",
sidebarLayout(
sidebarPanel(
# Application title
## Plot the information----
h2("Select a dataset to plot"),
## Input: Select a file to plot----
selectInput("daname2plot", "Name of the dataset.",
choices=c("Climate","LAI","Cellinfo","Soilinfo")),
## Input: Select a variable ----
textInput("plotvar", "Type the variable name for ploting","Ppt_mm"),
textInput("varnames", "Type the printing name for those variables","Ppt_mm"),
textInput("plotBasinID", "Type the BasinID name for ploting","1"),
#textInput("Basinnames", "Type the printing name for those Basins","ID1"),
# Input: Year for plotting ---
sliderInput("plotyrrange", "Select the year range", 1970, 2017, value = c(2000, 2010)),
# Input: Month ----
checkboxGroupInput("plotmonths","Select the months to plot",c(1:12),selected=c(1:12),inline=T),
checkboxInput("plotannualinput", "Annual", FALSE),
# Action: plot input data ----
actionButton("plotdata","Plot the selected input data!")
),
# MainPanel for ploting data----
mainPanel(
h2("Plot the selected input dataset!"),
tags$html("This is the processing log:"),
verbatimTextOutput("printplottinginfo"),
verbatimTextOutput("printbasininfo"),
plotOutput("Plotinput",height = 800)
)
)
),
# Tab: Simulation-----
tabPanel("Run the simulation",
sidebarLayout(
sidebarPanel(
# Application title
titlePanel("Select the outlet station's BasinID and timeperiod for simulation"),
## HTML: Introduction ----
## Input: Select a Station ----
textInput("StationID", "Type the BasinID of the hydrologic station!","0"),
fileInput('Input_routpar', 'Choose flow routing parameter file (Optional)', multiple=FALSE, accept="csv"),
selectInput("Input_routingmethod", "Select method for flow routing.",
choices=c("NULL","AreaWeighted","Method1","Method2","Method3")),
fileInput('Input_ETmodel', 'Choose your ET model file (Optional)', multiple=FALSE, accept="csv"),
fileInput('Input_WUEmodel', 'Choose your WUE model file (Optional)', multiple=FALSE, accept="csv"),
# Action: Subset data ----
#actionButton("subSimData","Subset the selected dataset"),
# Input: Simulation period
dateRangeInput("dateSimulation","Select the date range for simulation"),
#sliderInput("dateSimulation", "Year simulation", 1970, 2017, value = c(2000, 2010)),
# Input: Checkbox if calibate model ----
checkboxInput("Calibration", "Calibration", FALSE),
## Action: run model
actionButton("runSimulation","Run Simulation!"),
#actionButton("savesimOut","Save output!"),
downloadButton("downloadoutputData", label = "Export output data!"),
tags$hr(),
tags$h5("Simulation log:"),
verbatimTextOutput("printsimulatinginfo")
),
# Mainpanel: of Simulation----
mainPanel(
h2("Plot the time series of averaged result for the whole area"),
# Input: Year for plotting ---
#sliderInput("plotSimDaterange", "Year plot", 1970, 2017, value = c(2000, 2010)),
dateRangeInput("plotSimDaterange","Select the date range for plotting"),
#textInput("plotSimuBasinID", "Type the BasinID for plotting!","0"),
# Action: Plot simulated result ---
# Input: Result plot variables ----
checkboxGroupInput("plotvars","Select the variables to plot",c("P","ET","Q"),selected="Q",inline = T),
checkboxInput("plotannualoutput", "Annual", FALSE),
actionButton("plotsimOut","Plot"),
verbatimTextOutput("printsimplotinfo"),
# Output: ploted simulated result
plotOutput("SimOutplot")
)
)
),
# Tab: Plot simulated result-----
tabPanel("Plot Result",
sidebarLayout(
sidebarPanel(
# Application title
h2("Upload watershed Shapefile"),
HTML("<p>Please chose a '*gml' file to upload.</p>
"),
fileInput('Input_basin1', 'Choose watershed shapefile', multiple=FALSE, accept="gml"),
# Input: Result plot variables ----
#checkboxGroupInput("mapvars","Select the layers to plot",c("P","T","ET","Q"),selected="Q",inline = T),
selectInput("mapvars", "Select the layers to plot.",
choices=c("P","T","ET","Q","LAI","Flow","AccFlow")),
selectInput("mapbrkmethod", "Select the method for breaking the intervals.",
choices=c("equal","quantile", "fisher-jenks","q6", "geom", "arith")),
#checkboxInput("plotannualoutput1", "Annual", FALSE),
actionButton("plotresultmap","Plot"),
verbatimTextOutput("printplotresultinfo")
),
# MainPanel for upload data----
mainPanel(
## Output: Head of the selected plotting file----
# h2("The Map of the Watershed"),
# leafletOutput("basinmap"),
h2("Maping the simulated result."),
HTML("<p>It will take a while for the data process. Please wait ...</p>
"),
# leafletOutput("outresultmap")
plotOutput("outresultmap",width = "auto",height= "600px")
)
)
),
# Tab: Help-----
tabPanel("Help",
column(5, wellPanel(
tags$h4("Instruction for using this app:"),
tags$ol(
tags$li("Read the target format input data;"),
tags$li("Process data to the target format from the scratch;"),
tags$li("Plot the input data, if you want;"),
tags$li("Run the simulation and save the result;")
),
tags$hr(),
tags$h4("Framework of dWaSSI model:"),
tags$img(src = 'Framework_WaSSIC.png',width=400)
))
)
)
)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.