R/addin-paste-winslash.R

In jimbrig/jimstools: Tools for R

#' Paste Winslash - Addin Function
#'
#' @return normalized path character string
#' @export
#'
#' @details assign to keyboard shortcut Ctrl + Shift + P for easy access.
#'
#' @importFrom rstudioapi insertText
paste_winslash <- function() {

  out <- as.character(fs::path_norm(utils::readClipboard()))

  rstudioapi::insertText(text = out)

  return(out)

}

# devtools::install_github('Timag/imageclipr')