Mercurial > repos > mingchen0919 > aurora_skewer
comparison rmarkdown_report_render.R @ 14:a668b6eddbd0 draft
planemo upload commit 09b6a41798350090b61aea16966ba64b583ef02b-dirty
| author | mingchen0919 |
|---|---|
| date | Sat, 09 Jun 2018 23:39:57 -0400 |
| parents | 151de1ea4d96 |
| children |
comparison
equal
deleted
inserted
replaced
| 13:151de1ea4d96 | 14:a668b6eddbd0 |
|---|---|
| 88 { | 88 { |
| 89 if (length(dirs) > 0) { | 89 if (length(dirs) > 0) { |
| 90 lapply(dirs, function(x) { | 90 lapply(dirs, function(x) { |
| 91 path_end = tail(strsplit(x, '/')[[1]], 1) | 91 path_end = tail(strsplit(x, '/')[[1]], 1) |
| 92 # hide vakata-jstree-3.3.5 folder | 92 # hide vakata-jstree-3.3.5 folder |
| 93 if (!(path_end %in% c('vakata-jstree-3.3.5', 'rmarkdown_report_files'))) { | 93 if (!(path_end %in% c('vakata-jstree-3.3.5', 'rmarkdown_report_files', 'site_libs'))) { |
| 94 # x_path = strsplit(x, paste0(output_dir, '/'))[[1]][2] | 94 # x_path = strsplit(x, paste0(output_dir, '/'))[[1]][2] |
| 95 li_item = tags$li(path_end, file_tree(x)) | 95 li_item = tags$li(path_end, file_tree(x)) |
| 96 li_item$attribs = list('data-jstree' = '{"icon":"jstree-folder"}') | 96 li_item$attribs = list('data-jstree' = '{"icon":"jstree-folder"}') |
| 97 li_item | 97 li_item |
| 98 } | 98 } |