R/is_cpt4_reconstituted.R

In patelm9/setupAthena: Setup or Update a Postgres Instance of the Athena Vocabularies

is_cpt4_reconstituted <-
        function(path_to_csvs) {

                out <-
                "logs" %in%
                        list.dirs(path = path_to_csvs,
                                  full.names = FALSE)

                if (!(out)) {

                        cli::cli_alert_warning(text = "CPT4 has not been reconstituted. Folder `logs` not present.")


                }

                out



        }