Commit 44977905 authored by Knut Wenzig's avatar Knut Wenzig
Browse files

bringe auf letzten stand

parent 6f2f8ad6
......@@ -48,7 +48,7 @@ library(dortools)
# codebookcsvpath <- "D:/lokal/isdatadoku/datasets/ppfad/"
# codebookcsvpath <- "D:/lokal/isdatadoku/datasets/p/"
# codebookcsvpath <- "D:/lokal/isdatadoku/datasets/idrm/"
# codebookcsvpath <- "D:/lokal/isdatadoku/datasets/inno/"
# codebookcsvpath <- "D:/lokal/isdatadoku/datasets/bio/"
# codebookcsvpath <- "D:/lokal/isdatadoku/datasets/bioage/"
# codebookcsvpath <- "D:/lokal/isdatadoku/datasets/pbrutto/"
......@@ -60,27 +60,30 @@ library(dortools)
#codebookcsvpath <- paste0("D:/lokal/core-doku/datasets/hpfad/")
#codebookcsvpath <- paste0("D:/lokal/core-doku/datasets/",dataset.name ,"/")
#codebookcsvpath <- paste0("D:/lokal/core-doku/datasets/bfpgen/")
#codebookcsvpath <- "D:/lokal/core-doku/datasets/biol/"
#codebookcsvpath <- "D:/lokal/piaac-l-2015-2016/Metadata/datasets/ZA5989_Household_16_M/"
#codebookcsvpath <- "D:/lokal/isdatadoku/datasets/pgen/"
#codebookcsvpath <- "D:/lokal/isdatadoku/datasets/p/"
#codebookcsvpath <- "D:/lokal/isdatadoku/datasets/inno/"
#codebookcsvpath <- "D:/lokal/isdatadoku/datasets/idrm_esm/"
codebookcsvpath <- paste0("D:/lokal/isdatadoku/datasets/",dataset.name,"/")
codebookcsvpath <- "D:/lokal/core-doku/datasets/biol/"
codebookcsvpath <- "D:/lokal/isdatadoku/datasets/pgen/"
codebookcsvpath <- "D:/lokal/piaac-l-2015-2016/Metadata/datasets/ZA5989_Household_16_M/"
distribution <- "2017"
language <- "de"
allow.markdown <- FALSE
distribution <- "2015"
# language <- "de"
language <- lang
allow.markdown <- TRUE
collapse.variable.groups <- TRUE
calc.abs.frequencies <- TRUE # TRUE: show only all value labels without frequencies
omit.unlabeled.values <- TRUE # if only_labeled_vals==1
optimize.tables <- TRUE
restrict.questions <- FALSE # Anzeige der Fragen begrenzen (unique Fragen im letzten Jahr)
restrict.questions <- TRUE # Anzeige der Fragen begrenzen (unique Fragen im letzten Jahr)
display.question.id <- TRUE
do.xelatex <- TRUE # LaTeX-Lauf starten
rename.pdf <- TRUE # pdf>questionnaire umbenennen do.xelatex=T
is.surveypaper <- FALSE
is.surveypaper <- TRUE
has.schmutztitel <- TRUE
schmutztitel.has.DIWSOEPLogo <- FALSE
schmutztitel.has.DIWSOEPLogo <- TRUE
running.title.only <- FALSE # Kolumnentitel (depricated, ergibt sich aus is.surveypaper/has.schmutztitel)
with.footer <- TRUE # Fußzeile (questionnaire und Seite) (depricated, für SOEP-Papers)
first.page.number <- 1 # depricated
......@@ -101,9 +104,9 @@ datapath <- paste0("//hume/soep-data/DATA2/SOEP-IS/SOEP-IS_2014.1_release/downlo
language,"/")
datapath <- "//hume/soep-data/DATA/soep32_en/stata/"
datapath <- "//hume/soep-data/DATA/soep32_de_l/stata/"
datapath <- "//hume/abt/abt-sop/MA/jnapieraj/piaac/"
datapath <- paste0("//hume/soep-data/DATA2/SOEP-IS/SOEP-IS 2015 Generierung HiWi/Data/finaldata/",
toupper(language), "/")
datapath <- "//hume/abt/abt-sop/MA/jnapieraj/piaac/"
# Ordner des repositories (enthaelt Ordner LaTex und R)
path <- "D:/lokal/codebooker/"
......@@ -822,10 +825,10 @@ write.xlsx(titles.csv, paste0(addpath, "titles_export.xls"))
# Ausgabe des Titelsnipptes in Datei
cat(TitleLaTeX(study, distribution, dataset.name, version, language),
file=(con <- file(titletexfile, "w", encoding = "UTF-8")),
sep="", fill=FALSE, labels=NULL, append=FALSE)
close(con)
# cat(TitleLaTeX(study, distribution, dataset.name, version, language),
# file=(con <- file(titletexfile, "w", encoding = "UTF-8")),
# sep="", fill=FALSE, labels=NULL, append=FALSE)
# close(con)
# Ausgabe des Coversnipptes in Datei
cover.infos <- CoverLaTeX(language=language,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment