knotR: Knot Diagrams using Bezier Curves

`k9_45` <-	
structure(list(minsymvec = structure(c(handle_A1 = 89.5039598859741, 
handle_A2 = 219.876214730313, handle_A3 = 447.817620194693, handle_A4 = 420.64038333365, 
handle_A5 = 242.44070999456, handle_A6 = 98.4388212889421, handle_A7 = 80.8549233168334, 
handle_A8 = 89.840750651709, handle_A9 = 269.234173524429, handle_A10 = 438.76897637605, 
handle_A11 = 412.577757228247, handle_A12 = 225.756633155133, 
handle_A13 = 63.9267412355816, handle_A14 = -47.4468423974126, 
handle_A15 = -50.6754020175074, handle_A16 = -166.224867724429, 
handle_A17 = -279.516139815972, handle_A18 = -94.2733225970763, 
handle_A19 = 145.614988382493, handle_A20 = 175.264943965876, 
handle_A21 = 126.916530069332, handle_A22 = -92.6385950340446, 
handle_A23 = -282.945762346429, handle_A24 = -264.37775871977, 
handle_A25 = -42.6344767129595, handle_A26 = -96.7203188260965, 
handle_A27 = -196.022814182186, handle_A28 = -438.498713282, 
handle_A29 = -642.242992525282, handle_A30 = -652.081723965307, 
handle_A31 = -502.868896705525, handle_A32 = -427.56098512874, 
handle_A33 = -325.221487364831, handle_A34 = -163.81290744916, 
handle_A35 = -244.633993330215, handle_A36 = -421.494101926639, 
handle_A37 = -685.953080945856, handle_A38 = -708.195372161559, 
handle_A39 = -612.775545241037, handle_A40 = -315.621475967258, 
handle_A41 = 12.4485756643046, handle_A42 = -283.532173876902, 
handle_A43 = -299.779220630141, handle_A44 = -368.569311097443, 
handle_A45 = -442.432983350643, handle_A46 = -554.164803464715, 
handle_A47 = -615.487498641588, handle_A48 = -460.132719459606, 
handle_A49 = -233.736002734763, node1 = 141.758207615116, node2 = 312.912851885638, 
node3 = 455.751743531042, node4 = 358.749978193976, node5 = 180.569376669017, 
node6 = 90.4916568345362, node7 = 82.0592405681471, node8 = 149.486606698707, 
node9 = 330.140059123734, node10 = 442.368082227771, node11 = 335.408795614057, 
node12 = 169.9395108014, node13 = 28.9205593004017, node14 = -55.6387006760587, 
node15 = -60.7618664413915, node16 = -269.165053094483, node17 = -140.713300206837, 
node18 = 9.04030678569273, node19 = 156.884124621972, node20 = 165.597108065888, 
node21 = 53.5264616146784, node22 = -165.06449522203, node23 = -289.467524563115, 
node24 = -185.688105068626, node26 = -128.598721159897, node27 = -303.97258616366, 
node28 = -510.272590452982, node29 = -660.398673341971, node30 = -601.091906099644, 
node31 = -476.826683985457, node32 = -406.996108826135, node33 = -257.280672001385, 
node34 = -177.747779280009, node35 = -314.975218110568, node36 = -535.113262754954, 
node37 = -703.967628997043, node38 = -683.585305891476, node39 = -461.14552128859, 
node40 = -213.650812943388, node41 = -65.0088238570199, node42 = -296.06765989543, 
node43 = -309.589951616664, node44 = -390.390804463471, node45 = -476.965248541685, 
node46 = -580.768249445082, node47 = -574.934023845155, node48 = -381.30050991595, 
node49 = -165.766028875233, node50 = -86.6507056034427), class = "minsymvec"), 
    overunderobj = structure(c(9, 3, 12, 21, 8, 14, 18, 16, 24, 
    2, 11, 5, 6, 19, 22, 15, 25, 17), .Dim = c(9L, 2L)), symobj = list(
        Mver = NULL, xver = 25, Mhor = NULL, xhor = NULL, Mrot = NULL, 
        exact_h = NULL, exact_v = NULL, mcdonalds = FALSE, celtic = FALSE, 
        reefknot = FALSE, center_crossing = FALSE, indep = c(handle_A1 = TRUE, 
        handle_A2 = TRUE, handle_A3 = TRUE, handle_A4 = TRUE, 
        handle_A5 = TRUE, handle_A6 = TRUE, handle_A7 = TRUE, 
        handle_A8 = TRUE, handle_A9 = TRUE, handle_A10 = TRUE, 
        handle_A11 = TRUE, handle_A12 = TRUE, handle_A13 = TRUE, 
        handle_A14 = TRUE, handle_A15 = TRUE, handle_A16 = TRUE, 
        handle_A17 = TRUE, handle_A18 = TRUE, handle_A19 = TRUE, 
        handle_A20 = TRUE, handle_A21 = TRUE, handle_A22 = TRUE, 
        handle_A23 = TRUE, handle_A24 = TRUE, handle_A25 = TRUE, 
        handle_A26 = TRUE, handle_A27 = TRUE, handle_A28 = TRUE, 
        handle_A29 = TRUE, handle_A30 = TRUE, handle_A31 = TRUE, 
        handle_A32 = TRUE, handle_A33 = TRUE, handle_A34 = TRUE, 
        handle_A35 = TRUE, handle_A36 = TRUE, handle_A37 = TRUE, 
        handle_A38 = TRUE, handle_A39 = TRUE, handle_A40 = TRUE, 
        handle_A41 = TRUE, handle_A42 = TRUE, handle_A43 = TRUE, 
        handle_A44 = TRUE, handle_A45 = TRUE, handle_A46 = TRUE, 
        handle_A47 = TRUE, handle_A48 = TRUE, handle_A49 = TRUE, 
        handle_A50 = FALSE, node1 = TRUE, node2 = TRUE, node3 = TRUE, 
        node4 = TRUE, node5 = TRUE, node6 = TRUE, node7 = TRUE, 
        node8 = TRUE, node9 = TRUE, node10 = TRUE, node11 = TRUE, 
        node12 = TRUE, node13 = TRUE, node14 = TRUE, node15 = TRUE, 
        node16 = TRUE, node17 = TRUE, node18 = TRUE, node19 = TRUE, 
        node20 = TRUE, node21 = TRUE, node22 = TRUE, node23 = TRUE, 
        node24 = TRUE, node25 = FALSE, node26 = TRUE, node27 = TRUE, 
        node28 = TRUE, node29 = TRUE, node30 = TRUE, node31 = TRUE, 
        node32 = TRUE, node33 = TRUE, node34 = TRUE, node35 = TRUE, 
        node36 = TRUE, node37 = TRUE, node38 = TRUE, node39 = TRUE, 
        node40 = TRUE, node41 = TRUE, node42 = TRUE, node43 = TRUE, 
        node44 = TRUE, node45 = TRUE, node46 = TRUE, node47 = TRUE, 
        node48 = TRUE, node49 = TRUE, node50 = TRUE))), class = "knot")