R/create_json_body.R

In tonyfujs/ddhconnect:

create_json_body <- function(values = list("title" = "Test Create JSON",
                                          "body" = "Test Creation of JSON"),
                             json_formats = ddhconnect::dataset_json_format_lookup,
                             lovs = ddhconnect::get_lovs(),
                             root_url = dkanr::get_url()) {

  values <- map_tids(values, lovs, root_url)

  machine_names <- json_formats$machine_names
  to_update <- subset(json_formats, machine_names %in% names(values))
  json_body <- list()
  for (i in 1:nrow(to_update)) {
    field_name <- to_update[i, 1]
    json_template <- jsonlite::fromJSON(to_update[i, 2])
    if (is.character(json_template[[field_name]])) {
      # title, type, and status
      json_template[[field_name]] <- safe_unbox(safe_assign(values[[field_name]]))
    } else if (is.null(names(json_template[[field_name]]$und))) {
      # controlled vocabulary fields
      json_template[[field_name]]$und <- format_controlled_vocab(values, field_name)
    } else {
      # free text fields
      subfield_name <- names(json_template[[field_name]]$und)
      json_template <- format_free_text(json_template, values, field_name, subfield_name)
    }
    json_body[field_name] <- json_template
  }
  return(jsonlite::toJSON(json_body, auto_unbox = T))
}

format_controlled_vocab <- function(values, field_name) {
  if (is.list(values[[field_name]])) {
    values[[field_name]] <- unlist(values[[field_name]])
  }
  return(values[[field_name]])
}

format_free_text <- function(json_template, values, field_name, subfield_name) {
  if (length(values[[field_name]]) > 1){
    out <- lapply(values[[field_name]], list)
    out <- lapply(out, stats::setNames, subfield_name)
    json_template[[field_name]]$und <- out
  } else {
    json_template[[field_name]]$und[[subfield_name]] <- safe_unbox(safe_assign(values[[field_name]]))
  }
  return(json_template)
}