R/misc.R

In tpemartin/rmd2drake: Turn R Markdown into a drake plan and make it

#' Ensure the path is absolute.
#'
#' @param path A character of path, absolute or relative.
#'
#' @return A character of absolute path.
#' @export
#'
#' @examples none
rootadjustPath <- function(path){
  .root <- rprojroot::is_rstudio_project$make_fix_file()
  stringr::str_extract(.root(), "[^/]+$") -> projName

  stringr::str_extract(path, glue::glue("(?<={projName})[:graph:]+")) -> relativePath

  if(is.na(relativePath)) # the path is already relative
  {
    relativePath <- path
  }

  absolutePath <-
    file.path(
      .root(), relativePath
    )
  absolutePath
}
#' Substitute file.path
#'
#' @param x a character
#' @param y a character
#'
#' @return
#' @export
#'
#' @examples None.
`%//%` <- function(x,y){
  if(!is.character(x) || !is.character(y)){
    stop("Either one of your inputs are/is not character.")
  }
  return(file.path(x,y))
}
str_eval <- function(txt, env = .GlobalEnv){
  txt |>
    paste(collapse = "\n") |>
    rlang::parse_exprs() -> expr_makecondition

  expr_makecondition |>
    purrr::walk(
      rlang::eval_bare,
      env = env
    )
}