knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" ) devtools::load_all() source("../testes/test_functions.R") library(dplyr)
Here are the results for import tests for each dataset( reading only a few lines of the dataset):
for(dt in get_available_datasets()){ cat("\n\n") cat(paste0("### ",dt)) cat("\n\n") if(test_report('import_sample', test.folder = "../testes/test_results")[dataset == (dt),] %>% nrow > 0){ knitr::kable(test_report('import_sample' , test.folder = "../testes/test_results")[dataset == (dt),], digits = 2, col.names = c("dataset", "period","file type", "date", "sucess", "time_download(s)", "size(Mb)","rows", "variables")) %>% print }else{ cat("\nNo test for this dataset yet\n") } }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.