P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 16:46:13 +01:00
Code Releases Activity

v0.6.1

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2019-03-28 22:30:19 +01:00
parent 713290a9a6
commit 7dca9791a2
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
R/mo_history.R
View File

@ -37,6 +37,7 @@ set_mo_history <- function(x, mo, uncertainty_level, force = FALSE) {
if (NROW(mo_hist[base::which(mo_hist$x == x[i] & if (NROW(mo_hist[base::which(mo_hist$x == x[i] &
mo_hist$uncertainty_level >= uncertainty_level & mo_hist$uncertainty_level >= uncertainty_level &
mo_hist$package_v == utils::packageVersion("AMR")),]) == 0) { mo_hist$package_v == utils::packageVersion("AMR")),]) == 0) {
tryCatch(
assign(x = "mo_history", assign(x = "mo_history",
value = rbind(mo_hist, value = rbind(mo_hist,
data.frame( data.frame(
@ -44,9 +45,9 @@ set_mo_history <- function(x, mo, uncertainty_level, force = FALSE) {
mo = mo[i], mo = mo[i],
uncertainty_level = uncertainty_level, uncertainty_level = uncertainty_level,
package_v = base::as.character(utils::packageVersion("AMR")), package_v = base::as.character(utils::packageVersion("AMR")),
stringsAsFactors = FALSE) stringsAsFactors = FALSE)),
), envir = asNamespace("AMR")),
envir = asNamespace("AMR")) error = function(e) invisible())
} }
} }
} }
@ -113,9 +114,11 @@ clean_mo_history <- function(...) {
return(invisible()) return(invisible())
} }
} }
tryCatch(
assign(x = "mo_history", assign(x = "mo_history",
value = NULL, value = NULL,
envir = asNamespace("AMR")) envir = asNamespace("AMR")),
error = function(e) invisible())
cat(red("History removed.")) cat(red("History removed."))
} }
} }