knotR: Knot Diagrams using Bezier Curves

`longthin` <-
structure(list(minsymvec = structure(c(-28.5035329158461, -30.6427305021048, 
-28.9035709343773, -21.6308687829837, 25.1745791478077, -61.9341949962751, 
-75.0995084417725, -23.9080636588711, -28.6448878135769, -28.7626628508933, 
-44.1271090946195, -247.416747588595, -268.383683896461, -28.7342881221848, 
-771.929754713053, -511.808029168039, -261.122920597492, 4.44558502219131, 
361.0469144805, 227.786305535864, 8.66565017958346, -258.500073476994, 
-508.697026189732, -839.675864269374, -528.565377459585, -181.243896088559, 
-26.3040487237808, -27.101723239265, -29.0455086411953, -27.7612150202702, 
-77.2243665811211, -41.2155060527248, -26.3514840378754, -26.0770858783953, 
-28.8243698620585, -138.970553825386, -250.222376074292, -211.463525323319, 
-711.508693169178, -444.996177414323, -187.772055004132, 66.4438538042949, 
374.735281942228, 317.154941904633, 186.893835603822, -53.8862181498383, 
-321.479556608727, -581.652497540376, -771.828591644233, -489.292760269357, 
32.118926721989, 249.44483988629), .Names = c("handle_A1", "handle_A3", 
"handle_A5", "handle_A7", "handle_A10", "handle_A11", "handle_A12", 
"handle_A14", "handle_A16", "handle_A18", "handle_A20", "handle_A21", 
"handle_A22", "handle_A23", "handle_A27", "handle_A29", "handle_A31", 
"handle_A33", "handle_A37", "handle_A38", "handle_A40", "handle_A42", 
"handle_A44", "handle_A46", "handle_A47", "handle_A48", "node1", 
"node3", "node5", "node7", "node11", "node12", "node14", "node16", 
"node18", "node20", "node21", "node22", "node27", "node29", "node31", 
"node33", "node36", "node37", "node38", "node40", "node42", "node44", 
"node46", "node47", "node48", "node49"), class = "minsymvec"), 
    overunderobj = structure(c(1, 19, 3, 17, 5, 15, 7, 13, 9, 
    23, 20, 2, 18, 4, 16, 6, 14, 8, 24, 12), .Dim = c(10L, 2L
    )), symobj = structure(list(Mver = structure(c(11, 22, 21, 
    20, 1, 18, 3, 16, 5, 14, 7, 12, 9, 24, 25, 26, 19, 2, 17, 
    4, 15, 6, 13, 8), .Dim = c(12L, 2L)), xver = c(10, 23), Mhor = NULL, 
        xhor = NULL, Mrot = NULL, mcdonalds = FALSE, celtic = FALSE, 
        indep = structure(c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, 
        TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, 
        TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, 
        FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, 
        TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, 
        TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, 
        FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, 
        TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, 
        TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, 
        FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, 
        TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, 
        TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, 
        FALSE, FALSE), .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", 
        "handle_A49", "handle_A50", "handle_A51", "handle_A52", 
        "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", 
        "node49", "node50", "node51", "node52"))), .Names = c("Mver", 
    "xver", "Mhor", "xhor", "Mrot", "mcdonalds", "celtic", "indep"
    ))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")