R/serialize_list.R

In ijlyttle/srlst: Serialize Lists into Text-Lists

#' Serialize a list into text
#'
#' This function acts as a text-serializer for lists. One use case is
#'
#' @param x           list, values to be serialized
#' @param delim       character, delimiter to collapse mutiple-value members
#' @param locale      list, directs the formatting functions for each class
#'
#' @return list with same names as \code{x}, all values are \code{\link{character}}
#' @seealso \code{\link{locale}}
#' @examples
#' library("lubridate")
#'
#' query_param <- list(
#'   delay = dseconds(4),
#'   next_steps = c("collate", "send"),
#'   verbose = TRUE
#' )
#'
#' serialize_list(query_param)
#'
#' serialize_list(query_param, delim = " ")
#' @export
#'
serialize_list <- function(x, delim = ",", locale = default_locale()){

  # x has to be a list
  assertthat::assert_that(is.list(x))

  x <- lapply(x, serialize_atomic, locale)
  x <- lapply(x, paste, collapse = delim)

  x
}