R/chooseDir.r

Defines functions choose_dir

Documented in choose_dir

#' Choose Directory, choose.dir vs tcltk
#'
#' @param caption NA
#'
#' @return NA
#' @export
#'

choose_dir <- function(caption = 'Select data directory') {
  if (exists("choose.dir", where="package:utils", mode='function')) {
   a <- utils::choose.dir(caption = caption) 
  }else {
  a <-  tcltk::tk_choose.dir(caption = caption)
  }
  return(a)
}
chasemc/tempRepo documentation built on April 8, 2019, 10:22 p.m.