R/utils_character.R

In wlandau/targets: Dynamic Function-Oriented 'Make'-Like Declarative Pipelines

capitalize <- function(x) {
  x <- tolower(x)
  substr(x, 1, 1) <- toupper(substr(x, 1, 1))
  x
}

string_sub_expression <- function(x) {
  x <- gsub("^expression\\(", "", x)
  x <- gsub("\\)$", "", x)
  x
}

produce_lines <- function(x) {
  lines <- unlist(strsplit(as.character(x), split = "\n"))
  if_any(
    length(x),
    paste(lines, collapse = "\n    "),
    tar_deparse_safe(x)
  )
}

paste_list <- function(x) {
  if_any(
    length(x),
    paste0(names(x), ": ", x),
    list()
  )
}

truncate_character <- function(x, n) {
  index <- !is.na(x) & (nchar(x) > n)
  x[index] <- substr(x[index], start = 0L, stop = n - 3L)
  x[index] <- paste0(x[index], "...")
  x
}