Remove backports (#672)

r-lib · Nov 16, 2019 · b50e5ee · b50e5ee
1 parent d715c69
commit b50e5ee
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -26,7 +26,6 @@ BugReports: https://github.com/r-lib/vctrs/issues
 Depends: 
     R (>= 3.2)
 Imports: 
-    backports,
     ellipsis (>= 0.2.0),
     digest,
     glue,

diff --git a/R/utils.R b/R/utils.R
@@ -1,5 +1,9 @@
+str_dup <- function(x, times) {
+  paste0(rep(x, times = times), collapse = "")
+}
+
 indent <- function(x, n) {
-  pad <- strrep(" ", n)
+  pad <- str_dup(" ", n)
   map_chr(x, gsub, pattern = "(\n+)", replacement = paste0("\\1", pad))
 }
 

diff --git a/R/zzz.R b/R/zzz.R
@@ -1,7 +1,5 @@
 # nocov start
 .onLoad <- function(libname, pkgname) {
-  backports::import(pkgname, "strrep")
-
   s3_register("generics::as.factor", "vctrs_vctr")
   s3_register("generics::as.ordered", "vctrs_vctr")
   s3_register("generics::as.difftime", "vctrs_vctr")

diff --git a/tests/testthat/test-type.R b/tests/testthat/test-type.R
@@ -57,7 +57,7 @@ test_that("vec_ptype_common() includes index in argument tag", {
   df2 <- tibble(x = tibble(y = tibble(z = "a")))
 
   # Create a column name too large for default buffer
-  nm <- strrep("foobarfoobar", 10)
+  nm <- str_dup("foobarfoobar", 10)
   large_df1 <- set_names(df1, nm)
   large_df2 <- set_names(df2, nm)