library(htmltools)
base_path="https://scott-saunders.github.io/labwork/FRAP/"
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("")
}
05_30_19/05_30_19_PYO_FRAP_analysis_2.html
06_10_19_glycerol/06_10_19_PYO_FRAP_glycerol_analysis.html
06_13_19_glycerol_2/06_13_19_PYO_FRAP_glycerol_2_analysis.html
06_13_19_glycerol_2/06_20_19_brms_sandbox.html