paper/presentation_code.R

In Ironholds/practice: Tools for identifying whether R packages follow common software engineering conventions

library(ggplot2)
library(ggthemes)
library(lubridate)
library(data.table)
load("./data/CRANpractices.rda")

data <- as.data.table(CRANpractices)
data$first_release <- lubridate::year(data$first_release)
data$last_release <- lubridate::year(data$last_release)

results <- data[,j=list(packages=.N), by='testing']

ggsave(filename = "./paper/basic_usage.svg",
       plot = ggplot(results, aes(reorder(testing, packages), packages)) + 
                geom_bar(stat="identity", fill = "steelblue1") + coord_flip() +
                labs(title = "Unit test usage in CRAN packages", x = "Testing Approach", y = "Number of packages") +
                theme_fivethirtyeight())

data$has_any_tests <- !(data$testing == "None")
initial_results <- data[,j=list(packages={
    sum(.SD$has_any_tests)/.N}), by= "first_release"]


ggsave(filename = "./paper/initial_usage.svg",
       plot = ggplot(initial_results, aes(first_release, packages)) + 
                geom_line(stat="identity", fill = "steelblue1") +
                labs(title = "Unit test usage in initial CRAN releases", x = "Year", y = "Number of packages") +
                theme_fivethirtyeight())


last_results <- data[,j=list(packages={
    sum(.SD$has_any_tests)/.N}), by= "last_release"]

ggsave(filename = "./paper/final_usage.svg",
       plot = ggplot(last_results, aes(last_release, packages)) + 
                geom_line(stat="identity", fill = "steelblue1") +
                labs(title = "Unit test usage in latest CRAN releases", x = "Year", y = "Number of packages") +
                theme_fivethirtyeight())