#' 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_
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.