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

Comments and more Config

Browse source
This commit is contained in:
Linsberger Christian 2021-09-06 14:04:48 +02:00
commit 6a8966a263
4 changed files with 53 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

9
find_new_entries.R
View file

@ -3,17 +3,16 @@ library("writexl")
library("tidyverse")
library("xlsx")
source("config/config.R")
pfad <- "data/Input/"
#select all *.xlsx files inside the Input-Folder and put them into a list
file_list <- list.files(pfad, "*.xlsx")
file_list <- list.files(PFAD_EXCEL, "*.xlsx")
my_table <- c()
for (file in 1:length(file_list)) {
temp_pfad <- paste(pfad, file_list[file], sep="")
temp_pfad <- paste(PFAD_EXCEL, file_list[file], sep="")
my_table[[file]] <- read_excel(temp_pfad)
}
@ -65,7 +64,7 @@ for (i in i:length(distincts$bibliographicCitation)) {
distincts <- unique(distincts)
distincts <- data.frame(distincts[nchar(distincts$bibliographicCitation) >= 21, ])
distincts <- data.frame(distincts[nchar(distincts$bibliographicCitation) >= THRESHOLD, ])
colnames(distincts) <- (c('bibliographicCitation'))
write_xlsx(distincts, "data/Output/distincts_automated_gc3d.xlsx")