Commit 33d13f2e authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v0.2.9.16 BUG: the colors of plots are now ok when the cyborg or the flatly...

v0.2.9.16 BUG: the colors of plots are now ok when the cyborg or the flatly themes are use in the ShinyGR function
troubles were caused by the commit d8e5fa00
parent d8e5fa00
Package: airGRteaching
Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.9.15
Version: 0.2.9.16
Date: 2020-03-27
Authors@R: c(
person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),
......
......@@ -4,7 +4,16 @@
### 0.2.9.15 Release Notes (2020-03-27)
### 0.2.9.16 Release Notes (2020-03-27)
#### New features
- in the <code>ShinyGR()</code> interface, there is a new tab panel that shows a summary sheets of basin if the name of the dataset contains the code station (8 characters : 1 letter and 7 numbers) of the Banque Hydro French database (so it is available only for the dataset of this database)
#### User-visible changes
- the <code>theme</code> agument of the <code>ShinyGR()<.code> function now works even if the user used the wrong character case
____________________________________________________________________________________
......
......@@ -168,7 +168,7 @@ if (getRversion() >= "2.15.1") {
par(col.axis = par("fg"), cex.axis = 1.3, cex.lab = 1.3, cex = 0.7, mgp = mgp)
if (.GlobalEnv$.ShinyGR.args$theme == "Cyborg") {
if (.GlobalEnv$.ShinyGR.args$theme == "cyborg") {
col_mod_bg <- rgb(255-245, 255-245, 255-245, maxColorValue = 255)
col_mod_bd <- rgb(255-231, 255-231, 255-231, maxColorValue = 255)
}
......
......@@ -480,11 +480,11 @@ shinyServer(function(input, output, session) {
## Graphical parameters
getPlotPar <- reactive({
if (.GlobalEnv$.ShinyGR.args$theme == "Cyborg") {
if (.GlobalEnv$.ShinyGR.args$theme == "cyborg") {
col_bg <- "black"
col_fg <- "white"
par(bg = col_bg, fg = col_fg, col.axis = col_fg, col.lab = col_fg)
} else if (.GlobalEnv$.ShinyGR.args$theme == "Flatly") {
} else if (.GlobalEnv$.ShinyGR.args$theme == "flatly") {
col_bg <- "#2C3E50"
col_fg <- "black"
par(bg = col_bg, fg = col_fg, col.axis = col_bg, col.lab = col_bg)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment