mirror of
https://github.com/msberends/AMR.git
synced 2025-07-08 08:32:04 +02:00
uncertainty levels, new WHONET codes
This commit is contained in:
2
R/like.R
2
R/like.R
@ -56,7 +56,7 @@ like <- function(x, pattern) {
|
||||
if (length(pattern) > 1) {
|
||||
if (length(x) != length(pattern)) {
|
||||
pattern <- pattern[1]
|
||||
warning('only the first element of argument `pattern` used for `%like%`', call. = FALSE)
|
||||
warning('only the first element of argument `pattern` used for `%like%`', call. = TRUE)
|
||||
} else {
|
||||
# x and pattern are of same length, so items with each other
|
||||
res <- vector(length = length(pattern))
|
||||
|
Reference in New Issue
Block a user