#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.