src/01-data_collection/scrape/Julia/cost_estimates.R

In uva-bi-sdad/oss: Measuring the Cost and Value of Open Source Software

library(sdalr)
library(DBI)
library(dplyr)
library(data.table)
library(dtplyr)
library(stringr)

source(here::here('R/upload_cost.R'))

read_julia_contributions = function() {
  conn = sdalr::con_db(dbname = 'oss',
                       user = 'gkorkmaz',
                       pass = 'gkorkmaz',
                       host = 'localhost',
                       port = 5433)
  output = dbReadTable(conn = conn,
                       name = 'julia_contributions') %>%
    data.table()
  on.exit(dbDisconnect(conn = conn))
  return(value = output)
}

upload_cost_julia = function(data) {
  .GlobalEnv$upload_cost(data = data, table_name = 'julia_cost_estimates')
}

cost_estimates = read_julia_contributions() %>%
  select(-user) %>%
  group_by(slug) %>%
  mutate(start_date = min(start_date),
         end_date = max(end_date),
         contributors = nrow(.),
         kloc = (additions + deletions) / 1e3,
         major = sum(kloc / sum(kloc) > 5e-2),
         additions = sum(additions),
         deletions = sum(deletions),
         commits = sum(commits),
         kloc = sum(kloc)) %>%
  unique() %>%
  mutate(cost = round(18096.47 * 2.5 * (2.4 * (kloc)^1.05)^0.38, 2)) %>%
  data.table()

upload_cost_julia(data = cost_estimates)