enough trying to do fancy R tricks... just use rep_len

Genentech · Jan 11, 2024 · 0b27a68 · 0b27a68
1 parent 4594612
commit 0b27a68
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/srcref_df.R b/R/srcref_df.R
@@ -90,7 +90,7 @@ pkg_srcrefs_df <- function(x) {
   srcs <- pkg_srcrefs(x)
   df <- as.data.frame(srcs)
   has_srcref <- vapply(df$srcref, inherits, logical(1L), "srcref")
-  df$namespace[] <- NA_character_
+  df$namespace <- rep_len(NA_character_, nrow(df))
 
   df[has_srcref, "namespace"] <- vapply(
     srcs[has_srcref],