Commit 32e52675 authored by Dorchies David's avatar Dorchies David
Browse files

bug: Change in SGL URL

Refs #1
No related merge requests found
Showing with 5 additions and 5 deletions
+5 -5
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",
......
......@@ -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)
......
Supports Markdown
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