Funktion liest ein Excel-File ein, uebernimmt die Formatvorlage eines ausgewaehlten Template-Excel-Sheets, befuellt die Kopie dieses Template-Excel-Sheets mit den Ergebnissen aus MakeTable und liest das Ergebnis samt urspruenglichem Template-Excel-Sheet (default) und dem neu befuellten Excel-Sheet wieder als Excel-File aus.
FillExcelTemplate(tab1, tab2 = NULL, startingPoints, nrEmptyRows, inheritTemplateColNr = 1, customColNr = NULL, customCol = NULL, customCellList = NULL, f_in, sheet = 1, prefixTSN = "_", removeTemplateSheet = FALSE, removeAllTemplates = FALSE, interactive = TRUE, showFinalTab = FALSE, showSplitTab = FALSE)
tab1 | eine mit |
---|---|
tab2 | NULL oder eine mit |
startingPoints | numerischer Vektor: die Startzeilen der befuellten Zeilen nach Leerzeilen im Original-Excel-File. |
nrEmptyRows | numerischer Vektor: Anzahl an Leerzeilen die vor
|
inheritTemplateColNr | numerischer Vektor oder NULL: Spaltennummer/n der Tabellenspalten die vom Original-Excel-File uebernommen werden sollen.
Default ist die erste Spalte, also |
customColNr | numerischer Wert: Spaltennummer der Tabellenspalte (derzeit nur EINE moeglich) die ueber
|
customCol | character Vektor: Enthaelt die Eintraege der durch |
customCellList | Listenobjekt: eine Liste (bzw. falls mehrere Zellen ueberschrieben werden sollen, eine Liste mit Sublisten) mit den Listenelementen
Dieser Parameter ist anzuwenden falls eine (oder mehrere) Zellen individuell angepasst werden sollen, z.B. um eine Fussnote einzufuegen oder um die Eintraege einer bestimmten Tabellenspalte mit bestimmten Inhalten zu ueberschreiben. Zu beachten ist hier, dass die entsprechenden Zellen einfach nur ueberschrieben werden und die Aufteilung von |
f_in | File Name inklusive Pfad und File-Endungen des eingelesenen Original-Excel-Files. |
sheet | Index oder Name des Excel-Sheets oder des zugehoerigen Template-Excel-Sheets. |
prefixTSN | Character: das Prefix des Namens des Template Sheets (siehe Details). Default ist "_". |
removeTemplateSheet | TRUE/FALSE ob das Template-Excel-Sheet (mit dem Prefix |
removeAllTemplates | TRUE/FALSE wie bei |
interactive | Logical ob das Loeschen von Template-Sheets ( |
showFinalTab | Logical: Falls TRUE, wird in R die Tabelle samt Leerzeilen ausgegeben wie sie auch im ausgelesenen Excel-File landen wuerde. Ist dieser Parameter gesetzt, wird also kein Excel-File erstellt. |
showSplitTab | Logical: Falls TRUE, wird in R die durch |
Output ist ein Excel-File.
Ein Template-Excel-Sheet, das als Vorlage fuer das zu befuellende Excel-Sheet dient
und i.d.R. leer ist bis auf einige Formate, Header und Rownames, wird durch ein Prefix im Sheet-Namen
gekennzeichnet (prefixTSN
). Der Sheet-Name ist bis auf das Prefix identisch
zum Sheet-Namen des zu befuellenden neuen Excel-Sheets. Sollte entweder Template oder
zu befuellendes neues Excel-Sheet noch nicht existieren, wird es automatisch
angelegt. Die Template-Sheets koennen bei Bedarf wieder einzeln (removeTemplateSheet
)
oder alle auf einmal (removeAllTemplates) geloescht werden. Sollten sowohl das Template
als auch das neue Sheet im File schon existieren ist es irrelevant ob bei sheet
das Template oder das neue Sheet angegeben wird.
Derzeit funktioniert diese Funktion nur fuer die Default-Werte von
markLeft1
, markRight1
, markValue1
, markLeft2
,
markRight2
und markValue2
aus MakeTable()
und
MakeAKETimeInstantsTable()
.
# NOT RUN { ### Kommt wahrscheinlich ins mitgelieferte Bsp-File - samt Excel-Rohling. ### ### Beispiel einer customCellList: # 1. die 1. Spalte der Tabelle soll ab der 1. Zeile der Tabelle die Eintraege # Category 1, Category 2 und Category 3 haben mit einer Leerzeile nach Category 1 # 2. wir wollen nur eine einzelne Zelle ansprechen und dort die Fussnote einfuegen # -> die 1. Spalte der Tabelle soll in Zeile 5 die Fussnote enthalten customCellList=list( list(row=1,col=1,entry=c("Category 1", NA, "Category 2","Category 3")), list(row=5,col=1,entry="FussnoteBlaBlaText") ) # bzw dasselbe in anderer Schreibweise: customCellList <- list() customCellList[[length(customCellList)+1]] <- list(row=1,col=1,entry=c("Category 1", NA, "Category 2","Category 3")) customCellList[[length(customCellList)+1]] <- list(row=5,col=1,entry="FussnoteBlaBlaText") # }