diff --git a/R/out_parser.R b/R/out_parser.R index 2683201..3f9580f 100644 --- 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 }