variables scoping fixes.

UofUEpiBio · Oct 11, 2024 · 130610d · 130610d
1 parent 2201d51
commit 130610d
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/R/PCORI_within_group_model.R b/R/PCORI_within_group_model.R
@@ -157,8 +157,8 @@ fit_PCORI_within_group_model <- function(
         compute_influence_terms(
             left_join(
                 data_all_with_transforms,
-                followup_data |> select(..id.., ..time.., baseline_intensity),
-                by=join_by(..id.., ..time..)
+                followup_data |> select('..id..', '..time..', 'baseline_intensity'),
+                by=join_by('..id..', '..time..')
             ),
             base = base,
             alpha = a,

diff --git a/R/fit_PCORI_within_group_model_old.R b/R/fit_PCORI_within_group_model_old.R
@@ -43,6 +43,7 @@ fit_PCORI_within_group_model_old <- function(
         model.frame(data=filter(group.data, (!!time.var) <= !!End), na.action = na.pass) |>
         arrange(!!id.var, !!time.var)
 
+    visit.number <- NULL
     model.data <- mf |>
         group_by(!!id.var) |>
         mutate(

diff --git a/R/jackknife.R b/R/jackknife.R
@@ -1,4 +1,4 @@
-
+globalVariables(c('alpha', add=TRUE))
 
 cross_validate <- function(original.object, progress = interactive()){
     data <- original.object$data