From 2bf669904b13d9a5fa4116cf1c5ae90db2e235e7 Mon Sep 17 00:00:00 2001 From: Emilio Date: Thu, 16 Jul 2026 21:53:21 -0400 Subject: [PATCH] typo removed --- R/authors_match.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/authors_match.R b/R/authors_match.R index b4f7f3a..36c78a4 100644 --- a/R/authors_match.R +++ b/R/authors_match.R @@ -67,7 +67,7 @@ authors_match <- function(data){ # n_n |> group_by(groupID) |> summarize(n=n_distinct(OI)) |> filter(n>1) # # Now match by much less used RI - & is.na(n_n$OI) + # n_n |> mutate_all(trimws) |> group_by(OI) |> summarize(n=n_distinct(RI)) |> filter(n>1) |> summarize(n_distinct(OI)). arrange(desc(n)) # n_n |> mutate_all(trimws) |> group_by(RI) |> summarize(n=n_distinct(OI)) |> filter(n>1) |> summarize(n_distinct(RI))