options(warn=-1) tags$style(type = "text/css", "html, body {width:100%;height:100%}", ".leaflet .legend i{ border-radius: 50%; width: 10px; height: 10px; margin-top: 4px; }" )
Data inlcuded in these analyses were selected from:
r (params$spatial_sel_type)
(s): r params$sel_polys
These include data from r params$date_range[1]
to r params$date_range[2]
.
Non-detect values in these figures are plotted as r tolower(params$fill_nd)
.
The following additional filters were applied to the data prior to generating plots:
params$filters
Sites with a minumum of r params$visit_counts
visits were included in analyses.
DT::datatable(params$count_sel_sites, selection='none', rownames=FALSE, extensions = 'Buttons', options = list(scrollY = '600px', paging = TRUE, scrollX=TRUE, buttons = c('excel', "csv")) )
params$site_map
params$multi_site_ts
params$multi_site_bp
params$conc_map
r as.character(params$report_notes)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.