changeset 2:ae3909607532 draft default tip

planemo upload commit bda06a1967f1d712f8235b066e4c937d88cb6107
author mingchen0919
date Sun, 16 Sep 2018 22:47:48 -0400
parents aee65d1b1840
children
files rmarkdown_report.Rmd
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))
 }