knotR: Knot Diagrams using Bezier Curves

`k8_8` <- 
structure(list(minsymvec = structure(c(-23.499749445579, 126.335673922584, 
289.592446240017, 383.729009086552, 68.729921456623, 297.198125869146, 
245.633545819165, 113.466635974808, -182.140323679278, -301.721453808883, 
-151.935418842638, -56.8041237191752, 167.063459455117, 115.550033741643, 
-125.025381370991, -360.438853008402, -443.681582573168, -170.994944871163, 
-105.437569848687, -139.222643088227, -213.453675652443, -332.679852747503, 
-581.038301242504, -881.831358285243, -924.90665707712, -568.836512113382, 
-314.334013890059, -306.568312657408, -385.938011789503, -612.558466747865, 
-898.409128966579, -923.395995333688, -618.520503914266, -575.190688782994, 
-586.55339678184, -840.21512274777, -842.782278144328, -543.319740248464, 
-347.128822537235, 43.094232438502, 187.202204911349, 332.847731878846, 
290.714350629501, 95.4913027422323, 310.444117296579, 198.21830741623, 
-3.71062717611075, -241.056976801693, -263.659874367393, -126.897883479521, 
193.70455351198, 35.89205347459, -196.2453640106, -415.160069577061, 
-355.353562411542, -131.829017886158, -115.877484128203, -112.433791008573, 
-241.459740201038, -447.099908366448, -669.764554098873, -941.282603070484, 
-784.693349236609, -463.072769040369, -304.588187563359, -344.245075139985, 
-456.11010982645, -729.90621119297, -913.997882842655, -951.950196492267, 
-803.710995718565, -595.014177092257, -579.659954434606, -661.657044645062, 
-871.79914028433, -743.491484478741, -470.755867354949, -295.683696520736
), .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_A33", "handle_A34", "handle_A35", 
"handle_A36", "handle_A37", "handle_A38", "handle_A39", "handle_A40", 
"node1", "node2", "node3", "node4", "node5", "node6", "node7", 
"node8", "node9", "node10", "node11", "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"), class = "minsymvec"), 
    overunderobj = structure(c(8, 3, 13, 6, 20, 10, 18, 15, 2, 
    6, 5, 14, 9, 16, 11, 19), .Dim = c(8L, 2L)), symobj = structure(list(
        Mver = NULL, xver = 12, Mhor = NULL, xhor = NULL, Mrot = NULL, 
        exact_h = NULL, exact_v = NULL, mcdonalds = FALSE, celtic = FALSE, 
        reefknot = FALSE, center_crossing = FALSE, 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, FALSE, 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, 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", "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"))), .Names = c("Mver", "xver", "Mhor", "xhor", 
    "Mrot", "exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", 
    "center_crossing", "indep"))), .Names = c("minsymvec", "overunderobj", 
"symobj"), class = "knot")