Commit 482ee8e0 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v0.2.10.63 style: minor typo revisions in the Utils file

parent d81dcb07
Package: airGRteaching
Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.10.62
Version: 0.2.10.63
Date: 2020-10-20
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.10.62 Release Notes (2020-10-20)
### 0.2.10.63 Release Notes (2020-10-20)
#### Version control and issue tracking
......
......@@ -31,7 +31,8 @@ if (getRversion() >= "2.15.1") {
.CheckUrl <- function(url, timeout = 2) {
con <- url(description = url)
check <- suppressWarnings(try(open.connection(con = con, open = "rt", timeout = t), silent = TRUE)[1])
check <- suppressWarnings(try(open.connection(con = con, open = "rt", timeout = timeout),
silent = TRUE)[1])
suppressWarnings(try(close.connection(con), silent = TRUE))
is.null(check)
}
......@@ -47,8 +48,8 @@ if (getRversion() >= "2.15.1") {
naQ_rle <- rle(FUN(x))
naQ_ide <- cumsum(naQ_rle$lengths)[naQ_rle$values] + 1
naQ_ids <- naQ_ide - naQ_rle$lengths[naQ_rle$values] - 1
idNA <- data.frame(start = naQ_ids, stop = naQ_ide)
idNA$start <- ifelse(idNA$start < 1 , 1 , idNA$start)
idNA <- data.frame(start = naQ_ids, stop = naQ_ide)
idNA$start <- ifelse(idNA$start < 1 , 1 , idNA$start)
idNA$stop <- ifelse(idNA$stop > length(x), length(x), idNA$stop )
idNA
}
......
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