From 18be7a38a676eebd495214f0ffa125ab9108bb2d Mon Sep 17 00:00:00 2001 From: Tom Palmer Date: Tue, 28 Apr 2026 09:58:18 +0100 Subject: [PATCH 1/3] Additions to ignore for new version of RStudio --- .gitignore | 2 ++ SEQTaRget/.Rbuildignore | 1 + 2 files changed, 3 insertions(+) diff --git a/.gitignore b/.gitignore index 212868e2..de20849c 100644 --- a/.gitignore +++ b/.gitignore @@ -54,3 +54,5 @@ rsconnect/ docs/ SEQTaRget/docs *.html +.Rproj.user +.positai diff --git a/SEQTaRget/.Rbuildignore b/SEQTaRget/.Rbuildignore index ab9fca48..de657560 100644 --- a/SEQTaRget/.Rbuildignore +++ b/SEQTaRget/.Rbuildignore @@ -15,3 +15,4 @@ sticker.R ^pkgdown$ ^docs$ ^README\.Rmd$ +^\.positai$ From b9cbc736372007fcdcfddbec746d7e8cb8e740dc Mon Sep 17 00:00:00 2001 From: Tom Palmer Date: Tue, 28 Apr 2026 10:01:34 +0100 Subject: [PATCH 2/3] Skip protocol censoring in SEQexpand when expand.only = TRUE When expand.only = TRUE the user wants the raw expanded dataset for inspection, so applying censoring is counterproductive and discards rows they need. --- SEQTaRget/R/SEQexpand.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SEQTaRget/R/SEQexpand.R b/SEQTaRget/R/SEQexpand.R index 83ef86eb..0a42029f 100644 --- a/SEQTaRget/R/SEQexpand.R +++ b/SEQTaRget/R/SEQexpand.R @@ -104,7 +104,7 @@ SEQexpand <- function(params) { )] } - if (params@method == "censoring") { + if (params@method == "censoring" && !params@expand.only) { out[, switch := FALSE] if (params@deviation) { # Censoring on deviation condition From 39b2039e19463a94ce4866b204134c96cc7667bf Mon Sep 17 00:00:00 2001 From: Tom Palmer Date: Tue, 28 Apr 2026 10:01:53 +0100 Subject: [PATCH 3/3] Bump version --- SEQTaRget/DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SEQTaRget/DESCRIPTION b/SEQTaRget/DESCRIPTION index de6664bc..f8fa3571 100644 --- a/SEQTaRget/DESCRIPTION +++ b/SEQTaRget/DESCRIPTION @@ -1,7 +1,7 @@ Package: SEQTaRget Type: Package Title: Sequential Trial Emulation -Version: 1.4.1.9001 +Version: 1.4.1.9002 Authors@R: c(person(given = "Ryan", family = "O'Dea", role = c("aut", "cre"),