knotR: Knot Diagrams using Bezier Curves

`reefknot` <-
structure(list(minsymvec = structure(c(-6.25550820209777, -93.9554070601888, 
-307.24078197722, -412.065835725036, -201.876518771671, 1.19745384709185, 
-108.5617946709, -200.567030529392, 57.3991048847138, 31.5862512567514, 
33.6460623335563, 38.3884889097859, 79.0386245494233, 129.572436630109, 
96.3957094349099, 26.0354514035543, -47.5529711788519, -135.959558276808, 
-312.664757597358, -403.940652988283, -38.0571206263711, -142.258534453044, 
-213.697484285458, -226.289968643485, 43.55542558182, 29.952495029732, 
33.8924385479409, 159.935088732151, 315.469976876762, 102.444754618496, 
123.242319812298, 72.8384281665399), .Names = c("handle_A13", 
"handle_A14", "handle_A15", "handle_A16", "handle_A17", "handle_A22", 
"handle_A23", "handle_A24", "handle_A45", "handle_A46", "handle_A47", 
"handle_A48", "handle_A54", "handle_A55", "handle_A56", "handle_A57", 
"node13", "node14", "node15", "node16", "node22", "node23", "node24", 
"node25", "node45", "node46", "node47", "node48", "node49", "node54", 
"node55", "node56"), class = "minsymvec"), overunderobj = structure(c(20, 
13, 25, 26, 6, 31, 10, 22, 15, 4, 29, 9), .Dim = c(6L, 2L)), 
    symobj = structure(list(Mver = structure(c(16, 23, 22, 24, 
    15, 3, 14, 13, 3, 25, 4, 5, 26, 27, 28, 2, 18, 11, 12, 10, 
    19, 31, 20, 21, 31, 9, 30, 29, 8, 7, 6, 32), .Dim = c(16L, 
    2L)), xver = c(1, 17), Mhor = structure(c(17, 16, 18, 15, 
    19, 24, 23, 14, 22, 13, 22, 12, 21, 11, 20, 10, 19, 18, 1, 
    2, 32, 3, 31, 26, 27, 4, 28, 5, 28, 6, 29, 7, 30, 8, 31, 
    32), .Dim = c(18L, 2L)), xhor = c(25, 9), Mrot = NULL, mcdonalds = FALSE, 
        celtic = FALSE, reefknot = TRUE, indep = structure(c(FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
        TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE), .Names = c("handle_A1", "handle_A2", "handle_A3", 
        "handle_A4", "handle_A5", "handle_A6", "handle_A7", "handle_A8", 
        "handle_A9", "handle_A10", "handle_A11", "handle_A12", 
        "handle_A13", "handle_A14", "handle_A15", "handle_A16", 
        "handle_A17", "handle_A18", "handle_A19", "handle_A20", 
        "handle_A21", "handle_A22", "handle_A23", "handle_A24", 
        "handle_A25", "handle_A26", "handle_A27", "handle_A28", 
        "handle_A29", "handle_A30", "handle_A31", "handle_A32", 
        "handle_A33", "handle_A34", "handle_A35", "handle_A36", 
        "handle_A37", "handle_A38", "handle_A39", "handle_A40", 
        "handle_A41", "handle_A42", "handle_A43", "handle_A44", 
        "handle_A45", "handle_A46", "handle_A47", "handle_A48", 
        "handle_A49", "handle_A50", "handle_A51", "handle_A52", 
        "handle_A53", "handle_A54", "handle_A55", "handle_A56", 
        "handle_A57", "handle_A58", "handle_A59", "handle_A60", 
        "handle_A61", "handle_A62", "handle_A63", "handle_A64", 
        "node1", "node2", "node3", "node4", "node5", "node6", 
        "node7", "node8", "node9", "node10", "node11", "node12", 
        "node13", "node14", "node15", "node16", "node17", "node18", 
        "node19", "node20", "node21", "node22", "node23", "node24", 
        "node25", "node26", "node27", "node28", "node29", "node30", 
        "node31", "node32", "node33", "node34", "node35", "node36", 
        "node37", "node38", "node39", "node40", "node41", "node42", 
        "node43", "node44", "node45", "node46", "node47", "node48", 
        "node49", "node50", "node51", "node52", "node53", "node54", 
        "node55", "node56", "node57", "node58", "node59", "node60", 
        "node61", "node62", "node63", "node64"))), .Names = c("Mver", 
    "xver", "Mhor", "xhor", "Mrot", "mcdonalds", "celtic", "reefknot", 
    "indep"))), .Names = c("minsymvec", "overunderobj", "symobj"
                           ), class = "knot")