Skip to content

sigh. commented out wrong section. #125

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
embruna merged 1 commit into from
Jul 17, 2026
Merged

sigh. commented out wrong section. #125

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
30 changes: 15 additions & 15 deletions R/authors_match.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -96,21 +96,21 @@ authors_match <- function(data){



# # Count how many times each OI value appears
# oi_counts <- table(n_n$OI)
# # Find OI values with more than one RI
# multiple_ri <- names(oi_counts[oi_counts > 1])
# # ID the rows to remove
# rows_to_remove_oi <- which(n_n$OI %in% multiple_ri)
# # remove them
# n_n_clean <- n_n[-rows_to_remove_oi, ]
# # Find RI values with more than one OI
# ri_counts <- table(n_n_clean$RI)
# multiple_oi <- names(ri_counts[ri_counts > 1])
# # Identify rows to remove
# rows_to_remove_ri <- which(n_n_clean$RI %in% multiple_oi)
# # Remove those rows
# n_n_clean <-n_n_clean[-rows_to_remove_ri, ]
# Count how many times each OI value appears
oi_counts <- table(n_n$OI)
# Find OI values with more than one RI
multiple_ri <- names(oi_counts[oi_counts > 1])
# ID the rows to remove
rows_to_remove_oi <- which(n_n$OI %in% multiple_ri)
# remove them
n_n_clean <- n_n[-rows_to_remove_oi, ]
# Find RI values with more than one OI
ri_counts <- table(n_n_clean$RI)
multiple_oi <- names(ri_counts[ri_counts > 1])
# Identify rows to remove
rows_to_remove_ri <- which(n_n_clean$RI %in% multiple_oi)
# Remove those rows
n_n_clean <-n_n_clean[-rows_to_remove_ri, ]



Expand Down
Loading