generate_instruction_overview <- function(dtcSpecDf,
type,
title = paste0("Instructions for", type)) {
typeInstr <- paste0(type, "_instr");
res <-
c(paste0("# ", title),
format(Sys.time(), '*Generated at %H:%M:%S on %Y-%m-%d %Z (GMT%z)*'),
"",
apply(dtcSpecDf[order(dtcSpecDf$label), ],
1,
function(spec) {
return(c(paste("##", spec['label']),
"",
ifelse(is.null(spec[type]),
ifelse(is.null(spec[typeInstr]),
"*(Not specified)*",
spec[typeInstr]),
spec[type]),
""));
}));
return(res);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.