workday-diagram.R

library(d2r)

one_many <- c(
  "Agency -> Service",
  "Service -> Cost Center",
  "Fund -> Cost Center",
  "Award -> Grant",
  "Revenue Category -> Budget Plan"
)

one_one_required <- c(
  "Cost Center -> Project",
  "Project -> Budget Plan"
)

standard <- c(
  "Sales Item -> Revenue Category"
)
  
c(
  d2_container(d2_arrowhead("cf-many"), id = one_many),
  d2_container(d2_arrowhead("cf-one-required"), id = one_one_required),
  standard
) |> 
  d2_render("workday-diagram.png", pad = 5)