Mercurial > repos > greg > ideas_genome_tracks

diff ideas_genome_tracks.R @ 29:fc6f39767c83 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Tue, 21 Nov 2017 13:23:28 -0500
parents bc1e9eb54f3c
children 4c42188478a7
line wrap: on
line diff
--- a/ideas_genome_tracks.R	Tue Nov 21 09:04:59 2017 -0500
+++ b/ideas_genome_tracks.R	Tue Nov 21 13:23:28 2017 -0500
@@ -88,12 +88,12 @@
 
 create_primary_html = function(output_trackhub, tracks_dir) {
     track_files <- list.files(path=tracks_dir);
-    s <- paste('<html>\n<head>\n</head>\n<body>\n<ul>\n', sep="");
+    s <- paste('<html>\n    <head>\n    </head>\n    <body>\n        <ul>\n', sep="");
         for (i in 1:length(track_files)) {
             track_file <- paste("tracks", track_files[i], sep="/");
-            s <- paste(s, '<li>\n<a href="', track_file, '">', track_file, '</a>\n</li>', sep="");
+            s <- paste(s, '            <li><a href="', track_file, '">', track_file, '</a></li>\n', sep="");
         }
-    s <- paste(s, '</ul>\n</body>\n</html>', sep="");
+    s <- paste(s, '        </ul>\n    </body>\n</html>', sep="");
     cat(s, file=output_trackhub);
 }