R/openwd.R

In tidymass/tinytools: All the usefull tools for MS data processing and analysis

#' @title openwd
#' @description Open current work directory.
#' @author Xiaotao Shen
#' \email{shenxt1990@@outlook.com}
#' @return inder.
#' @export
#' @examples
#' openwd()
openwd <- function() {
    system(sprintf("open %s", shQuote(getwd())))
}