From 491ad6139d25178fddf89ed35c41ab0ee6a19e40 Mon Sep 17 00:00:00 2001 From: go_gonzo Date: Fri, 17 Nov 2023 06:57:27 +0100 Subject: [PATCH] fix --- R/join_keys.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/join_keys.R b/R/join_keys.R index 52563c9b8..89d6c83c4 100644 --- a/R/join_keys.R +++ b/R/join_keys.R @@ -265,15 +265,15 @@ c.join_key_set <- function(...) { checkmate::check_logical(j, len = length(x)) ) - subset_x <- update_keys_given_parents(x[union(i, j)]) + subset_x <- update_keys_given_parents(x)[union(i, j)] return(subset_x[[i]][[j]]) } checkmate::assert( combine = "or", - checkmate::check_character(i, max.len = length(x)), - checkmate::check_integerish(i, max.len = length(x)), - checkmate::check_logical(i, len = length(x)) + checkmate::check_character(i), + checkmate::check_integerish(i), + checkmate::check_logical(i) )