R/urlobs.r

In ValeriaRolle/auxfun:

Defines functions urlobs

Documented in urlobs

urlobs <- function(){
  require(stringr)
  
  url <- readClipboard()
  url <- str_sub(url, 2,-2)
  url <- gsub(" ", "%20", url)
  url <- gsub("\\", "/", url, fixed = TRUE)
  url <- paste("file:///", url, sep = "")
  writeClipboard(url)
  return(url)
}