R/setwd_win.R

In jaspershen/tinyTools: All the usefull tools from Xiaotao Shen

#' @title setwd_win
#' @description Set work directory in windows.
#' @author Xiaotao Shen
#' \email{shenxt1990@@163.com}
#' @export

setwd_win <- function() {
  x <- readline("Please paste the directory:")
  setwd(x)
}