elasticizer: update rbindlist implementation

master
Your Name 4 years ago
parent 18d47762d2
commit dc40fbbb19

@ -142,7 +142,7 @@ elasticizer <- function(query, src = T, index = 'maml', es_pwd = .rs.askForPassw
} else { } else {
# Old merging code # Old merging code
# out <- bind_rows(out, jsonlite:::flatten(json$hits$hits)) # out <- bind_rows(out, jsonlite:::flatten(json$hits$hits))
out <- rbindlist(list(out, jsonlite:::flatten(json$hits$hits))) out <- rbindlist(list(out, jsonlite:::flatten(json$hits$hits)),use.names = T, fill = T)
} }
} }
} }

Loading…
Cancel
Save