-
Notifications
You must be signed in to change notification settings - Fork 3
/
get_mcbette_state.R
39 lines (39 loc) · 1.02 KB
/
get_mcbette_state.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#' Get the current state of \link{mcbette}
#' @inheritParams default_params_doc
#' @return a \link{list} with the following elements:
#' \itemize{
#' \item{
#' beast2_installed
#' \link{TRUE} if BEAST2 is installed,
#' \link{FALSE} otherwise
#' }
#' \item{
#' ns_installed
#' \link{TRUE} if the BEAST2 NS package is installed
#' \link{FALSE} if the BEAST2 or the BEAST2 NS package is not installed
#' }
#' }
#' @examples
#' get_mcbette_state()
#'
#' beastier::remove_beaustier_folders()
#' beastier::check_empty_beaustier_folders()
#' @export
get_mcbette_state <- function(
beast2_folder = beastier::get_default_beast2_folder()
) {
state <- list(
beast2_installed = NA,
ns_installed = NA
)
if (beastier::is_beast2_installed(folder_name = beast2_folder)) {
state$beast2_installed <- TRUE
state$ns_installed <- mauricer::is_beast2_ns_pkg_installed(
beast2_folder = beast2_folder
)
} else {
state$beast2_installed <- FALSE
state$ns_installed <- FALSE
}
state
}