R/sxtSetwd.R

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

Defines functions sxtSetwd

Documented in sxtSetwd

#' @title sxtSetwd
#' @description sxtSetwd.
#' @author Xiaotao Shen
#' \email{shenxt1990@@163.com}
#' @export

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