Calculate MS SQL database table sizes in R

database_table_sizes.R

tables <- SQLQuery("
  select TABLE_NAME as table_name 
  from cs_reporting.information_schema.tables 
  where table_type = 'BASE TABLE'")

sizes <- rbindlist(lapply(tables$table_name, function(x) SQLQuery(paste0("sp_spaceused [", x, "]"))))

StripKB <- function(x) as.integer(str_replace_all(x, ' KB', ''))

sizes[, reserved := StripKB(reserved)]
sizes[, data := StripKB(data)]
sizes[, index_size := StripKB(index_size)]
sizes[, unused := StripKB(unused)]

write.csv(sizes, 'table_sizes.csv')