Commit c45ac471 authored by Lena Hersemann's avatar Lena Hersemann

diabled printing of failing pathway renderings

parent 06788fa7
......@@ -501,10 +501,11 @@ echo("the following pathways failed to render:", paste(failedPPs, collapse = ",
pathwayPlots <- pathwayPlots[lapply(pathwayPlots, is.character) == 0]
# print names of pathways which could not be rendered
# pathwayPlots[!map_lgl(pathwayPlots, ~ file.exists(.$plotfile))] %>% map("pathway_id")
# purriefied solution: discard(pathwayPlots, ~ file.exists(.$plotfile)) %>% map("pathway_id")
pathwayPlots[1]
pathwayPlots[!map_lgl(pathwayPlots, ~ file.exists(.$plotfile))] %>% map("pathway_id")
## make sure that all files exist
#' make sure that all files exist
stopifnot(map_lgl(pathwayPlots, ~ file.exists(.$plotfile)) %>% all)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment