Commit 21bb940b authored by unknown's avatar unknown
Browse files

v0.2.1.0 bug fixed in the print of the Criteria table of ShinyGR to avoid bad...

v0.2.1.0 bug fixed in the print of the Criteria table of ShinyGR to avoid bad behavior on Unix system
parent 65d23cf1
Package: airGRteaching
Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.0.9
Date: 2018-03-15
Version: 0.2.1.0
Date: 2018-03-20
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.9.43)
Imports: dygraphs (>= 1.1.1.4), htmlwidgets (>= 1.0), markdown, plotrix, shiny, shinyjs, xts
......
......@@ -671,9 +671,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[, 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[grepl("-99.99", tabCrit_out)] <- "< - 99.99"
colnames(tabCrit_out) <- gsub("Value", "Qsim", colnames(tabCrit_out))
## Color the cell of the crietaia uses during the calibration
......
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