knotR: Knot Diagrams using Bezier Curves

`k6_3` <-
structure(list(minsymvec = structure(c(handle_A1 = 367.691885125016, 
handle_A2 = 222.654534279407, handle_A3 = -11.5448728843281, 
handle_A4 = -107.80040023476, handle_A5 = -429.85764512754, handle_A6 = -448.173969134969, 
handle_A7 = -333.310724213141, handle_A8 = 34.1652541933483, 
handle_A9 = 98.8260506995715, handle_A10 = 282.559339033701, 
handle_A11 = 581.255053290476, handle_A12 = 332.553669395929, 
handle_A13 = 103.194830858125, handle_A14 = -166.003409865502, 
handle_A15 = -365.581724277745, handle_A16 = -71.4164351742754, 
handle_A17 = 264.244675237827, handle_A18 = -140.752556173049, 
handle_A19 = -305.444430766612, handle_A20 = -257.097385866964, 
handle_A21 = -19.5328616053422, handle_A22 = 97.5828027985004, 
handle_A23 = -258.933681499323, handle_A24 = -377.028831545339, 
handle_A25 = -232.553270773313, handle_A26 = -29.7198368269964, 
handle_A27 = 296.110246222466, handle_A28 = 144.152142457387, 
handle_A29 = -74.5268468821642, handle_A31 = -93.5081033768136, 
handle_A32 = 142.469887452247, handle_A33 = 359.799716734752, 
handle_A34 = 207.620196253118, node1 = 329.413992565124, node2 = 142.606932468264, 
node3 = -65.5063570170767, node4 = -195.822934687458, node5 = -484.064678149445, 
node6 = -433.126449108209, node7 = -186.281911656858, node8 = 68.5259342991607, 
node9 = 143.747324380698, node10 = 400.048515301449, node11 = 520.405947852911, 
node12 = 225.125734503692, node14 = -252.669893006545, node15 = -286.759112280974, 
node16 = 42.43192160177, node17 = 322.221433702432, node18 = -202.566975104612, 
node19 = -303.514030808123, node20 = -168.279653865464, node21 = 49.0848532732056, 
node22 = -31.4972522018723, node23 = -274.774866939115, node24 = -356.830310301551, 
node25 = -157.538457903586, node26 = 85.7366536628156, node27 = 282.286161533802, 
node28 = 38.8706746350961, node29 = -74.7194032574805, node30 = -62.726703274239, 
node31 = -37.5907899270007, node32 = 241.836777413314, node33 = 326.809215245745, 
node34 = 78.0441735128216), class = "minsymvec"), overunderobj = structure(c(10, 
1, 8, 4, 15, 13, 17, 12, 3, 14, 5, 9), .Dim = c(6L, 2L)), symobj = list(
    Mver = NULL, xver = 13, 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 = FALSE, 
    handle_A31 = TRUE, handle_A32 = TRUE, handle_A33 = TRUE, 
    handle_A34 = TRUE, 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 = FALSE, 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))), class = "knot")