Commit 1a1cbc04 authored by unknown's avatar unknown
Browse files

v0.1.5.1 minor revisions of syntax code in the Utils.R file

parent a1de2a7b
Package: airGRteaching
Type: Package
Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Application)
Version: 0.1.5.0
Version: 0.1.5.1
Date: 2017-07-21
Authors@R: c(person("Olivier", "Delaigue", role = c("aut", "cre"), email = "airGR@irstea.fr"), person("Laurent", "Coron", role = c("aut")), person("Pierre", "Brigode", role = c("aut")), person("Guillaume", "Thirel", role = c("ctb")))
Depends: airGR (>= 1.0.8.0)
......
## =================================================================================
## COMMANDS TO AVOID WARNINGS DURING PACKAGE CHECKING WHEN GLOBAL VARIABLES ARE USED
## commands to avoid warnings during package checking when global variables are used
## =================================================================================
if (getRversion() >= "2.15.1") {
......@@ -11,9 +11,8 @@ if (getRversion() >= "2.15.1") {
## =================================================================================
## FUNCTION TO MANAGE THE MODEL UNITS
## function to manage the model units
## =================================================================================
.TypeModelGR <- function(x) {
......@@ -40,7 +39,7 @@ if (getRversion() >= "2.15.1") {
## =================================================================================
## FUNCTION TO PLOT THE GR4J DIAGRAM
## function to plot the gr models diagrams (only GR4J and GR5J)
## =================================================================================
DiagramGR <- function(OutputsModel, Param, SimPer, EventDate, TypeModel) {
......@@ -51,7 +50,7 @@ DiagramGR <- function(OutputsModel, Param, SimPer, EventDate, TypeModel) {
# --------------------------------------------------------------------------------
# Parametres
mgp <- c(3,0.75,0)
mgp <- c(3, 0.75, 0)
col_P <- rgb(066, 139, 202, maxColorValue = 255) #"royalblue"
col_E <- rgb(164, 196, 000, maxColorValue = 255) #"forestgreen"
col_Q <- "orangered"
......@@ -100,7 +99,7 @@ DiagramGR <- function(OutputsModel, Param, SimPer, EventDate, TypeModel) {
tri_L <- -0x25C4
tri_T <- -0x25B2
par(col.axis = par("fg"), cex.axis = 1.3, cex.lab = 1.3)
par(col.axis = par("fg"), cex.axis = 1.3, cex.lab = 1.3, cex = 0.7)
if (.GlobalEnv$.ShinyGR.args$theme == "Cyborg") {
col_mod_bg <- rgb(255-245, 255-245, 255-245, maxColorValue = 255)
......
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