R/chooseDir.r

In chasemc/ghosts: Protein and small molecule analysis of bacteria by MALDI-TOF MS

#' 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)
}