#271 surv_cnsr: refine argument check

bundfussr · bundfussr · commit 1741964a121a · 2026-03-02T10:07:57.000Z
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ggsurvfit
 Title: Flexible Time-to-Event Figures
-Version: 1.2.0.9000
+Version: 1.2.0.9001
 Authors@R: c(
     person("Daniel D.", "Sjoberg", , "danield.sjoberg@gmail.com", role = c("aut", "cre", "cph"),
            comment = c(ORCID = "0000-0003-0862-2018")),
diff --git a/NEWS.md b/NEWS.md
@@ -1,7 +1,7 @@
 # ggsurvfit (development version)
 
 * `Surv_CNSR()` updated to accept values `>= 1` as censoring values (according
-to CDISC recommendation). (#271)
+to CDISC recommendation). (#271, @bundfussr)
 
 # ggsurvfit 1.2.0
 
diff --git a/R/Surv_CNSR.R b/R/Surv_CNSR.R
@@ -68,8 +68,8 @@ Surv_CNSR <- function(AVAL, CNSR) {
     stop("Expecting arguments 'AVAL' and 'CNSR' to be numeric.")
   }
 
-  if (any(stats::na.omit(CNSR) < 0)) {
-    stop("Expecting 'CNSR' argument to be non-negative (>=0).")
+  if (any(!rlang::is_integerish(CNSR)) || any(stats::na.omit(CNSR) < 0)) {
+    stop("Expecting 'CNSR' argument to be non-negative integer (>=0).")
   }
 
   if (any(AVAL < 0)) {

Original file line number	Diff line number	Diff line change
`@@ -68,8 +68,8 @@ Surv_CNSR <- function(AVAL, CNSR) {`
`68`	`68`	`stop("Expecting arguments 'AVAL' and 'CNSR' to be numeric.")`
`69`	`69`	`}`
`70`	`70`
`71`		`- if (any(stats::na.omit(CNSR) < 0)) {`
`72`		`- stop("Expecting 'CNSR' argument to be non-negative (>=0).")`
	`71`	`+ if (any(!rlang::is_integerish(CNSR)) \|\| any(stats::na.omit(CNSR) < 0)) {`
	`72`	`+ stop("Expecting 'CNSR' argument to be non-negative integer (>=0).")`
`73`	`73`	`}`
`74`	`74`
`75`	`75`	`if (any(AVAL < 0)) {`