R/getwd_clip.R

In kongdd/Ipaper: Collection of personal practical R functions

#' @title GET or SET working directory
#' @name getwd_clip
#' 
#' @description 
#' * `getwd_clip`: get directory path in clipboard, same as getwd function
#' * `setwd_clip`: set directory path in clipboard, same as setwd function
#' 
#' @references
#' 1. https://stackoverflow.com/questions/10959521/how-to-write-to-clipboard-on-ubuntu-linux-in-r
#' 
#' @note Only works in windows
#' 
#' @examples
#' \dontrun{
#' getwd_clip()
#' setwd_clip()
#' dir.show()
#' }
#' @import clipr
#' @export
getwd_clip <- function(){
    if (.Platform$OS.type == 'windows') {
        path <- suppressWarnings(gsub("\\\\", "/", read_clip()))
        write_clip(path)
        path#quickly return
    }
}

#' @rdname getwd_clip
#' @export
setwd_clip <- function() setwd(getwd_clip())