Move curl to strong dependence; gracefully fail when there is no inte…

…rnet

DESCRIPTION

@@ -37,14 +37,14 @@ Imports:
     quantmod (>= 0.4.18),
     zoo (>= 1.8.9),
     matrixStats (>= 0.60.0),
-    Rcpp (>= 1.0.7)
+    Rcpp (>= 1.0.7),
+    curl (>= 4.3.2)
 LinkingTo: Rcpp
 RoxygenNote: 7.1.1
 Suggests: 
     knitr (>= 1.33),
     rmarkdown (>= 2.10),
     purrr (>= 0.3.4),
-    curl (>= 4.3.2),
     shiny (>= 1.6.0),
     shinyFeedback (>= 0.4.0),
     shinyWidgets (>= 0.6.0),

R/get_prices_from_tickers.R

@@ -55,6 +55,10 @@ get_prices_from_tickers <- function(..., start, end,
     quote <- match.arg(quote)
     retclass <- match.arg(retclass)
     tickers <- c(...)
+    if (!curl::has_internet()) {
+        message("Please make sure you have an internet connection.")
+        return(invisible(NULL))
+    }
     # for avoiding check inside the loop, the if/else is done outside the loop,
     # that is why so many repetition of the code. Done for optimality and speed.
     if(retclass == "list") {

R/run_app.R

@@ -12,8 +12,8 @@ run_app <- function() {
     check_installation("purrr")
 
     packages <- c(
-        "curl", "shiny", "shinyFeedback", "shinyWidgets", "DT", "bslib",
-        "stringr", "magrittr", "formattable", "dplyr"
+        "shiny", "shinyFeedback", "shinyWidgets", "DT", "bslib", "stringr",
+        "magrittr", "formattable", "dplyr"
     )
 
     purrr::walk(packages, check_installation)