knotR: Knot Diagrams using Bezier Curves

`pretzel_7_3_7` <-
structure(list(minsymvec = structure(c(-278.062953191495, -217.305474266144, 
-105.363238123238, -2.84040525724317, -85.7242469220266, 2.41790650374094, 
-98.6338348107757, -222.280684692211, -310.95458083969, -221.127505074666, 
-355.126002051582, -341.987285943959, 171.748394943199, 288.74270509737, 
276.72328259864, 8.50658196869877, 36.4922731911631, 319.865088709783, 
276.019205907775, 280.941443738958, 180.712680053028, 76.5295207331993, 
-69.3078499402716, 120.758377985245, 137.41919965615, -241.20321026001, 
-164.835383691063, -52.5614910995963, -32.3733524204686, -110.314661729871, 
-52.4002121660757, -153.514125352092, -268.182552973668, -251.039389190194, 
-187.142345478377, -395.653896335168, -352.841917779168, -321.53526926165, 
210.520174468161, 303.538106533171, 277.221007154213, 23.0794691300075, 
27.965261435395, 321.015184563617, 259.40644235387, 255.273235659755, 
111.283418076709, 37.1082932009539, 123.658120148569, 154.116822528109
), .Names = c("handle_A1", "handle_A2", "handle_A3", "handle_A11", 
"handle_A12", "handle_A29", "handle_A30", "handle_A31", "handle_A32", 
"handle_A33", "handle_A49", "handle_A50", "handle_A51", "handle_A52", 
"handle_A53", "handle_A61", "handle_A62", "handle_A79", "handle_A80", 
"handle_A81", "handle_A82", "handle_A83", "handle_A98", "handle_A99", 
"handle_A100", "node1", "node2", "node3", "node11", "node12", 
"node29", "node30", "node31", "node32", "node33", "node48", "node49", 
"node50", "node51", "node52", "node53", "node61", "node62", "node79", 
"node80", "node81", "node82", "node83", "node99", "node100"), class = "minsymvec"), 
    overunderobj = structure(c(1, 31, 3, 29, 5, 27, 7, 13, 36, 
    9, 15, 45, 17, 43, 19, 41, 21, 32, 2, 30, 4, 28, 6, 26, 34, 
    11, 38, 46, 16, 44, 18, 42, 20, 40), .Dim = c(17L, 2L)), 
    symobj = structure(list(Mver = structure(c(31, 1, 2, 30, 
    29, 3, 50, 49, 48, 47, 46, 32, 33, 12, 11, 34, 35, 13, 14, 
    45, 15, 16, 44, 43, 17, 6, 26, 27, 5, 4, 28, 25, 24, 23, 
    22, 21, 7, 8, 37, 36, 9, 10, 38, 39, 20, 40, 41, 19, 18, 
    42), .Dim = c(25L, 2L)), xver = NULL, Mhor = structure(c(12, 
    11, 36, 37, 8, 7, 6, 26, 27, 5, 4, 28, 29, 3, 2, 30, 31, 
    1, 50, 49, 33, 32, 25, 24, 34, 35, 10, 9, 38, 39, 40, 20, 
    19, 41, 42, 18, 17, 43, 44, 16, 15, 45, 46, 47, 13, 14, 21, 
    22), .Dim = c(24L, 2L)), xhor = c(23, 48), Mrot = NULL, exact_h = NULL, 
        exact_v = NULL, mcdonalds = TRUE, celtic = TRUE, reefknot = FALSE, 
        center_crossing = FALSE, indep = structure(c(TRUE, TRUE, 
        TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        TRUE, TRUE, 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, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, TRUE, TRUE, 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, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, TRUE, TRUE, 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, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, TRUE, TRUE, 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, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, 
        TRUE), .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", 
        "handle_A65", "handle_A66", "handle_A67", "handle_A68", 
        "handle_A69", "handle_A70", "handle_A71", "handle_A72", 
        "handle_A73", "handle_A74", "handle_A75", "handle_A76", 
        "handle_A77", "handle_A78", "handle_A79", "handle_A80", 
        "handle_A81", "handle_A82", "handle_A83", "handle_A84", 
        "handle_A85", "handle_A86", "handle_A87", "handle_A88", 
        "handle_A89", "handle_A90", "handle_A91", "handle_A92", 
        "handle_A93", "handle_A94", "handle_A95", "handle_A96", 
        "handle_A97", "handle_A98", "handle_A99", "handle_A100", 
        "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", "node65", "node66", 
        "node67", "node68", "node69", "node70", "node71", "node72", 
        "node73", "node74", "node75", "node76", "node77", "node78", 
        "node79", "node80", "node81", "node82", "node83", "node84", 
        "node85", "node86", "node87", "node88", "node89", "node90", 
        "node91", "node92", "node93", "node94", "node95", "node96", 
        "node97", "node98", "node99", "node100"))), .Names = c("Mver", 
    "xver", "Mhor", "xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", 
    "celtic", "reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")