Commit 4131d7ce authored by unknown's avatar unknown
Browse files

v0.1.3.4 in ShinyGR, code simplified to highlight the criterion used during calibration

parent 538ba924
Package: airGRteaching
Type: Package
Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Application)
Version: 0.1.3.3
Date: 2017-06-13
Version: 0.1.3.4
Date: 2017-06-15
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)
Imports: xts, dygraphs, shiny, plotrix, markdown
......
......@@ -227,7 +227,7 @@ shinyServer(function(input, output, session) {
## Color the cell of the crietaia uses during the calibration
if (CAL_click$valueButton >= 0) {
CellCol <- '<div style="width: 087%; height: 99%; z-index: 0; color: #FFFFFF; background-color: #A4C400; position:absolute; top: 0px; left: 7px; padding:5px;">
CellCol <- '<div style="color: #FFFFFF; background-color: #A4C400; border: 5px solid #A4C400; position:relative; top: 0px; left: 5px; padding: 0px; margin: -5px -0px -8px -10px;">
<span>9999</span></div>'
CellCol_id <- which(tabCrit_out$Criteria == input$TypeCrit)
tabCrit_out[CellCol_id, 1] <- gsub("9999", tabCrit_out[CellCol_id, 1], CellCol)
......
......@@ -152,6 +152,5 @@ navbarPage(title = div("airGRteaching",
icon = icon("cog")),
tabPanel(title = "About" , fluidRow(column(6, includeMarkdown("www/tab_about.md")),
column(5, includeMarkdown("www/tab_authors.md"))),
icon = icon("navicon")),
tags$head(tags$style("#Criteria td{ position:relative; };"))
icon = icon("navicon"))
)
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