Flowchart for reporting R bugs

flowchart.R

library(diagram)

openplotmat(main="Flowchart for R Bug Reporting")

curvedarrow(from = c(0.5,0.85), to = c(0.8,0.725), curve = -0.2, arr.pos = 0.6)
curvedarrow(from = c(0.8,0.725), to = c(0.85,0.5), curve = -0.2, arr.pos = 0.5)
curvedarrow(from = c(0.85,0.5), to = c(0.8,0.26), curve = -0.2, arr.pos = 0.5)
curvedarrow(from = c(0.8,0.26), to = c(0.5,0.15), curve = -0.2, arr.pos = 0.53)
curvedarrow(from = c(0.5,0.15), to = c(0.2,0.3), curve = -0.2, arr.pos = 0.4)
curvedarrow(from = c(0.2,0.3), to = c(0.15,0.5), curve = -0.2, arr.pos = 0.5)
curvedarrow(from = c(0.15,0.5), to = c(0.2,0.7), curve = -0.2, arr.pos = 0.45)

straightarrow(from = c(0.8,0.725), to = c(0.5,0.5), arr.pos = 0.5)
straightarrow(from = c(0.8,0.26), to = c(0.5,0.5), arr.pos = 0.45)
straightarrow(from = c(0.21,0.26), to = c(0.5,0.5), arr.pos = 0.52)
straightarrow(from = c(0.2,0.7), to = c(0.5,0.5), arr.pos = 0.55)

textellipse(mid = c(0.5,0.85), box.col = grey(0.95), radx = 0.15, rady = 0.05, 
            cex = 1.5, lab = "Found a BUG?")
textrect(mid = c(0.8, 0.725), radx = 0.115, rady = 0.065, cex = 0.8,
         lab = c("You are wrong.", "Read the documentation again,",
                 "more carefully this time."))

textellipse(mid = c(0.85,0.5), box.col = grey(0.95), radx = 0.06, rady = 0.05, 
            cex = 0.8, lab = "Not wrong?")
textrect(mid = c(0.8,0.26), radx = 0.1, rady = 0.05, cex = 0.8,
         lab = c("It's a feature, not a bug.", "Read 'R Internals'", 
                 "to learn why."))

textellipse(mid = c(0.5,0.15), box.col = grey(0.95), radx = 0.07, rady = 0.05, 
            cex = 0.8, lab = "Not a feature?")
textrect(mid = c(0.21,0.26), radx = 0.12, rady = 0.08, cex = 0.8, 
         lab = c("Should have downloaded", "R-patched. This question was",
                 "asked two days ago and the", "problem was solved", 
                 "in 7 minutes."))

textellipse(mid = c(0.15,0.5), box.col = grey(0.95), radx = 0.1, rady = 0.05, 
            cex = 0.8, lab = "R-patched didn't fix it?")
textrect(mid = c(0.2,0.7), radx = 0.13, rady = 0.07, cex = 0.7,
         lab = c("You are using a contributed package",  
                 "which is outside the purview of",
                 "R-core. Pester the package",
                 "maintainer instead."))

texthexa(mid = c(0.5,0.5), col = 1, radx = 0.15, cex = 1.5,
         lab = "Base R\ndoes not have\nany bugs.")