In tsamsonov/grwat: River Hydrograph Separation and Analysis

knitr::opts_chunk$set(echo = FALSE)

library(grwat)
gr_set_locale(params$locale)

{.tabset}

message('\nGenerating hydrograph separation report for ', params$name, '\n')

if (params$locale == 'RU') {
  knitr::asis_output("## Расчленение гидрографа {#separation}")
} else if (params$locale == 'UA') {
  knitr::asis_output("## Розчленування гідрографа {#separation}")
} else {
  knitr::asis_output("## Hydrograph separation {#separation}")
}

message(' > Plotting separation...\n')
gr_plot_sep(params$sep, years = params$vars$Year, layout = matrix(c(1,2,3,4), nrow=2, byrow=TRUE),
                   temp = params$temp, prec = params$prec, span = params$span,
                   pagebreak = FALSE)

if (params$locale == 'RU') {
  knitr::asis_output("## Межгодичные изменения {#interannual}")
} else if (params$locale == 'UA') {
  knitr::asis_output("## Міжрічні зміни {#interannual}")
} else {
  knitr::asis_output("## Interannual changes {#interannual}")
}

message(' > Testing variables...\n')
tests = gr_test_vars(vars, 
                    year = params$year, 
                    exclude = params$exclude)

message(' > Plotting interannual changes...\n')
gr_plot_vars(vars, 
            exclude = params$exclude,
            tests = tests,
            layout = matrix(c(1,2,3,4), nrow=2, byrow=TRUE),
            pagebreak = FALSE)

if (params$locale == 'RU') {
  knitr::asis_output("## Долгопериодные изменения {#longterm}")
} else if (params$locale == 'UA') {
  knitr::asis_output("## Довгоперіодні зміни {#longterm}")
} else {
  knitr::asis_output("## Long-term changes {#longterm}")
}

message(' > Plotting long-term changes...\n')
gr_plot_minmonth(vars, 
                year = params$year, 
                exclude = params$exclude, 
                tests = tests,
                pagebreak = FALSE)

gr_plot_periods(vars,
               exclude = params$exclude,
               tests = tests,
               layout = matrix(1:8, nrow=4, byrow=TRUE),
               pagebreak = FALSE)

if (params$locale == 'RU') {
  knitr::asis_output("## Матрица расходов {#matrix}")
} else if (params$locale == 'UA') {
  knitr::asis_output("## Матриця витрат {#matrix}")
} else {
  knitr::asis_output("## Runoff matrices {#matrix}")
}

message(' > Plotting runoff matrices...\n')
gr_plot_matrix(sep, type = 'runoff')
gr_plot_matrix(sep, type = 'season')
gr_plot_matrix(sep, type = 'component')

if (params$locale == 'RU') {
  knitr::asis_output("## Тесты {#tests}")
} else if (params$locale == 'UA') {
  knitr::asis_output("## Тести {#tests}")
} else {
  knitr::asis_output("## Statistical tests {#tests}")
}

message(' > Kabling statistical tests...\n')
gr_kable_tests(tests, format = 'html')
gr_plot_tests(tests)

tsamsonov/grwat documentation built on Feb. 10, 2024, 5:55 p.m.