From 2e9335201c62cc33886c7d18fca90d3bb6a9a1cb Mon Sep 17 00:00:00 2001 From: Abel Vertesy Date: Mon, 31 Aug 2026 21:56:05 +0200 Subject: [PATCH 1/2] Fix malformed parFlags2 assignment --- R/Stringendo.R | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/R/Stringendo.R b/R/Stringendo.R index 887491b..45784cd 100644 --- a/R/Stringendo.R +++ b/R/Stringendo.R @@ -1610,13 +1610,14 @@ parFlags2 <- function(prefix = ".", pasteflg = TRUE, coll.char = ".", coll.char.intra = "_") { + stopifnot( + is.character(prefix), length(prefix) == 1, + is.logical(pasteflg), length(pasteflg) == 1, + is.character(coll.char), length(coll.char) == 1, + is.character(coll.char.intra), length(coll.char.intra) == 1 + ) val <- c(...) - - - - - - <- as.character(as.list(match.call())[-(1:2)]) + namez <- as.character(as.list(match.call())[-(1:2)]) names(val) <- namez flg <- if (pasteflg) { paste0( From f3f543f14543b8b6937ea83b86c507777b6816c2 Mon Sep 17 00:00:00 2001 From: Abel Vertesy Date: Mon, 31 Aug 2026 22:08:46 +0200 Subject: [PATCH 2/2] Update name assignment for vector 'val' Refactor name assignment for 'val' using match.call. This should address Codex's comment. --- R/Stringendo.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/Stringendo.R b/R/Stringendo.R index 45784cd..04f2fa0 100644 --- a/R/Stringendo.R +++ b/R/Stringendo.R @@ -1617,8 +1617,8 @@ parFlags2 <- function(prefix = ".", is.character(coll.char.intra), length(coll.char.intra) == 1 ) val <- c(...) - namez <- as.character(as.list(match.call())[-(1:2)]) - names(val) <- namez + names(val) <- as.character(match.call(expand.dots = FALSE)[["..."]]) + flg <- if (pasteflg) { paste0( prefix,