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

Config file and change of folder structure

Browse source
This commit is contained in:
Linsberger Christian 2021-09-06 11:12:20 +02:00
commit bc9e2d06ac
4 changed files with 27 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

26
find_and_replace_uri.R
View file

@ -8,30 +8,9 @@ library("stringr")
library("tictoc")
library("rlang")
source("../sparql.R")
###### Konfiguration #########
#Arbeitsverzeichnis
setwd("C:/Users/linchr/ownCloud/GIT/URI_Replacement")
#Funktionen einbinden
source("sparql.R")
#Datei in der ersetzt werden soll
FILENAME_EXCEL <- "GC3D_Limits_ref.xlsx"
PFAD_EXCEL <- "data/"
#Spaltennummer in denen ersetzt werden soll im Excel
SPALTEN <- c(2, 3, 4, 5, 6)
#Spaltennummer mit der verglichen wird aus Datenbank (citations)
INHALTE_DB <- 3
#Spaltennummer der Inhalte die eingesetzt werden soll (uris)
ID <- 1
##############################
source("config/config.R")
### Einlesen ###
@ -43,7 +22,6 @@ to_replace_done <- to_replace_original
###
#Schleife über den Spaltenvektor aus der Excel
for (spalte_excel in SPALTEN[1]:SPALTEN[length(SPALTEN)]) {
@ -112,6 +90,6 @@ for (spalte_excel in SPALTEN[1]:SPALTEN[length(SPALTEN)]) {
toc()
pfad_output <- paste(PFAD_EXCEL, "replaced_" , FILENAME_EXCEL, sep="")
pfad_output <- paste(PFAD_OUT, "replaced_", format(Sys.time(), "%Y_%m_%d_%H%M%S"), FILENAME_EXCEL, sep="")
write_xlsx(to_replace_done, pfad_output)