代码库13-CellChat批量存图

tryCatch({
    pdf(paste0(dir,"/Pathway-bubble-",pathways.show,'-',ct_name, ".pdf"))
    netVisual_bubble(cellchat, sources.use = ct,signaling = pathways.show,remove.isolate = F) %>% print()
    dev.off()
}, error = function(e) {
    dev.off()
    cat("Error")
})

两个踩的坑：

1. 必须得加%>% print()才能打印图到pdf
2. 如果报错，必须得加dev.off()关闭图形设备，否则后面的图会全部画不出来