library(htmltools)
base_path="https://scott-saunders.github.io/labwork/Figures/"
files <- dir(path=".", pattern = "*\\.html$",include.dirs = T,recursive = T)
for(link in files){
print(
tags$a(href = paste(base_path, link, sep=''), link)
)
writeLines("")
}
02_05_19_draft_2/code/02_05_19_fig_1_draft_2.html
02_05_19_draft_2/code/02_05_19_fig_2_draft_2.html
02_05_19_draft_2/code/02_05_19_supp_swv_gc_calibration.html
02_05_19_draft_2/code/02_17_19_derivations.html
draft1/2018_11_01_figure1.nb.html
draft1/2018_11_01_figure2.html
draft1/2018_11_01_figure2.nb.html
draft1/2018_11_01_figure3.nb.html