P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 01:22:25 +02:00
Code Releases Activity

(v1.3.0.9027) unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-09-24 00:50:23 +02:00
parent c19095a3d5
commit 027215ed94
17 changed files with 23 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/eucast_rules.R
View File

@ -157,7 +157,7 @@ eucast_rules <- function(x,
"\n\nThis may overwrite your existing data if you use e.g.:",
"\ndata <- eucast_rules(data, verbose = TRUE)\n\nDo you want to continue?")
showQuestion <- import_fn("showQuestion", "rstudioapi", error_on_fail = FALSE)
if (!is.null(showQuestion)) {
if (!is.null(showQuestion) & interactive()) {
q_continue <- showQuestion("Using verbose = TRUE with eucast_rules()", txt)
} else {
q_continue <- utils::menu(choices = c("OK", "Cancel"), graphics = FALSE, title = txt)