rxs_fg_dispatcher <- function(node,
valueTemplates,
indent = TRUE,
indentSpaces = 2,
fullWidth = 80,
commentCharacter = "#",
fillerCharacter = "#",
eC = entityColNames(),
repeatingSuffix = "__1__",
silent=FALSE) {
if (!("parsedValueTemplates" %in% class(valueTemplates))) {
if (!silent) {
cat("\nThe argument you provided as 'valueTemplates' does not have ",
"class 'parsedValuetemplates', which implies that you have ",
"not yet parsed the original spreadsheet. I will attempt to ",
"do so myself now. Note that this means I will use (i.e. expect) ",
"the default column names as specified in `valueTemplateColNames()`.\n");
}
valueTemplates <- parseValueTemplates(valuetemplates);
if (!silent) {
cat("\nSuccessfully parsed the value templates.\n");
}
}
if (node$isRoot) {
### This is the root
rxs_fg_function <- rxs_fg_root;
} else if (node$isLeaf &&
is.character(node[[eC$recursingCol]]) &&
node[[eC$recursingCol]] %in%
node$Get(eC$recursingCol, traversal="ancestor")) {
### This is a recursing node with a parent that is the same
### recursing node (i.e. true recursion). We can therefore not
### include it (we'd keep going), but instead include a
### message for the coder to manually copy-paste this.
rxs_fg_function <- rxs_fg_trueRecursion;
} else if (is.null(node[[eC$valueTemplateCol]]) ||
is.na(node[[eC$valueTemplateCol]])) {
### This is an organising element, without content
if (isTRUE(node[[eC$listCol]])) {
### Node with children, but children are simple values that can be returned
### in a list
rxs_fg_function <- rxs_fg_list;
} else {
rxs_fg_function <- rxs_fg_container;
}
} else {
### Node without children
rxs_fg_function <- rxs_fg_single;
}
return(rxs_fg_function(node,
valueTemplates = valueTemplates,
indent = indent,
indentSpaces = indentSpaces,
commentCharacter = commentCharacter,
fillerCharacter = fillerCharacter,
eC = eC,
repeatingSuffix = repeatingSuffix,
silent=silent));
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.