R/openwd.r

Defines functions openwd

openwd <- function() {

	# we need to be running on Windows
	if (grepl("WINDOWS", toupper(Sys.info()["sysname"]), fixed=TRUE)) {
		shell.exec(normalizePath(getwd()))
		return(TRUE)
	}

}
arnhew99/Jasper documentation built on Nov. 19, 2022, 2:46 p.m.