# HG changeset patch
# User mingchen0919
# Date 1537152468 14400
# Node ID ae3909607532855f1a94ea56c08439ac1c54d8d3
# Parent  aee65d1b1840c93114ae926899cd6b7def323e6f
planemo upload commit bda06a1967f1d712f8235b066e4c937d88cb6107

diff -r aee65d1b1840 -r ae3909607532 rmarkdown_report.Rmd
--- a/rmarkdown_report.Rmd	Sun Sep 16 17:39:54 2018 -0400
+++ b/rmarkdown_report.Rmd	Sun Sep 16 22:47:48 2018 -0400
@@ -106,7 +106,10 @@
 table_list = list()
 table_list[[1]] = tags$tr(lapply(colnames(pfams_df), tags$th))
 for (i in 1:nrow(pfams_df)) {
-  row = c(pfams_df[i, c('target_name', 'accession')], 
+  target_name_url = tags$a(pfams_df[i, 'target_name'], href=paste0('https://pfam.xfam.org/family/', pfams_df[i, 'target_name']))
+  accession_url = tags$a(pfams_df[i, 'accession'], href=paste0('https://pfam.xfam.org/family/', pfams_df[i, 'accession']))
+  row = c(list(tags$ul(target_name_url)),
+          list(tags$ul(accession_url)),
           lapply(pfams_df[i, -c(1:2)], add_links))
   table_list[[i+1]] = tags$tr(lapply(row, tags$td))
 }