out_parser: updated fncols function

4 years ago · 3cdb68b196
parent dc40fbbb19
commit 3cdb68b196
1 changed files with 1 additions and 1 deletions
--- a/R/out_parser.R
+++ b/R/out_parser.R
@ -16,7 +16,7 @@ out_parser <- function(out, field, clean = F) {
  fncols <- function(data, cname) {
    add <-cname[!cname%in%names(data)]
-    if(length(add)!=0) data[add] <- NA
+    if(length(add)!=0) data[, (add) := (NA)]
    data
  }