Parse Florida Blue CSV

gistfile1.txt

#!/usr/bin/env Rscript --vanilla

suppressPackageStartupMessages({
  library(argparse)
  library(tidyverse)
})

# ----------------------------------------------------------------------------------------------------

parser<-ArgumentParser()

parser$add_argument("csv")

args <- parser$parse_args()

# ----------------------------------------------------------------------------------------------------

df <- readr::read_csv(args$csv, show_col_types = FALSE)

df <- df |>
  dplyr::rename_with(tolower) |>
  dplyr::rename_with(~ gsub(" ", "_", .x, fixed = TRUE)) |>
  dplyr::mutate_all(~ str_replace(., "\\$", "")) |>
  dplyr::mutate_all(~ str_replace_all(., ",", "")) |>
  dplyr::mutate_all(~ str_replace_all(., " ", ".")) |>
  dplyr::rename(
    owe = total_amount_you_owe_or_may_have_paid,
    copay = copayment_amount,
    deductible = deductible_amount,
    coins = coinsurance_amount
  )


df <- df |>
  dplyr::select(
    first_name,
    date_of_service,
    provider_name,
    provider_billed,
    florida_blue_paid,
    copay,
    deductible,
    coins,
    owe
  )

write.table(df, file = "", col.names = TRUE, row.names = FALSE, na = "", quote = FALSE, sep = "\t")