linchr/URI_Replacement
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Generelles Zahlenmatching auf Jahrmatching geändert.

Browse source
This commit is contained in:
Linsberger Christian 2021-09-02 14:00:44 +02:00
commit 667dc7d68d
2 changed files with 23 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

11
find_new_entries.R
View file

@ -20,24 +20,27 @@ for (file in 1:length(file_list)) {
#select the bibliographicCitation columns in all tables
for(i in 1:length(my_table)) {
df_all <- data.frame(my_table[[i]])
for(spalte in 1:length(my_table)) {
df_all <- data.frame(my_table[[spalte]])
Names <- colnames(my_table[[i]])
Names <- colnames(my_table[[spalte]])
Names <- Names[grepl("^bibliographicCitation", Names)]
temp <- data.frame()
for (j in 1:length(Names)) {
#omit empty rows
df_temp <- na.omit(df_all[Names[j]])
#rename columns
colnames(df_temp) <- (c('bibliographicCitation'))
#create a big dataframe
temp <- rbind(temp, df_temp)
}
my_table[[i]] <- temp
my_table[[spalte]] <- temp
}
#combine all the columns of all tables into one