knotR: Knot Diagrams using Bezier Curves

`k4_1a` <-	
structure(list(minsymvec = structure(c(handle_A7 = -405.161312345975, 
handle_A8 = -176.146172026614, handle_A12 = 16.1708459400488, 
handle_A15 = -124.609505654325, handle_A22 = -165.732706060282, 
handle_A23 = -215.207981183417, handle_A24 = -15.93797521578, 
handle_A30 = -16.1218052059129, handle_A31 = 93.2536857995959, 
handle_A32 = 215.16485154743, handle_A39 = 9.97002513580951, 
handle_A46 = 29.1728636161118, handle_A47 = 268.366718262311, 
node6 = -406.391410734382, node7 = -336.59936356733, node8 = -102.733694069468, 
node15 = -67.2729469563266, node22 = -190.419670195021, node23 = -154.299761927354, 
node31 = 154.080475111984, node32 = 190.593713135909, node36 = -407.609774856487, 
node39 = 67.3794999494336, node46 = 102.587238920107, node47 = 337.369750266579, 
node48 = 407.553207909282), class = "minsymvec"), overunderobj = structure(c(2, 
3, 4, 14, 23, 16, 11, 15, 17, 10, 21, 5, 8, 9, 20, 22), .Dim = c(8L, 
2L)), symobj = list(Mver = structure(c(23, 8, 7, 22, 15, 6, 5, 
14, 21, 4, 13, 1, 16, 17, 2, 9, 18, 19, 10, 3, 20, 11), .Dim = c(11L, 
2L)), xver = c(12, 24), Mhor = structure(c(7, 22, 23, 8, 15, 
16, 9, 2, 1, 17, 5, 14, 13, 4, 21, 20, 3, 10, 11, 19), .Dim = c(10L, 
2L)), xhor = c(6, 18), Mrot = NULL, exact_h = NULL, exact_v = NULL, 
    mcdonalds = FALSE, celtic = FALSE, reefknot = TRUE, center_crossing = FALSE, 
    indep = c(handle_A1 = FALSE, handle_A2 = FALSE, handle_A3 = FALSE, 
    handle_A4 = FALSE, handle_A5 = FALSE, handle_A6 = FALSE, 
    handle_A7 = TRUE, handle_A8 = TRUE, handle_A9 = FALSE, handle_A10 = FALSE, 
    handle_A11 = FALSE, handle_A12 = TRUE, handle_A13 = FALSE, 
    handle_A14 = FALSE, handle_A15 = TRUE, handle_A16 = FALSE, 
    handle_A17 = FALSE, handle_A18 = FALSE, handle_A19 = FALSE, 
    handle_A20 = FALSE, handle_A21 = FALSE, handle_A22 = TRUE, 
    handle_A23 = TRUE, handle_A24 = TRUE, handle_A25 = FALSE, 
    handle_A26 = FALSE, handle_A27 = FALSE, handle_A28 = FALSE, 
    handle_A29 = FALSE, handle_A30 = TRUE, handle_A31 = TRUE, 
    handle_A32 = TRUE, handle_A33 = FALSE, handle_A34 = FALSE, 
    handle_A35 = FALSE, handle_A36 = FALSE, handle_A37 = FALSE, 
    handle_A38 = FALSE, handle_A39 = TRUE, handle_A40 = FALSE, 
    handle_A41 = FALSE, handle_A42 = FALSE, handle_A43 = FALSE, 
    handle_A44 = FALSE, handle_A45 = FALSE, handle_A46 = TRUE, 
    handle_A47 = TRUE, handle_A48 = FALSE, node1 = FALSE, node2 = FALSE, 
    node3 = FALSE, node4 = FALSE, node5 = FALSE, node6 = TRUE, 
    node7 = TRUE, node8 = TRUE, node9 = FALSE, node10 = FALSE, 
    node11 = FALSE, node12 = FALSE, node13 = FALSE, node14 = FALSE, 
    node15 = TRUE, node16 = FALSE, node17 = FALSE, node18 = FALSE, 
    node19 = FALSE, node20 = FALSE, node21 = FALSE, node22 = TRUE, 
    node23 = TRUE, node24 = FALSE, node25 = FALSE, node26 = FALSE, 
    node27 = FALSE, node28 = FALSE, node29 = FALSE, node30 = FALSE, 
    node31 = TRUE, node32 = TRUE, node33 = FALSE, node34 = FALSE, 
    node35 = FALSE, node36 = TRUE, node37 = FALSE, node38 = FALSE, 
    node39 = TRUE, node40 = FALSE, node41 = FALSE, node42 = FALSE, 
    node43 = FALSE, node44 = FALSE, node45 = FALSE, node46 = TRUE, 
    node47 = TRUE, node48 = TRUE))), class = "knot")