library(htmltools)
base_path="https://scott-saunders.github.io/labwork/IDA/06_04_19_agarose_PYO/"
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("")
}