R/unprefix.R

In dreamRs/prefixer: Prefix Functions With Appropriate Namespace

#' Remove all prefix in a script
#'
#' @export
#' @importFrom rstudioapi getSourceEditorContext insertText
#' @importFrom stringr str_replace_all
#'
unprefix <- function() {
  activ_doc <- rstudioapi::getSourceEditorContext()
  script <- activ_doc$contents
  script_ <- str_replace_all(
    string = script, replacement = "",
    pattern = "[[:alnum:]\\.]+::(?=[[:alnum:]\\._]+)"
  )
  rstudioapi::insertText(
    location = Map(c, Map(c, seq_along(script), 1), Map(c, seq_along(script), nchar(script) + 1)),
    text = script_
  )
}