diff --git a/.gitignore b/.gitignore index 212868e..de20849 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 ab9fca4..de65756 100644 --- a/SEQTaRget/.Rbuildignore +++ b/SEQTaRget/.Rbuildignore @@ -15,3 +15,4 @@ sticker.R ^pkgdown$ ^docs$ ^README\.Rmd$ +^\.positai$ diff --git a/SEQTaRget/DESCRIPTION b/SEQTaRget/DESCRIPTION index de6664b..f8fa357 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"), diff --git a/SEQTaRget/R/SEQexpand.R b/SEQTaRget/R/SEQexpand.R index 83ef86e..0a42029 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