Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
HYCAR-Hydro
airGRteaching
Commits
482ee8e0
Commit
482ee8e0
authored
Oct 20, 2020
by
Delaigue Olivier
Browse files
v0.2.10.63 style: minor typo revisions in the Utils file
parent
d81dcb07
Changes
3
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
482ee8e0
Package: airGRteaching
Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.10.6
2
Version: 0.2.10.6
3
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
View file @
482ee8e0
...
...
@@ -4,7 +4,7 @@
### 0.2.10.6
2
Release Notes (2020-10-20)
### 0.2.10.6
3
Release Notes (2020-10-20)
#### Version control and issue tracking
...
...
R/Utils.R
View file @
482ee8e0
...
...
@@ -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
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment