#' Plot the Number of lines in R source Code
#' @examples
#' Plot_R_Source_Code()
#' @importFrom R.utils countLines
#' @export
Plot_R_Source_Code <- function(
directory = "/Users/lzhan/Documents/ADMIN/Works/Teachings/RModelVis/OLD/r-source-trunk/src") {
# dir <- "https://github.com/wch/r-source/src"
rfile <- list.files(path = directory, full.names = TRUE, recursive = TRUE, pattern = "\\.R$")
cfile <- list.files(path = directory, full.names = TRUE, recursive = TRUE, pattern = "\\.c$")
ffile <- list.files(path = directory, full.names = TRUE, recursive = TRUE, pattern = "\\.f$")
numbers <- c(length(rfile), length(cfile), length(ffile))
propnum <- prop.table(numbers)
rline <- sum(sapply(rfile, R.utils::countLines))
cline <- sum(sapply(cfile, R.utils::countLines))
fline <- sum(sapply(ffile, R.utils::countLines))
lines <- c(rline, cline, fline)
propline <- prop.table(lines)
par(mfrow = c(1, 2))
barplot(propnum, names.arg = c("r", "C", "Fortran"), main = "File Numbers")
text(x = 0.5 + 0.2 + 1.2 * (0:2), y = propnum, labels = numbers, pos = 1)
barplot(propline, names.arg = c("r", "C", "Fortran"), main = "Code Lines")
text(x = 0.5 + 0.2 + 1.2 * (0:2), y = propline, labels = lines, pos = 1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.