function (content, topic, head, theme) 
{
    KUBlue = "#0022B4"
    temp <- gsub("\n", "", fixed = TRUE, content, perl = TRUE)
    temp <- gsub("\\s+$", "", temp, perl = TRUE)
    temp <- gsub(",+$", "", temp, perl = TRUE)
    temp <- paste("list(", temp, ")")
    causes <- eval(parse(file = "", n = NULL, text = temp))
    effect = "Nonconformity"
    if (head != "") {
        effect = head
    }
    par(col.axis = "black", col.lab = KUBlue, col.main = KUBlue, 
        col.sub = KUBlue, bg = "#FFFFFF", xaxt = "s", yaxt = "s")
    cause.and.effect(cause = causes, title = "", effect = effect, 
        cex = c(1, 0.9, 1), font = c(2, 3, 2))
    mtext(topic, side = 3, line = 2.5, col = KUBlue, font = 2, 
        cex = 1.3)
    mtext("(Ishikawa or fish-bone diagram)", side = 3, line = 1.5, 
        col = KUBlue, font = 2, cex = 1)
    if (theme == "KU") {
        display_logo(x = 1.2, y = 0.05)
    }
}
<bytecode: 0x558a7adce410>
<environment: namespace:ishikawa>