bulk_writer: setting names(x) <- NULL when there is only one value (list or otherwise) to be updated.

This is because R apply treats rows of single values as a matrix, while it treats rows containing lists as (named) list. This has the nasty result of getting subvalues when using to JSON. i.e. computerCodes.actors = [list, of, ids] becomes computerCodes.actors.ids = [list, of, ids].

R/bulk_writer.R

@@ -20,6 +20,7 @@ bulk_writer <- function(x, index = 'maml', varname = 'updated_variable', type) {
   if (length(x) > 2) {
     json <- toJSON(bind_rows(x[-1]), collapse = T)
   } else {
+    names(x) <- NULL
     json <- toJSON(x[-1], collapse = T)
   }
   if (type == 'set') {