r if(!isNullOrFalse(fetchRequestParametersField(data, 'excludeComments'))){ paste("**Advanced Options: ** Comments excluded.") }
tbl <- sensorreadingTable(data) library(htmlTable) if(!identical(tbl, "The dataset requested is empty.")){ if(isNullOrFalse(data[['reportMetadata']][['requestParameters']][['excludeComments']])){ rowColoring <- c("none", "none", "#F7F7F7", "#F7F7F7") } else { rowColoring <- c("none", "#F7F7F7") } htmlTable(tbl$toRet, cgroup=c("Field Visit Information","Reference Readings","Recorder Readings","Correction Information","Nearest IV"), n.cgroup=c(4,4,4,4,3), col.rgroup = rowColoring, css.class = "table-cell", align="|rrrr|cccc|cccc|rrrr|rrr|", rnames=FALSE) }
library(dplyr) if(!identical(tbl, "The dataset requested is empty.")){ quals <- fetchQualifierMetadata(data) if(!is.null(quals) && length(quals) > 0){ qualsBind <- bind_rows(quals[[1]]) quals <- qualsBind[, c("code", "identifier", "displayName")] tbl2 <- formatQualifiersTable(quals) if(!is.null(tbl2) && nrow(tbl2) > 0){ kable(tbl2, align='l', row.names=FALSE, caption = "Qualifiers") } } }
r if(identical(tbl, "The dataset requested is empty.")) {paste(tbl)}
r printVersionStrings()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.