R/setwdKTS.R

Defines functions setwdKTS

Documented in setwdKTS

setwdKTS <-
function() {
  dirPath <- tcltk::tk_choose.dir()
  if (is.na(dirPath) == FALSE) {
    setwd(dirPath)
  }
}

Try the KarsTS package in your browser

Any scripts or data that you put into this service are public.

KarsTS documentation built on Jan. 16, 2021, 5:07 p.m.