From 00cf11638b593e57d4ee77f5de90bc473b684f75 Mon Sep 17 00:00:00 2001 From: Gede Primahadi Wijaya Rajeg Date: Sun, 3 Feb 2019 10:51:00 +1100 Subject: [PATCH] specify the select and matches function coming from dplyr --- R/kappa_tidy.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/kappa_tidy.R b/R/kappa_tidy.R index 0111d25..80740c7 100644 --- a/R/kappa_tidy.R +++ b/R/kappa_tidy.R @@ -11,6 +11,8 @@ #' @return A tibble/data frame #' #' @importFrom tibble enframe +#' @importFrom dplyr matches +#' @importFrom dplyr select #' @importFrom purrr map_dbl #' @importFrom purrr map_int #' @importFrom purrr map @@ -71,7 +73,7 @@ kappa_tidy <- function( # codes for processing the kappa values per synonyms df_split <- split(df, df[[split_by]]) - df_split <- purrr::map(df_split, function(df) select(df, matches(var_names))) + df_split <- purrr::map(df_split, function(df) dplyr::select(df, dplyr::matches(var_names))) irr_res <- purrr::map(df_split, function(df) irr::kappa2(df)) irr_res <- tibble::enframe(irr_res)