R/pretty_label_column.r

In nwfsc-assess/nwfscSurvey: Northwest Fisheries Science Center Survey

pretty_label_column <- function(string) {
  switch(
    EXPR = string,
    catch_kg_km2 = "Catch-Per-Unit-Effort (kg*(km^2)^{-1})",
    Depth_m = "Depth (m)",
    Latitude_dd = "Latitude (\u00B0N)",
    Longitude_dd = "Longitude (\u00B0W)"
  )
}