# rvar(<logical>) works

    list(thickness = c(0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.75, 
    0.75, 0.75, 0.75, 0.75, 0.75), pdf = c(0.25, 0.25, 0.25, 0.25, 
    0.25, 0.25, 0.75, 0.75, 0.75, 0.75, 0.75, 0.75), cdf = c(0, 0, 
    0, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1, 1, 1), n = c(4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), x = c(-0.5, -0.5, 0, 
    0, 0.5, 0.5, 0.5, 0.5, 1, 1, 1.5, 1.5), y = c(0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0), .width = c(NA, NA, NA, NA, 0.95, 0.95, 
    0.95, 0.95, 0.66, 0.66, NA, NA))

