Commit 6f2f8ad6 authored by Knut Wenzig's avatar Knut Wenzig
Browse files

kein Fehler mehr, wenn section mehr als einen sectext und mindestens eine Variable hat

parent 3a107a58
......@@ -57,16 +57,16 @@ library(dortools)
# codebookcsvpath <- "D:/lokal/piaac-l-2015-2016/Metadata/datasets/ZA5989_Cognit/"
# codebookcsvpath <- "D:/lokal/core-doku/datasets/ppfad/"
# codebookcsvpath <- "D:/lokal/core-doku/datasets/bfhbrutto/"
# codebookcsvpath <- "D:/lokal/piaac-l-2015-2016/Metadata/datasets/ZA5989_Cognit_BETA/"
#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/isdatadoku/datasets/hbrutto/"
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 <- "v32"
distribution <- "2017"
language <- "de"
allow.markdown <- FALSE
collapse.variable.groups <- TRUE
......@@ -80,7 +80,7 @@ do.xelatex <- TRUE # LaTeX-Lauf starten
rename.pdf <- TRUE # pdf>questionnaire umbenennen do.xelatex=T
is.surveypaper <- FALSE
has.schmutztitel <- TRUE
schmutztitel.has.DIWSOEPLogo <- TRUE
schmutztitel.has.DIWSOEPLogo <- FALSE
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
......@@ -99,11 +99,11 @@ datapath <- "//hume/soep-data/MA/jnapieraj/Kind/2015/old/"
datapath <- "//hume/soep-data/DATA2/SOEP-IS/SOEP-IS 2014 Generierung HiWi/Data/finaldata/EN/"
datapath <- paste0("//hume/soep-data/DATA2/SOEP-IS/SOEP-IS_2014.1_release/download/soep-is.2014.1_stata_",
language,"/")
datapath <- "//hume/abt/abt-sop/MA/jnapieraj/piaac/"
datapath <- "//hume/soep-data/DATA/soep32_en/stata/"
datapath <- "//hume/soep-data/DATA/soep32_de_l/stata/"
datapath <- paste0("//hume/soep-data/DATA2/SOEP-IS/SOEP-IS 2015 Generierung HiWi/Data/finaldata/",
toupper(language), "/")
datapath <- "//hume/soep-data/DATA/soep32_de_l/stata/"
datapath <- "//hume/abt/abt-sop/MA/jnapieraj/piaac/"
# Ordner des repositories (enthaelt Ordner LaTex und R)
path <- "D:/lokal/codebooker/"
......@@ -388,7 +388,7 @@ quest2var <- merge(quest2var,
"text_de", "concept", "template.id", "sort")],
by.x=c("input_study", "questionnaire", "question", "item"),
by.y=c("study", "questionnaire", "question", "item"),
all.x=TRUE)
all=FALSE)
# duplikate rausschmeißen
......@@ -726,7 +726,8 @@ SectionLaTeX <- function(section) {
# Überschrift vorhanden
if(sum(codebook.csv$variable[codebook.csv$section==section]!="")>0) {
# Variablenliste der Section wird ermittelt
vars.section <- codebook.csv$variable[codebook.csv$section==section]
vars.section <- codebook.csv$variable[codebook.csv$variable!="" &
codebook.csv$section==section]
# LaTeX-Snippet der Variablenliste wird angefügt.
section.latex <- paste0(section.latex,
VarSectionLaTeX(vars.section))
......
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