Commit fb512c52 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v0.2.8.66 UPDATE: the value < -99 are now written "< -99" instead of "< - 99"...

v0.2.8.66 UPDATE: the value < -99 are now written "< -99" instead of "< - 99" (without space) in the criterion table of the GUI
all the negative values now present the same format (whitouth space after the minus sign)
parent 8080c723
Package: airGRteaching
Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.8.65
Version: 0.2.8.66
Date: 2020-02-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,7 @@
### 0.2.8.65 Release Notes (2020-02-26)
### 0.2.8.66 Release Notes (2020-02-26)
#### New features
......
......@@ -775,10 +775,10 @@ shinyServer(function(input, output, session) {
tabCrit_out <- merge(tabCrit_gauge, tabCrit_val, by = "Criterion", all.x = TRUE)
tabCrit_out <- tabCrit_out[order(tabCrit_out$ID), ]
tabCrit_out <- tabCrit_out[, !colnames(tabCrit_out) %in% "ID"]
tabCrit_out[tabCrit_out <= -99.99] <- - 99.99
tabCrit_out[tabCrit_out <= -99.99] <- -99.99
tabCrit_out[, seq_len(ncol(tabCrit_out))[-1]] <- sapply(seq_len(ncol(tabCrit_out))[-1], function(x) sprintf("%7.2f", tabCrit_out[, x]))
tabCrit_out <- as.data.frame(tabCrit_out)
tabCrit_out[tabCrit_out == " -99.99"] <- "< - 99.99"
tabCrit_out[tabCrit_out == " -99.99"] <- "< -99.99"
colnames(tabCrit_out) <- gsub("Value", "Qsim", colnames(tabCrit_out))
tabCrit_out$Criterion <- gsub("\\[", " [", tabCrit_out$Criterion)
......
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