In Westat-Transportation/summarizeNHTS: National Household Travel Survey R Analysis Toolkit

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")

{.tabset .tabset-dropdown}

Click here to select an estimate

×

• 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')))

Westat-Transportation/summarizeNHTS documentation built on May 17, 2020, 8:57 p.m.