source("process-estimates.R") source("create-trend-table.R") estimate_html_content <- list() trend_tables <- list() for(estimate in 1:nrow(estimates)) { html_content <- list( "2001" = make_chart(results_2001[[estimate]]), "2009" = make_chart(results_2009[[estimate]]), "2017" = make_chart(results_2017[[estimate]]) ) estimate_title <- paste(estimates[estimate, "title"]) estimate_html_content[[estimate_title]] <- html_content trend_tables[[estimate]] <- create_trend_table(estimate) } # include estimates.csv as documentation file_size <- file.info("estimates.csv")[, "size"] pdf_base64_string <- RCurl::base64Encode(readBin("estimates.csv", what="raw", n=file_size+16)) # need +16 byte overflow buffer csv_download_link <- htmltools::a(href=paste0("data:application/octet-stream;base64,", pdf_base64_string), download="estimates.csv", "estimates.csv")
The r paste(nrow(estimates))
multi-year estimates in this report were generated from publicly available National Household Travel Survey data
Estimates and visuals created using summarizeNHTS
Specification for estimates can be reviewed in r paste(csv_download_link)
out <- lapply(seq_along(estimate_html_content), function(i) { paste( knitr::knit_expand(text = sprintf("## %s\n", names(estimate_html_content)[i])), knitr::knit_expand(text = "\n<div class='row'>"), knitr::knit_expand(text = "\n<div class='col-md-4 bar-chart'>"), knitr::knit_expand(text = "\n### 2001"), knitr::knit_expand(text = "\n```r"), knitr::knit_expand(text = sprintf("\nestimate_html_content[[%d]][['2001']]", i)), knitr::knit_expand(text = "\n```"), knitr::knit_expand(text = "\n</div>"), knitr::knit_expand(text = "\n<div class='col-md-4 bar-chart'>"), knitr::knit_expand(text = "\n### 2009"), knitr::knit_expand(text = "\n```r"), knitr::knit_expand(text = sprintf("\nestimate_html_content[[%d]][['2009']]", i)), knitr::knit_expand(text = "\n```"), knitr::knit_expand(text = "\n</div>"), knitr::knit_expand(text = "\n<div class='col-md-4 bar-chart'>"), knitr::knit_expand(text = "\n### 2017"), knitr::knit_expand(text = "\n```r"), knitr::knit_expand(text = sprintf("\nestimate_html_content[[%d]][['2017']]", i)), knitr::knit_expand(text = "\n```"), knitr::knit_expand(text = "\n</div>"), knitr::knit_expand(text = "\n</div>"), knitr::knit_expand(text = "\n<div class='row'>"), knitr::knit_expand(text = "\n<div class='col-md-12'>"), knitr::knit_expand(text = "\n### Trend Significance Table"), knitr::knit_expand(text = "\n```r"), knitr::knit_expand(text = sprintf("\ntrend_tables[[%d]]", i)), knitr::knit_expand(text = "\n```"), knitr::knit_expand(text = "\n</div>"), knitr::knit_expand(text = "\n</div>"), collapse = '\n') })
r paste(knitr::knit(text = paste(out, collapse = '\n')))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.