Miles Per Hour?

[cjtexas]

This may be hurricane meteorological heresy, but how would you feel about adding "mph" to map_wind as a valid wind_metric?

if (wind_metric == "mps") {
      breaks <- c(0, seq(15, 45, 5))
      exposure_palette <- c("#FEE5D9", "#FCBBA1", "#FC9272", 
                            "#FB6A4A", "#DE2D26", "#A50F15")
    }
    else if (wind_metric == "knots") {
      breaks <- c(0, 34, 50, 64, 100)
      exposure_palette <- c("#FEE0D2", "#FC9272", "#DE2D26")
    }
    else if (wind_metric == "mph") {
      breaks <- c(0, 40, 60, 75, 115)
      exposure_palette <- c("#FEE0D2", "#FC9272", "#DE2D26")
    }

[geanders]

@jordan27r : do you think that you could add the option in map_wind to allow it to be shown in miles per hour?