support lower versions of R

yihui · Aug 2, 2024 · 350984a · 350984a
1 parent cb24413
commit 350984a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: xfun
 Type: Package
 Title: Supporting Functions for Packages Maintained by 'Yihui Xie'
-Version: 0.46.4
+Version: 0.46.5
 Authors@R: c(
   person("Yihui", "Xie", role = c("aut", "cre", "cph"), email = "[email protected]", comment = c(ORCID = "0000-0003-0645-5666")),
   person("Wush", "Wu", role = "ctb"),

diff --git a/R/utils.R b/R/utils.R
@@ -356,3 +356,8 @@ handle_error = function(
 
 # a shorthand for rm(list =, envir =)
 rm_vars = function(x, envir, ...) rm(list = x, envir = envir, ...)
+
+# for R < 3.3.x
+if (!exists('startsWith', baseenv(), inherits = TRUE)) startsWith = function(x, s) {
+  substring(x, 1, nchar(s)) == s
+}