fix-dstat-csv

#!/usr/bin/env ruby
require "csv"

def fix_dstat_csv(file)
  dstat_csv = CSV.read file

  # Shift off useless metadata rows
  dstat_csv.shift 5

  # dstat spreads the headers out over two rows, which R does not like, so
  # combine them into one.
  headers = dstat_csv[0].each_with_object([]) do |header, res|
    res << "#{(header || res.last)}"
  end
  dstat_csv[1].map! {|header| "#{headers.shift}-#{header}"}
  dstat_csv.shift

  CSV do |csv|
    dstat_csv.each {|row| csv << row}
  end
end

fix_dstat_csv ARGV[0]