remove tiny file_init() overhead from calls to character()

ropensci · Jan 3, 2025 · edb59d6 · edb59d6
1 parent 4be227a
commit edb59d6
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/class_file.R b/R/class_file.R
@@ -1,6 +1,6 @@
 file_init <- function(
-  path = character(0),
-  stage = character(0),
+  path = character0,
+  stage = character0,
   hash = NA_character_,
   time = NA_character_,
   size = NA_character_,

diff --git a/R/utils_data.R b/R/utils_data.R
@@ -72,3 +72,5 @@ supported_args <- function(fun, args) {
 tar_envir_base <- new.env(parent = baseenv())
 
 tar_envir_empty <- new.env(parent = emptyenv())
+
+character0 <- character(0L)
Original file line number	Diff line number	Diff line change
Expand Up		@@ -72,3 +72,5 @@ supported_args <- function(fun, args) {
		tar_envir_base <- new.env(parent = baseenv())

		tar_envir_empty <- new.env(parent = emptyenv())

		character0 <- character(0L)