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

ein paar kleine Änderungen

Browse source
This commit is contained in:
Linsberger Christian 2021-09-08 08:59:22 +02:00
commit f72213f022
2 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
02_not_in_db.R
View file

@ -45,7 +45,6 @@ not_in_db_2 <- c()
for (zeile_excel in 1:nrow(not_in_db)) {
#Current Excel ist das derzeit behandelte Zitate / Zelle
#current_excel <- tolower(not_in_db[zeile_excel, 1])
current_excel <- str_squish(not_in_db[zeile_excel, 1])
#Falls die aktuelle Zelle leer ist wird die nächste Iteration begonnen um Rechenleistung zu sparen
@ -72,14 +71,12 @@ for (zeile_excel in 1:nrow(not_in_db)) {
#current_db <- tolower(inDB[zeile_db, 1])
current_db <- str_squish(inDB[zeile_db, 1])
#Zerlegt den Zelleninhalt und macht daraus eine Liste "Wort"liste aus alphanumerischen Zeichen, getrennt wird jeweils bei nicht-alphanumischen Zeichen
db_search_all <- unlist(strsplit(gsub("[^[:alnum:] ]", "", current_db), " +"))
#Legt eine Liste aus Zahlen zwischen 1900 & 2099 an, die in der aktuellen Zelle sind. (soll das Jahr der Publizierung finden)
db_search_numbers <- unlist(str_extract_all(current_db, "(?:19|20)\\d{2}"))
#Initialiersierung der Countvariablen
count_all <- 0
count_numbers <- 0
@ -88,7 +85,7 @@ for (zeile_excel in 1:nrow(not_in_db)) {
percent_match_all <- 0.01
percent_match_numbers <- 0.01
#Vierter(a) Schleifendurchlauf - Eruiert welche Elemente des Excel-Vektors im Datenbankvektors sind und zählt diese
#Dritter(a) Schleifendurchlauf - Eruiert welche Elemente des Excel-Vektors im Datenbankvektors sind und zählt diese
for (k in 1:length(excel_search_all)) {
if (excel_search_all[k] %in% db_search_all) {
@ -96,7 +93,7 @@ for (zeile_excel in 1:nrow(not_in_db)) {
}
}
#Vierter(b) Schleifendurchlauf - Eruiert welche Jahre des Excel-Vektors im Jahres-Datenbankvektors sind und zählt diese
#Dritter(b) Schleifendurchlauf - Eruiert welche Jahre des Excel-Vektors im Jahres-Datenbankvektors sind und zählt diese
#Wird nur durchgeführt wenn beide Vektoren gefüllt sind
if ((length(db_search_numbers) > 0) && (length(excel_search_numbers) > 0)) {
for (l in 1:length(excel_search_numbers)) {
@ -125,11 +122,10 @@ for (zeile_excel in 1:nrow(not_in_db)) {
}
}
#muss in einen Data-Frame umgewandelt werden um write_xlsx zu verwenden
not_in_db_2 <- data.frame(not_in_db_2)
not_in_db_2 <- unique(not_in_db_2)
colnames(not_in_db_2) <- (c(COLUMN_NAME))
#Die der Uniques in eine Datei schreiben
write_xlsx(not_in_db_2, paste(PFAD_OUT, "not_in_db_",format(Sys.time(), "%Y_%m_%d") ,".xlsx", sep=""))
write_xlsx(not_in_db_2, paste(PFAD_OUT, "not_in_db_",format(Sys.time(), "%Y_%m_%d") ,".xlsx", sep=""))