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

(v1.4.0.9060) ab class selector fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-01-04 13:39:06 +01:00
parent c9de74c81a
commit 8d117820b8
15 changed files with 20 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/aa_helper_functions.R
View File

@ -527,7 +527,7 @@ meet_criteria <- function(object,
}
get_current_data <- function(arg_name, call) {
if (as.double(R.Version()$major) + (as.double(R.Version()$minor) / 100) < 3.2) {
if (as.double(R.Version()$major) + (as.double(R.Version()$minor) / 10) < 3.2) {
if (is.na(arg_name)) {
warning_("this function can only be used in R >= 3.2", call = call)
return(data.frame())

2
R/ab_class_selectors.R
View File

@ -164,7 +164,7 @@ ab_selector <- function(ab_class, function_name) {
meet_criteria(ab_class, allow_class = "character", has_length = 1, .call_depth = 1)
meet_criteria(function_name, allow_class = "character", has_length = 1, .call_depth = 1)
if (as.double(R.Version()$major) + (as.double(R.Version()$minor) / 100) < 3.2) {
if (as.double(R.Version()$major) + (as.double(R.Version()$minor) / 10) < 3.2) {
warning_(function_name, "() can only be used in R >= 3.2", call = FALSE)
return(NULL)
}