R/make.R

In meerapatelmd/broca: Helpers for Reading and Writing Data

#' @title
#' Make a Tribble Skeleton
#' @inheritParams args
#' @seealso
#'  \code{\link[dplyr]{mutate_if}}
#' @rdname make_trbl
#' @family make functions
#' @export
#' @importFrom dplyr mutate_if

make_trbl <-
  function(data, quote = "\"") {
    data <-
      data %>%
      dplyr::mutate_if(is.factor, as.character) %>%
      dplyr::mutate_if(is.character, ~ sprintf("%s%s%s", quote, ., quote))

    output <- vector()
    for (i in 1:nrow(data)) {
      output <-
        c(
          output,
          data[i, ] %>%
            unlist() %>%
            paste(collapse = ", ")
        )
    }

    output_colnames <-
      paste0("~", colnames(data)) %>%
      paste(collapse = ",")

    c(
      "tibble::tribble(",
      output_colnames,
      output,
      ")"
    ) %>%
      paste0(collapse = ",\n") %>%
      cat()
  }