In pvrqualitasag/rqudocuhelper:

### # specify knitr options
knitr::opts_chunk$set(echo = FALSE, results = 'asis')

### # initialize section counter
robjSecEnum <- rqudocuhelper::SectionEnumerator$new()

\fcolorbox{black}{white}{ \parbox[t]{1.0\linewidth}{ \centering \fontsize{12pt}{20pt}\selectfont % \vspace*{0.5cm} %

    \hfill Docu -Type

    \vspace*{0.5cm} 
}

}

\vspace*{0.5cm}

\fcolorbox{black}{white}{ \parbox[t]{1.0\linewidth}{ \centering \fontsize{25pt}{40pt}\selectfont % \vspace*{0.7cm} Title 1 \ Title 2 \ Title 3 \

    \vspace*{0.7cm} % Space between the end of the title and the bottom of the grey box
}

}

\vspace*{1cm}

\begin{center} \includegraphics[width=0.5\textwidth]{png/Pedigree.png} \end{center}

\vspace{5ex} {\centering \small \hfill \begin{tabular}{l} Peter von Rohr \ FB EDV, Qualitas AG \ Chamerstrasse 56, CH-6300 Zug \ \verb+http://www.qualitasag.ch+ \ \[e-mail]+
\end{tabular} }

\pagebreak

\tableofcontents

\pagebreak

knitr::opts_chunk$set(echo = FALSE, results = 'asis')

r6objDocStat <- rqudocuhelper::R6ClassDocuStatus$new()
r6objDocStat$setProject(psProject = "ATDA-ASR")
r6objDocStat$setVersion(psVersion = "0.0.901")
r6objDocStat$setStatus(psStatus = "Erstellung")

r6objDocStat$include_doc_stat()

\pagebreak

Abkürzungen

robjAbrTable <- rqudocuhelper::refObjTable$new()
pvecTableHeader <- c("Abkürzung",
                     "Bedeutung")
robjAbrTable$setTableHeader(psTableHeader = pvecTableHeader)
robjAbrTable$addRow(plTableRow = list(Abr = "Abk",
                                      What = "Abkürzung"))
#robjAbrTable$addRow(plTableRow = list(Abr = "",
#                                      What = ""))
robjAbrTable$to_pander_pandoc(psStyle = "grid",
                              psJustify = rep("left", length(pvecTableHeader)),
                              pnSplitCells = c(20,60))

\pagebreak

Erklärung

pvrqualitasag/rqudocuhelper documentation built on May 26, 2019, 11:34 a.m.