Fixes #17

samFarrellDay · samFarrellDay · commit 4b87a65189ff · 2022-05-19T15:38:03.000-04:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: miceRanger
 Title: Multiple Imputation by Chained Equations with Random Forests
-Version: 1.5.0
+Version: 1.5.1
 Authors@R: 
     person(given = "Sam",
            family = "Wilson",
diff --git a/NEWS.md b/NEWS.md
@@ -7,6 +7,9 @@ Accepted by CRAN: 2020-01-19
 
 ## Package Updates  
 
+#### 1.5.1
+Fixed a bug in data.table scoping which caused a rare error.
+
 #### 1.5.0
 Fixed a bug that wouldn't allow data.frames to be imputed.
 
diff --git a/R/completeData.R b/R/completeData.R
@@ -34,7 +34,8 @@ completeData <- function(
     , function(x) {
       dat <- copy(dat)
       for (v in varn) {
-        dat[miceObj$naWhere[,v],(v) := miceObj$finalImps[[x]][[v]]]
+        imps = miceObj$finalImps[[x]][[v]]
+        dat[miceObj$naWhere[,v],(v) := imps]
       }
       return(dat)
     }
diff --git a/cran-comments.md b/cran-comments.md
@@ -1,7 +1,7 @@
 cran-comments
 ================
 
-## miceRanger 1.5.0
+## miceRanger 1.5.1
 Detailed Package Info: https://github.com/farrellday/miceRanger
 
 

Original file line number	Diff line number	Diff line change
`@@ -34,7 +34,8 @@ completeData <- function(`
`34`	`34`	`, function(x) {`
`35`	`35`	`dat <- copy(dat)`
`36`	`36`	`for (v in varn) {`
`37`		`- dat[miceObj$naWhere[,v],(v) := miceObj$finalImps[[x]][[v]]]`
	`37`	`+ imps = miceObj$finalImps[[x]][[v]]`
	`38`	`+ dat[miceObj$naWhere[,v],(v) := imps]`
`38`	`39`	`}`
`39`	`40`	`return(dat)`
`40`	`41`	`}`