# NOT RUN {
# }
# NOT RUN {
BvalueBarplot.summ(data)
##----- multiple pages
library(ggforce)
Bvalue.barplots.summary <- BvalueBarplot.summ(data)
num.pages <- ceiling(nrow(data$Bvalue.counts) / 10)
pdf(file="multiple_pages.pdf", height=11, width=8.5)
for (page in seq_len(num.pages)) {
print(Bvalue.barplots.summary +
ggforce::facet_wrap_paginate(~PDBid,
ncol = 2, nrow = 5, page = page) )
}
dev.off()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab