# temp hack to get daff chunks into an rmarkdown doc
wrapDaffHTML <- function(chunkHTML, chunkTitle) {
cat("<div class='highlighter' style='align:center; font-size:80%;'>")
cat(paste0("<h3>", chunkTitle, "</h3>"))
cat(chunkHTML)
cat("</div><br><br>")
}
## project description
get_project_meta <- function(SS=TRUE, fixLineEndings=TRUE) {
# must have RODBC installed
if(!requireNamespace('RODBC'))
stop('please install the `RODBC` package', call.=FALSE)
q <- "SELECT projectiid, uprojectid, projectname, projectdesc
FROM
project_View_1
;
"
# setup connection local NASIS
channel <- RODBC::odbcDriverConnect(connection=getOption('soilDB.NASIS.credentials'))
# toggle selected set vs. local DB
if(SS == FALSE) {
q <- gsub(pattern = '_View_1', replacement = '', x = q, fixed = TRUE)
}
# exec query
d <- RODBC::sqlQuery(channel, q, stringsAsFactors=FALSE)
# close connection
RODBC::odbcClose(channel)
# convert codes
d <- uncode(d)
# optionally convert \r\n -> \n
if(fixLineEndings){
d$projectdesc <- gsub(d$projectdesc, pattern = '\r\n', replacement = '\n', fixed = TRUE)
}
# done
return(d)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.