inst/reports/region2/dmu-diff/custom.R

In ncss-tech/soilReports: R Markdown Reports and Convenience Functions for Soil Survey

# 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)
}