Links to all the Spectroscopy notebook htmls

library(htmltools)

base_path="https://scott-saunders.github.io/labwork/Spectroscopy/"

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("")
}

08_07_19_biofilm_Ru_Rh/analysis/08_07_19_spectroscopy_biofilm_Ru_Rh.html

08_29_19_biofilm2/analysis/08_29_19_biofilm_spectroscopy_analysis.html

08_29_19_biofilm2/analysis/2019_09_27_spectroscopy_curve_fitting.html

2019_09_17_solution_ET/2019_09_17_solution_ET_analysis_2.html

2019_09_17_solution_ET/2019_09_17_solution_ET_analysis.html

2019_09_24_redox_DNA_binding/2019_09_17_phzRedOx_DNAbinding_analysis.html

2019_10_09_PHZred_ctDNA/2019_10_09_PHZred_ctDNA_analysis.html

2019_10_18_solution_ET_ctDNA/2019_10_18_solution_ET_ctDNA_analysis.html

2019_11_13_phz_ET_vs_O2/2019_11_13_phz_ET_vs_O2_analysis.html

2019_11_22_wt_dphz_eDNA/2019_11_22_wt_dphz_eDNA_analysis.html