From 2c1a50ad8c49b6f0a93f2ceff61c519fe8349508 Mon Sep 17 00:00:00 2001 From: Graham Stark Date: Thu, 11 Jan 2024 23:15:18 +0100 Subject: [PATCH 1/2] Update specifyInput.R Avoiding: "Error in df[[strata]] <- factor(1) : object of type 'closure' is not subsettable" df should 'data', I think. And rename strata to avoid a name clash. --- R/specifyInput.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/specifyInput.R b/R/specifyInput.R index a1ca86b..49542c7 100644 --- a/R/specifyInput.R +++ b/R/specifyInput.R @@ -60,8 +60,8 @@ specifyInput <- function(data, hhid, hhsize=NULL, pid=NULL, weight=NULL, } }else{ # initialize dummy strata used by other methods in package - strata <- paste(c("DUMMY_STRATA_",sample(c(letters,LETTERS),8,replace=TRUE)), collapse="") - df[[strata]] <- factor(1) + strata_col <- paste(c("DUMMY_STRATA_",sample(c(letters,LETTERS),8,replace=TRUE)), collapse="") + data[[strata_col]] <- factor(1) } data <- as.data.table(data) From 054d2a2dc71b5dc90ceb3f128aa1070d619ea4d6 Mon Sep 17 00:00:00 2001 From: Graham Stark Date: Fri, 12 Jan 2024 08:43:41 +0100 Subject: [PATCH 2/2] "object of type 'closure' is not subsettable" fix --- R/specifyInput.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/specifyInput.R b/R/specifyInput.R index 49542c7..b9c1fa6 100644 --- a/R/specifyInput.R +++ b/R/specifyInput.R @@ -60,8 +60,8 @@ specifyInput <- function(data, hhid, hhsize=NULL, pid=NULL, weight=NULL, } }else{ # initialize dummy strata used by other methods in package - strata_col <- paste(c("DUMMY_STRATA_",sample(c(letters,LETTERS),8,replace=TRUE)), collapse="") - data[[strata_col]] <- factor(1) + strata <- paste(c("DUMMY_STRATA_",sample(c(letters,LETTERS),8,replace=TRUE)), collapse="") + data[[strata]] <- factor(1) } data <- as.data.table(data)