bug: Change in SGL URL

Refs #1

bug: Change in SGL URL
Refs #1
32e52675 · Dorchies David · dd9c387a · 32e52675 · 32e52675
Commit 32e52675 authored 4 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 5 additions and 5 deletions
+5 -5
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: SGLdataGrabber
 Title: Grab available data from EPTB Seine Grands Lacs web site
-Version: 0.1.0
+Version: 0.1.1
 Authors@R: 
    person(given = "David",
           family = "Dorchies",

--- a/R/sgl.R
+++ b/R/sgl.R
@@ -11,7 +11,7 @@
 #' @importFrom textutils HTMLdecode
 #'
 #' @examples
-#' SGL_GrabVariableListLake("https://seinegrandslacs.fr/fr/quatre-lacs-reservoirs/lac-reservoir-seine")
+#' SGL_GrabVariableListLake("https://seinegrandslacs.fr/quatre-lacs-reservoirs/lac-reservoir-seine")
 #'
 SGL_GrabVariableListLake <- function(URL) {
  r <- httr::GET(URL)
@@ -32,7 +32,7 @@ SGL_GrabVariableListLake <- function(URL) {
 #' SGL_GrabVariableListAll()
 #'
 SGL_GrabVariableListAll <- function(
-  URL = "https://seinegrandslacs.fr/fr/quatre-lacs-reservoirs/lac-reservoir-",
+  URL = "https://seinegrandslacs.fr/quatre-lacs-reservoirs/lac-reservoir-",
  lakes = c("marne", "seine", "aube", "de-panneciere")
 ) {
  do.call(rbind, lapply(paste0(URL, lakes), SGL_GrabVariableListLake))
@@ -50,7 +50,7 @@ SGL_GrabVariableListAll <- function(
 #'
 #' @examples
 #' varlist <- SGL_GrabVariableListLake(
-#'   "https://seinegrandslacs.fr/fr/quatre-lacs-reservoirs/lac-reservoir-seine"
+#'   "https://seinegrandslacs.fr/quatre-lacs-reservoirs/lac-reservoir-seine"
 #' )
 #' SGL_GrabVariable(varlist$link[1])
 #'
@@ -82,7 +82,7 @@ SGL_GrabVariable <- function(URL) {
 #' SGL_GrabAllVariables()
 #'
 SGL_GrabAllVariables <- function(
-  URL = "https://seinegrandslacs.fr/fr/quatre-lacs-reservoirs/lac-reservoir-",
+  URL = "https://seinegrandslacs.fr/quatre-lacs-reservoirs/lac-reservoir-",
  lakes = c("marne", "seine", "aube", "de-panneciere")
 ) {
  lV <- SGL_GrabVariableListAll(URL, lakes)