Try to support older R versions

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2018-04-18 15:41:27 +02:00
1 parent 4b5530ed64
commit d79132b29f
2 files changed
+5 -2

No files matched your search

+1 -1
View File
@@ -161,7 +161,7 @@ freq <- function(x,
}
if (mult.columns > 1) {
NAs <- x[is.na(x) | x == trimws(strrep('NA ', mult.columns))]
NAs <- x[is.na(x) | x == trimws(AMR:::strrep('NA ', mult.columns))]
} else {
NAs <- x[is.na(x)]
}