R/utils.R

In lorenzwalthert/teamtools: Tools to organize multiple git repos under a project and team umbrella

relative_to_str <- function(x, filter) {
  browser()
  hierarchy <- ls_all_teamtool_categories()
  ind <- which(x == hierarchy)
  filter(hierarchy)[ind]
}

str_below <- purrr::partial(relative_to_str, filter = function(x) c(NA, x[-length(x)]))
str_above <- purrr::partial(relative_to_str, filter = function(x) c(x[-1], NA))


ls_all_teamtool_categories <- function() {
  c("repo", "project", "team")
}


#' Set a null value to a default
#'
#' @param test That vale that should be asserted.
#' @param default The value that should be returned if `test` is `NULL`.
#' @keywords internal
set_null_to <- function(test, default) {
  if (is.null(test)) return(default)
  test
}

#' Drop everything after the last extension character
#' 
#' @param char A character string.
#' @param ext_chr A character 
#' @importFrom purrr map_chr map
#' @examples 
#' teamtools:::drop_ext("a.b.csv")
drop_ext <- function(char, ext_sep = ".") {
  strsplit(char, ext_sep, fixed = TRUE) %>%
    map(~.x[-length(.x)]) %>%
    map_chr(paste, collapse = ".")
    
}

write_lines_if_inexistent <- function(lines, file, overwrite = FALSE) {
  if (!file.exists(file) | overwrite) {
    writeLines(lines, file)
    green_tick("Created ", file)
  } 
}

green_tick <- function(...) {
  cli::cat_bullet(..., bullet = "tick", col = "green")
}