Commit 27264f34 authored by unknown's avatar unknown
Browse files

v0.1.1 all links to airGRscholar are removed

parent 9f3c5e70
Package: airGRteaching
Type: Package
Title: Tools to simplify the use of the airGR hydrological package for education (among others a Shiny application)
Version: 0.1.0
Version: 0.1.1
Date: 2017-01-19
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")))
Author: Olivier Delaigue, Laurent Coron and Pierre Brigode
......
.onLoad <- function(libname, pkgname){
citation("airGRscholar")
}
#! when loaaing airGRscholar
#! when loaaing airGRteaching
.onLoad <- function(libname, pkgname){
print(citation("airGRscholar"))
print(citation("airGRteaching"))
}
##################################################################################
......
......@@ -10,7 +10,7 @@ shiny.SimGR <- function(ObsBV = NULL, DatesR = NULL, Precip = NULL, PotEvap = NU
on.exit(rm(.SimGR.args, envir = .GlobalEnv))
shiny::runApp(system.file("shinySimGR", package = "airGRscholar"), launch.browser = TRUE)
shiny::runApp(system.file("shinySimGR", package = "airGRteaching"), launch.browser = TRUE)
return(NULL)
}
shiny.SimGR4J <- function(ObsGR, Param = c(200, 0, 100, 2), WupPer = NULL, SimPer) {
.GlobalEnv$.SimGR4J.args <- list(ObsGR = ObsGR, Param = Param, WupPer = WupPer, SimPer = SimPer)
on.exit(rm(.SimGR4J.args, envir = .GlobalEnv))
shiny::runApp(system.file("shinySimGR4J", package = "airGRscholar"), launch.browser = TRUE)
shiny::runApp(system.file("shinySimGR4J", package = "airGRteaching"), launch.browser = TRUE)
return(NULL)
}
......@@ -126,7 +126,7 @@ shinyServer(function(input, output, session) {
}
if (getplotType() == 4) {
airGRscholar:::DiagramGR4J(OutputsModel = aaa, Param = Param, SimPer = input$Period, EventDate = input$Event)
airGRteaching:::DiagramGR4J(OutputsModel = aaa, Param = Param, SimPer = input$Period, EventDate = input$Event)
}
if (getplotType() == 3) {
par(mfrow = c(2, 1))
......
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