###Load libraries and setup options require(WQReview) require(knitr) opts_chunk$set(dev = 'png',out.width='1024px',out.height='750px',dpi=60)
###Load up the data load(paste(outputDir,"/data.rda",sep="")) ###Subset to site network qw.data$PlotTable <- subset(qw.data$PlotTable,SITE_NO %in% sites) if(!is.null(reports$chemFlagTable)) { reports$chemFlagTable <- subset(reports$chemFlagTable, SITE_NO %in% sites) } else{} if(!is.null(reports$pestFlagTable)) { reports$pestFlagTable <- subset(reports$pestFlagTable, SITE_NO %in% sites) } else{} if(!is.null(reports$resultFlagTable)) { reports$resultFlagTable <- subset(reports$resultFlagTable, SITE_NO %in% sites) } else{}
r format(max(qw.data$PlotTable$RESULT_MD),"%Y-%m-%d %H:%M","\n")
Site:r unique(qw.data$PlotTable$STATION_NM[which(qw.data$PlotTable$RESULT_MD == max(qw.data$PlotTable$RESULT_MD))])
Parameters modified:r qw.data$PlotTable$PARM_CD[which(qw.data$PlotTable$RESULT_MD == max(qw.data$PlotTable$RESULT_MD))]
Who:r qw.data$PlotTable$RESULT_MN[which(qw.data$PlotTable$RESULT_MD == max(qw.data$PlotTable$RESULT_MD))]
Records with DQI of I:r length(unique(qw.data$PlotTable$RECORD_NO[which(qw.data$PlotTable$DQI_CD == "I")]))
Records with DQI of S:r length(unique(qw.data$PlotTable$RECORD_NO[which(qw.data$PlotTable$DQI_CD == "S")]))
Total number of records:r length(unique(qw.data$PlotTable$RECORD_NO))
require(DT) ############################ ###chemFlagTable ############################ ###Render the table datatable( reports$chemFlagTable, extensions = 'Buttons', options = list( scrollX=TRUE, autoWidth=TRUE, dom = 'Bfrtip', buttons = c('copy', 'csv', 'excel', 'pdf', 'print')) ) #kable(reports$chemFalgTable)
require(DT) ############################ ###pestFlagTable ############################ ###Render the table datatable( reports$pestFlagTable, extensions = 'Buttons', options = list( scrollX=TRUE, autoWidth=TRUE, dom = 'Bfrtip', buttons = c('copy', 'csv', 'excel', 'pdf', 'print')) )
require(DT) ############################ ###resultFlagTable ############################ ###Render the table datatable( reports$resultFlagTable, extensions = 'Buttons', options = list( scrollX=TRUE, autoWidth=TRUE, dom = 'Bfrtip', buttons = c('copy', 'csv', 'excel', 'pdf', 'print')) ) #kable(reports$resultFlagTable)
###Make links for each site cat("\n\n") for(l in 1:length(sites)) { cat("#[", unique(qw.data$PlotTable$SITE_NO[which(qw.data$PlotTable$SITE_NO == sites[l])]), " ", unique(qw.data$PlotTable$STATION_NM[which(qw.data$PlotTable$SITE_NO == sites[l])]), "](", unique(qw.data$PlotTable$SITE_NO[which(qw.data$PlotTable$SITE_NO == sites[l])]), ".htm)", "\n", sep="" ) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.