library(htmltools)
base_path="https://scott-saunders.github.io/labwork/HPLC/"
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("")
}
07_23_19_Colonies/PI_EtBr_colony_HPLC/analysis/2019_07_23_PI_EtBr_colonies_analysis.html
07_23_19_Colonies/TOTO1_measurements/analysis/07_23_19_WT_toto1_brms.html
07_23_19_Colonies/TOTO1_measurements/analysis/07_23_19_WT_toto1_measurements.html
2019_10_22/2019_10_22_colony_etbr_dnase_analysis.html