knitr::opts_chunk$set(echo = FALSE) library(grwat) gr_set_locale(params$locale)
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.