diff --git a/R/helper.R b/R/helper.R new file mode 100644 index 0000000..8adef23 --- /dev/null +++ b/R/helper.R @@ -0,0 +1,19 @@ +#' Browse the LifeWatch/EMODnet-Biology Download Toolbox on your browser +#' +#' @return NULL, only opens the Download Toolbox in your browser. +#' @export +#' +#' @examples eurobis_download_toolbox() +eurobis_download_toolbox <- function(){ + url <- eurobis_url$info$toolbox + req <- httr::HEAD(url) + httr::stop_for_status(req) + + if(interactive()){ + message("The LifeWatch/EMODnet-Biology Download Toolbox provides a web interface to fine tune the selection of data from EurOBIS. At the end of the selection there is a button named \"Get webservice url\". Copy&Paste this URL into eurobis_occurrences(url = \"\"). Press ENTER to continue:" ) + readline("") + browseURL(url) + } + + NULL +}