function (content, topic, type, totalencounters, theme) 
{
    temp <- gsub("\n", "", fixed = TRUE, content, perl = TRUE)
    temp <- gsub("\\s+$", "", temp, perl = TRUE)
    temp <- gsub(",+$", "", temp, perl = TRUE)
    temp <- paste("Mymatrix <- matrix(c(", temp, "), ncol=2, byrow=TRUE,dimnames = list(NULL, c(\"Reason\",\"count\")))")
    x <- eval(parse(file = "", n = NULL, text = temp))
    if (totalencounters < 0) {
        totalencounters = 0
    }
    totalencounters <- as.numeric(totalencounters)
    KUBlue = "#0022B4"
    SkyBlue = "#6DC6E7"
    par(col.axis = "black", col.lab = KUBlue, col.main = KUBlue, 
        col.sub = KUBlue, col = KUBlue, new = TRUE)
    if (type == "p" || type == "P") {
        count <- as.numeric(x[, 2])
        names(count) <- x[, 1]
        pareto.chart(count, ylab = "Frequency", cumperc = seq(0, 
            100, by = 10), xlab = "", border = KUBlue, main = "")
        if (nchar(topic) > 1) {
            title(topic, cex.main = 1.5, font.main = 2, col.main = KUBlue)
        }
        mtext("Barriers", side = 1, line = 4, col = KUBlue, cex = 1.5)
        if (theme == "KU") {
            display_logo(x = 1.2, y = 0.05)
        }
    }
    else if (type == "b" || type == "B") {
        Myframe <- as.data.frame(x)
        Myframe$count <- as.numeric(as.character(Myframe$count))
        totalencounters <- max(Myframe$count, totalencounters)
        ggplot(Myframe, aes(x = reorder(Reason, -count), y = count)) + 
            geom_bar(fill = SkyBlue, stat = "identity") + xlab("") + 
            ylab("Count") + theme(axis.title.x = element_text(size = rel(2), 
            face = "bold", angle = 0)) + theme(axis.title.y = element_text(size = rel(2), 
            face = "bold", angle = 90)) + theme(plot.background = element_rect(fill = "#FFFFFF")) + 
            ylim(0, totalencounters) + labs(title = topic, subtitle = "Bar chart (sorted by frequency)") + 
            theme(plot.title = element_text(size = rel(3), face = "bold", 
                colour = KUBlue)) + theme(axis.text = element_text(colour = KUBlue)) + 
            theme(axis.title = element_text(colour = KUBlue))
    }
    else {
        Myframe <- as.data.frame(x)
        Myframe$count <- as.numeric(as.character(Myframe$count))
        totalencounters <- max(Myframe$count, totalencounters)
        Myframe$Reason <- as.character(Myframe$Reason)
        Myframe$Reason <- factor(Myframe$Reason, levels = unique(Myframe$Reason))
        ggplot(Myframe, aes(x = Reason, y = count)) + geom_bar(fill = SkyBlue, 
            stat = "identity") + xlab("") + ylab("Count") + theme(axis.title.x = element_text(size = rel(2), 
            face = "bold", angle = 0)) + theme(axis.title.y = element_text(size = rel(2), 
            face = "bold", angle = 90)) + theme(plot.background = element_rect(fill = "#FFFFFF")) + 
            ylim(0, totalencounters) + labs(title = topic, subtitle = "Cascade chart") + 
            theme(plot.title = element_text(size = rel(3), face = "bold", 
                colour = KUBlue)) + theme(axis.text = element_text(colour = KUBlue)) + 
            theme(axis.title = element_text(colour = KUBlue))
    }
}
<bytecode: 0x558a7adce528>
<environment: namespace:pareto>