knotR: Knot Diagrams using Bezier Curves

`k9_30` <-
structure(list(minsymvec = structure(c(61.7433278654732, 128.209448267185, 
-9.70766988373457, -107.228244257968, -208.236717291157, -321.493938903616, 
-311.29023637223, -101.300909913488, 174.138680388141, 334.000067946615, 
373.630618666637, 191.865565013752, 40.9251530912104, -118.828283839113, 
-230.991354152915, -334.254568673016, -95.3282653609574, 130.252913508822, 
203.106039282121, 299.851975002745, 432.360008126922, 348.241609689051, 
92.4809785266133, 52.5895958334717, -25.8661961796263, -128.275207408407, 
-10.9584470923383, 336.42199038269, 152.361398697519, -17.9841213822564, 
-161.453501749986, -211.066836570786, -211.625667830671, 78.4271124446407, 
172.864860205663, 91.4494436298066, -138.671391476258, -194.2643424006, 
-174.588244964213, -121.676354038522, -137.828452454317, -205.392950586729, 
-433.886453607879, -320.048369720106, -169.575869385653, -94.4403995916403, 
-70.7953547233908, -405.174885980348, -319.434730968092, -156.255312869727, 
-5.91230715687905, 232.771828581621, 96.3245682313978, 70.482793014369, 
-52.5265475140541, -142.331684976315, -219.585426438732, -350.949846511415, 
-248.852212243554, 222.159011004118, 365.562078757992, 310.083893898749, 
120.384799124164, -24.7412591822904, -161.819632499541, -239.093968857409, 
-283.010428689948, -9.1632680222512, 162.884853371472, 234.530858682979, 
308.544269428898, 457.48703112355, 249.015378912477, 68.0126356143636, 
28.5210327185569, -74.7559927069295, -94.6953892002333, 284.422521590721, 
69.7536669495884, -76.1598991193597, -185.46301453722, -211.233552387685, 
-110.061061009385, 122.484039915229, 191.325762268082, 151.719540001078, 
16.3354811956158, -175.928790860867, -181.109284460893, -156.646370987007, 
-121.726267273206, -143.074454570561, -314.644521489186, -404.930226180815, 
-263.647170871, -135.433617063852, -92.8481542827562, -199.914531154809, 
-393.724344083268, -253.587018108204, -91.2121999447092, 77.8172105437403, 
284.547824123491, 337.720782261038), .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_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", "node1", "node2", "node3", "node4", "node5", "node6", 
"node7", "node9", "node10", "node11", "node12", "node13", "node14", 
"node15", "node16", "node17", "node18", "node19", "node20", "node21", 
"node22", "node23", "node24", "node25", "node26", "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"), class = "minsymvec"), 
    overunderobj = structure(c(9, 3, 14, 6, 26, 21, 12, 24, 18, 
    2, 25, 4, 16, 8, 11, 19, 13, 23), .Dim = c(9L, 2L)), symobj = structure(list(
        Mver = NULL, xver = c(27, 8), Mhor = NULL, xhor = NULL, 
        Mrot = NULL, exact_h = NULL, exact_v = NULL, mcdonalds = FALSE, 
        celtic = FALSE, reefknot = FALSE, center_crossing = TRUE, 
        indep = structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, 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", "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"))), .Names = c("Mver", 
    "xver", "Mhor", "xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", 
    "celtic", "reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")