knotR: Knot Diagrams using Bezier Curves

`k8_7` <- 
structure(list(minsymvec = structure(c(-130.308187920638, -148.108624092714, 
-103.834541218867, 34.8563254194503, 256.651260177965, 225.625471385444, 
140.446651026538, 10.6569937481679, -59.1382284888071, -138.551865841573, 
-257.949278740185, -309.697134549749, -138.330290944938, 13.9664322199357, 
111.713015085246, 268.351393691388, 274.341768466258, 134.777188044905, 
-178.481478740824, -301.966225827292, -228.654560757883, 117.566637578524, 
233.632460682184, 100.850956513729, 40.0468968175271, -229.087720770154, 
-268.231919747851, -271.118990666938, -339.839494056858, -595.552261830353, 
-876.269414210289, -964.110448414452, -835.414735196705, -559.255316007506, 
-311.967565358674, -145.464600098448, -285.426924748328, -455.273304683934, 
-611.281616269445, -788.518901090579, -849.307522301504, -857.875726766659, 
-723.589601276593, -572.397893611922, -405.076341766541, -268.930786126163, 
16.0052044808396, -175.501539726177, -139.905977882844, -51.9032016583839, 
102.009998577423, 269.506345881172, 180.635776352546, 99.3199226947607, 
-100.502407332896, -177.108699442957, -283.44174806262, -266.128354118969, 
-64.2115643556108, 49.1346156106897, 172.240009416779, 282.422496354049, 
224.069317891049, 0.326696770691714, -231.620487291504, -286.289255223689, 
-79.5216105465568, 144.63690756633, 209.797089651411, 38.8934043135961, 
-61.2013457913882, -236.526155568969, -276.862061458829, -282.94252763751, 
-450.463793566781, -717.872716289541, -920.169939776015, -964.869427607207, 
-919.971195129066, -719.143769784195, -476.692748419842, -244.329380734454, 
-186.34983225517, -353.426708534008, -522.532111788389, -670.37732016216, 
-822.464536691415, -849.177662572469, -821.167992189783, -670.110046522375, 
-511.650811180791, -375.577819081004, -154.641717791039, 32.4915780997522
), .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", 
"handle_A41", "handle_A42", "handle_A43", "handle_A44", "handle_A45", 
"handle_A46", "handle_A47", "handle_A48", "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", "node27", "node28", "node29", "node30", "node31", "node32", 
"node33", "node34", "node35", "node36", "node37", "node38", "node39", 
"node40", "node41", "node42", "node43", "node44", "node45", "node46", 
"node47", "node48"), class = "minsymvec"), overunderobj = structure(c(23, 
15, 21, 10, 18, 6, 4, 13, 5, 22, 11, 19, 7, 16, 14, 2), .Dim = c(8L, 
2L)), symobj = structure(list(Mver = NULL, xver = 8, 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, 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, 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", "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"))), .Names = c("Mver", "xver", "Mhor", "xhor", "Mrot", 
"exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", "center_crossing", 
"indep"))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")