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

DESCRIPTION

 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"),

NEWS.md

@@ -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

R/Utils.R

@@ -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
 }