[R-sig-teaching] flowchart for reporting R bugs

[G. Jay Kerns]

All in good fun.  I should have taken this closer to heart on a couple
of occasions.

Jay

P.S. You may need to resize the plot window.



#############
require(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,
            lab = "Found a BUG?",
            cex = 1.5
            )
textrect(mid = c(0.8, 0.725),
            radx = 0.115,
            rady = 0.065,
            lab = c("You are wrong.",
              "Read the documentation again,",
              "more carefully this time."),
            cex = 0.8
            )
textellipse(mid = c(0.85,0.5),
            box.col = grey(0.95),
            radx = 0.06,
            rady = 0.05,
            lab = "Not wrong?",
            cex = 0.8
            )
textrect(mid = c(0.8,0.26),
            radx = 0.1,
            rady = 0.05,
            lab = c("It's a feature, not a bug.",
              "Read 'R Internals'",
              "to learn why."),
            cex = 0.8
            )
textellipse(mid = c(0.5,0.15),
            box.col = grey(0.95),
            radx = 0.07,
            rady = 0.05,
            lab = "Not a feature?",
            cex = 0.8
            )
textrect(mid = c(0.21,0.26),
         radx = 0.12,
         rady = 0.08,
         lab = c("Should have downloaded",
           "R-patched. This question was",
           "asked two days ago and the",
           "problem was solved",
           "in 7 minutes."),
            cex = 0.8
            )
textellipse(mid = c(0.15,0.5),
            box.col = grey(0.95),
            radx = 0.1,
            rady = 0.05,
            lab = "R-patched didn't fix it?",
            cex = 0.8
            )
textrect(mid = c(0.2,0.7),
         radx = 0.13,
         rady = 0.07,
         lab = c("You are using a contributed package",
           "which is outside the purview of",
           "R-core. Pester the package",
           "maintainer instead."),
         cex = 0.7
         )

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

##############


















***************************************************
G. Jay Kerns, Ph.D.
Associate Professor
Department of Mathematics & Statistics
Youngstown State University
Youngstown, OH 44555-0002 USA
Office: 1035 Cushwa Hall
Phone: (330) 941-3310 Office (voice mail)
-3302 Department
-3170 FAX
VoIP: gjkerns at ekiga.net
E-mail: gkerns at ysu.edu
http://people.ysu.edu/~gkerns/