tests/visual_tests/bezierArrowGradient_vtests.R

In raredd/Gmisc0: Collection of functions for plotting relations, generating tables, and more.

# A bug that I found through the transitionPlot
ag <- bezierArrowGradient(x = c(0.25, 0.5, 0.5, 0.75), 
                          y = c(0.125925925925926, 
                                0.125925925925926, 
                                0.121283950617284, 
                                0.121283950617284),
                          width = 0.039509010185427, 
                          arrow = list(length = 0.0625, 
                                       base = 0.069829997839748), 
                          clr = "#000000", 
                          grdt_type = "triangle", 
                          grdt_clr_prop = 0.5, 
                          grdt_start_prop = 0.3, 
                          grdt_decrease_prop = 0.3, 
                          grdt_clr = "#C49696")
grid.newpage()
grid.draw(ag)

# Step off bug
ag <- bezierArrowGradient(x = c(0.25, 0.5, 0.5, 0.75), 
                          y = rep(.5, 4),
                          width = 0.4, 
                          arrow = list(length = 0.2, 
                                       base = .5), 
                          clr = "#000000", 
                          grdt_type = "triangle", 
                          grdt_clr_prop = 0.5, 
                          grdt_start_prop = 0.3, 
                          grdt_decrease_prop = 0.3, 
                          grdt_clr = "#C49696")
grid.newpage()
grid.draw(ag)