-
Notifications
You must be signed in to change notification settings - Fork 3
/
mcbette_report.R
88 lines (88 loc) · 2.56 KB
/
mcbette_report.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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
#' Create a \link{mcbette} report,
#' to be used when reporting bugs
#' @inheritParams default_params_doc
#' @return nothing. It is intended that the output (not
#' the return value) is copy-pasted from screen.
#' @examples
#' if(beautier::is_on_ci()) {
#' mcbette_report()
#' }
#' @author Richèl J.C. Bilderbeek
#' @export
mcbette_report <- function(
beast2_folder = beastier::get_default_beast2_folder()
) {
kat <- function(x) message(x, sep = "\n")
kat("***********")
kat("* mcbette *")
kat("***********")
kat(paste0("Can run mcbette: ", mcbette::can_run_mcbette()))
kat(paste0("OS: ", rappdirs::app_dir()$os))
kat("****************")
kat("* Dependencies *")
kat("****************")
kat(paste0("beautier version: ", utils::packageVersion("beautier")))
kat(paste0("tracerer version: ", utils::packageVersion("tracerer")))
kat(paste0("beastier version: ", utils::packageVersion("beastier")))
kat(paste0("mauricer version: ", utils::packageVersion("mauricer")))
kat(paste0("babette version: ", utils::packageVersion("babette")))
kat("**********")
kat("* BEAST2 *")
kat("**********")
kat(paste0("Java version: ", beastier::get_java_version()))
kat(
paste0(
"Is BEAST2 installed: ",
beastier::is_beast2_installed(folder_name = beast2_folder)
)
)
if (beastier::is_beast2_installed(folder_name = beast2_folder)) {
kat(
paste0(
"BEAST2 version: ",
beastier::get_beast2_version(
beast2_path = beastier::get_default_beast2_bin_path(
beast2_folder = beast2_folder
)
)
)
)
kat(
paste0(
"BEAST2 default path: ",
beastier::get_default_beast2_bin_path(beast2_folder = beast2_folder)
)
)
}
if (beastier::is_beast2_installed(folder_name = beast2_folder)) {
kat("*******************")
kat("* BEAST2 packages *")
kat("*******************")
kat(
paste0(
"Is BEAST2 NS package installed: ",
mauricer::is_beast2_ns_pkg_installed(beast2_folder = beast2_folder)
)
)
if (curl::has_internet()) {
df <- mauricer::get_beast2_pkg_names(beast2_folder = beast2_folder)
kat(
paste0(
"BEAST2 NS installed version: ",
df[df$name == "NS", ]$installed_version
)
)
kat(
paste0(
"BEAST2 NS latest version: ",
df[df$name == "NS", ]$latest_version
)
)
}
}
kat("****************")
kat("* session info *")
kat("****************")
message(paste0(devtools::session_info(), collapse = "\n"))
invisible(NULL)
}