Merge pull request #20 from mrcaseb/transition-to-curl-package

Drop RCurl dependency and use curl instead

DESCRIPTION

@@ -19,12 +19,12 @@ License: MIT + file LICENSE
 Depends:
     R (>= 3.5)
 Imports:
+    curl,
     grid,
     grDevices,
     markdown,
     rlang,
     Rcpp,
-    RCurl,
     png,
     jpeg,
     stringr,

NEWS.md

@@ -1,6 +1,6 @@
 # gridtext 0.1.4.9000
 
-No changes yet.
+- Transition to curl package and drop RCurl dependency
 
 # gridtext 0.1.4
 

R/read-image.R

@@ -11,7 +11,7 @@ read_image <- function(path) {
 
 get_file <- function(path) {
   if (is_url(path)) {
-    RCurl::getBinaryURL(path)
+    curl::curl_fetch_memory(path)$content
   } else {
     path
   }

src/RcppExports.cpp

@@ -6,6 +6,11 @@
 
 using namespace Rcpp;
 
+#ifdef RCPP_USE_GLOBAL_ROSTREAM
+Rcpp::Rostream<true>&  Rcpp::Rcout = Rcpp::Rcpp_cout_get();
+Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
+#endif
+
 // bl_make_null_box
 BoxPtr<GridRenderer> bl_make_null_box(double width_pt, double height_pt);
 RcppExport SEXP _gridtext_bl_make_null_box(SEXP width_ptSEXP, SEXP height_ptSEXP) {

tests/testthat/test-get_file.R

@@ -0,0 +1,10 @@
+test_that("get_file works", {
+  # skip test on cran because the url could be broken in the future
+  skip_on_cran()
+  # get_file returns raw data if it's an url and a character path if it's
+  # a local path. That's why we test it with the function read_image that calls it
+  expect_identical(
+    read_image("https://upload.wikimedia.org/wikipedia/commons/6/62/Biedronka.drs.png"),
+    read_image("../figs/test_image.png")
+  )
+})