Skip to content
Snippets Groups Projects
Commit 4eb4715a authored by Svajunas Plunge's avatar Svajunas Plunge
Browse files

check() issues fixed

parent ea742b2e
No related branches found
No related tags found
No related merge requests found
^.*\.Rproj$
^\.Rproj\.user$
test.R
\ No newline at end of file
......@@ -27,3 +27,4 @@ vignettes/*.pdf
# Shiny token, see https://shiny.rstudio.com/articles/shinyapps.html
rsconnect/
.Rproj.user
test.R
\ No newline at end of file
......@@ -10,7 +10,23 @@ Author: c(person("Svajunas", "Plunge",
role = c("aut", "cre")))
Maintainer: Christoph Schuerz <christoph.schuerz@ufz.de>
Description: A collection of functions for verification and evaluation of SWAT+ model setups.
Imports:
data.table,
dplyr,
ggplot2,
lubridate,
patchwork,
processx,
purrr,
readr,
stringr,
tibble,
tidyr,
tidyselect
Suggests:
datasets,
stats
License: GPL-3
Encoding: UTF-8
LazyData: true
RoxygenNote: 7.2.1
RoxygenNote: 7.2.3
utils::globalVariables(c("%&&%", "%//%", ".", "crop", "day", "ecanopy", "eplant", "esoil", "et",
"hru", "hydro", "id", "jday", "lu_mgt", "mgt", "mon", "name", "op_data1",
"op_data1_trig", "op_data3", "op_issue", "op_typ", "op_var", "operation",
"pet", "phuplant", "plant_bioms", "plnt_com", "precip", "qtile", "rainfall",
"rhum rm_skp", "schedule", "snofall", "snomlt", "soil", "solarad", "starts_with",
"tile", "time_out", "tmn", "tmpav", "tmx", "topo", "val_max", "val_mean",
"val_min", "value", "value_sum", "var", "var1", "var2", "var3", "var4", "var5",
"wndspd", "yr", "rhum", "rm_skp"))
......@@ -105,7 +105,7 @@ plot_climate_annual <- function(sim_verify) {
geom_errorbarh(data = tmp_tbl, aes(xmax = yr + 0.5, xmin = yr - 0.5, y = value, height = 0, col = name), lwd = 1) +
scale_color_manual(values = c('dodgerblue4', 'black', 'tomato3')) +
# geom_step(data = pet_tbl, aes(x = yr, y = value_sum), direction = 'mid') +
labs(y = 'Temperature (°C)') +
labs(y = 'Temperature (\u00b0C)') +
theme_bw() +
theme(axis.text.x = element_blank(),
axis.title.x = element_blank(),
......@@ -155,7 +155,7 @@ plot_climate_annual <- function(sim_verify) {
select(name, value_sum)
gg_tmp_stat <- plot_stat_text(tmp_stat,
vars = c('tmn day', 'tmpav', 'tmx day'),
c(5,4,3), '°C', F, digit = 1)
c(5,4,3), '\u00b0C', F, digit = 1)
gg_slr_stat <- plot_stat_text(clim_data_annual, vars = c('solarad'),
c(5), 'MJ m^-2', F)
......
......@@ -7,11 +7,13 @@
plot_variable_at_harvkill(sim_verify, variable, years = 1900:2100)
}
\arguments{
\item{sim_verify}{Simulation output of the function \code{run_swat_verification()}.
To plot the heat units at least the output option \code{outputs = 'mgt'} must
be set in \code{run_swat_verification()}}
\item{sim_verify}{Simulation output of the function
\code{run_swat_verification()}.
To plot the heat units at least the output option \code{outputs = 'mgt'}
must be set in \code{run_swat_verification()}}
\item{variable}{Selected variable to be plotted. Must be one of: 'phu', 'yield', 'bioms'}
\item{variable}{Selected variable to be plotted. Must be one of: 'phu',
'yield', 'bioms'}
\item{years}{Simulated years which are aggregated in the boxplot}
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment