knotR: Knot Diagrams using Bezier Curves

`k8_21` <-
structure(list(minsymvec = structure(c(handle_A1 = 265.549850800745, 
handle_A2 = 310.222521482896, handle_A3 = 286.880172265218, handle_A4 = 22.6113466871929, 
handle_A5 = -173.786475233819, handle_A6 = -248.783903404332, 
handle_A7 = -85.4991013949014, handle_A8 = 90.6456807580961, 
handle_A9 = 351.533746791138, handle_A10 = 459.253193127804, 
handle_A11 = 460.407018290024, handle_A12 = 273.587337640434, 
handle_A13 = 133.338672388327, handle_A14 = -124.960151370631, 
handle_A15 = -306.311289872501, handle_A16 = -336.523441897426, 
handle_A17 = -300.327582020237, handle_A18 = 114.543360719784, 
handle_A19 = 108.357483427051, handle_A20 = 12.6366723537773, 
handle_A21 = -49.4505969548251, handle_A22 = -110.262964492509, 
handle_A23 = -65.1256026175073, handle_A24 = -66.4653237205569, 
handle_A25 = -151.389509750657, handle_A26 = -539.302437129968, 
handle_A28 = -687.744087478146, handle_A29 = -306.14960318427, 
handle_A30 = -228.310888620515, handle_A31 = -176.006452386155, 
handle_A32 = -152.303142725269, handle_A33 = -289.611845485963, 
handle_A34 = -382.53193042802, handle_A35 = -468.407904059584, 
handle_A36 = -447.083934309254, handle_A37 = -417.678211976277, 
handle_A38 = -326.896201233567, handle_A39 = -178.896606640855, 
handle_A40 = -49.7952511234741, handle_A41 = -183.66302228685, 
handle_A42 = -514.683527584314, handle_A43 = -550.865614087625, 
handle_A44 = -541.328137385845, handle_A45 = -408.56082130944, 
handle_A46 = -32.8765721749321, node1 = 273.940438104656, node2 = 303.171607790863, 
node3 = 203.646899967472, node5 = -254.23421542406, node6 = -182.835990913567, 
node7 = 1.92622780160308, node8 = 189.005658256932, node9 = 403.209680933563, 
node10 = 459.845218918151, node11 = 401.290418031059, node12 = 211.706382553501, 
node13 = 17.8187319812746, node14 = -192.715099249064, node15 = -327.152048732014, 
node16 = -333.325179452269, node17 = -161.726219266024, node18 = 139.117339091117, 
node19 = 75.7223738102435, node20 = 1.58474573255294, node21 = -79.2342613215193, 
node22 = -102.914695349732, node23 = 72.3447086050072, node24 = -82.1042970807588, 
node25 = -306.825526345715, node26 = -613.495160907617, node27 = -689.463800263851, 
node28 = -552.432140998686, node29 = -261.549215312866, node30 = -209.365010454561, 
node31 = -162.475971584045, node32 = -194.216944039269, node33 = -305.36104102992, 
node34 = -429.213875104298, node35 = -461.468718870725, node36 = -429.043800317959, 
node37 = -391.352668414482, node38 = -274.947571367496, node39 = -167.476023867828, 
node40 = -39.9535400132883, node41 = -322.474578814969, node42 = -534.005359466953, 
node43 = -549.407839526934, node44 = -499.391264671079, node45 = -332.693555312961, 
node46 = 0.942234556062516), class = "minsymvec"), overunderobj = structure(c(9, 
3, 15, 7, 18, 13, 22, 23, 2, 12, 6, 23, 8, 19, 14, 18), .Dim = c(8L, 
2L)), symobj = list(Mver = NULL, xver = 4, 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 = FALSE, 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, node1 = TRUE, node2 = TRUE, 
    node3 = TRUE, node4 = FALSE, 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 = TRUE, 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
    ))), class = "knot")