# create_doc.R
create_doc <- function(directory = NULL,
                       database_name_name) {
    if (is.null(directory)) directory <- tclvalue(tkchooseDirectory(
                       title = "Choose Folder for Input and Output"))
    rmarkdown::render("R/doc_generator.Rmd", output_dir = directory)
}