Fix autoimports variable names

Author: coatless

R/autoimports_docs.R

@@ -17,56 +17,56 @@
 #' @format A data frame with 205 observations on the following 26 variables.
 #' - `symboling`:
 #'     - -3, -2, -1, 0, 1, 2, 3.
-#' - `normalized-losses`:
+#' - `normalized_losses`:
 #'     - continuous from 65 to 256.
 #' - `make`:
 #'     - alfa-romero, audi, bmw, chevrolet, dodge, honda, isuzu,
 #'       jaguar, mazda, mercedes-benz, mercury, mitsubishi, nissan,
 #'       peugot, plymouth, porsche, renault, saab, subaru, toyota, volkswagen,
 #'       volvo
-#' - `fuel-type`:
+#' - `fuel_type`:
 #'     - diesel, gas.
 #' - `aspiration`:
 #'     - std, turbo.
-#' - `num-of-doors`:
+#' - `num_of_doors`:
 #'     - four, two.
-#' - `body-style`:
+#' - `body_style`:
 #'     - hardtop, wagon, sedan, hatchback, convertible.
-#' - `drive-wheels`:
+#' - `drive_wheels`:
 #'     - 4wd, fwd, rwd.
-#' - `engine-location`:
+#' - `engine_location`:
 #'     - front, rear.
-#' - `wheel-base`:
+#' - `wheel_base`:
 #'     - continuous from 86.6 120.9.
 #' - `length`:
 #'     - continuous from 141.1 to 208.1.
 #' - `width`:
 #'     - continuous from 60.3 to 72.3.
 #' - `height`:
 #'     - continuous from 47.8 to 59.8.
-#' - `curb-weight`:
+#' - `curb_weight`:
 #'     - continuous from 1488 to 4066.
-#' - `engine-type`:
+#' - `engine_type`:
 #'     - dohc, dohcv, l, ohc, ohcf, ohcv, rotor.
-#' - `num-of-cylinders`:
+#' - `num_of_cylinders`:
 #'     - eight, five, four, six, three, twelve, two.
-#' - `engine-size`:
+#' - `engine_size`:
 #'     - continuous from 61 to 326.
-#' - `fuel-system`:
+#' - `fuel_system`:
 #'     - 1bbl, 2bbl, 4bbl, idi, mfi, mpfi, spdi, spfi.
 #' - `bore`:
 #'     - continuous from 2.54 to 3.94.
 #' - `stroke`:
 #'     - continuous from 2.07 to 4.17.
-#' - `compression-ratio`:
+#' - `compression_ratio`:
 #'     - continuous from 7 to 23.
 #' - `horsepower`:
 #'     - continuous from 48 to 288.
-#' - `peak-rpm`:
+#' - `peak_rpm`:
 #'     - continuous from 4150 to 6600.
-#' - `city-mpg`:
+#' - `city_mpg`:
 #'     - continuous from 13 to 49.
-#' - `highway-mpg`:
+#' - `highway_mpg`:
 #'     - continuous from 16 to 54.
 #' - `price`:
 #'     - continuous from 5118 to 45400.

data-raw/autoimports_build.R

@@ -10,7 +10,8 @@ autoimports = read.csv(url_autoimports,
 # Columns taken verbatim from ML page
 # Regex search with: [0-9]{1,2}\. (.*):.*
 # Replacement: "\1",
-colnames(autoimports) = c(
+
+var_names = c(
   "symboling",
   "normalized-losses",
   "make",
@@ -39,6 +40,10 @@ colnames(autoimports) = c(
   "price"
 )
 
-devtools::use_data(autoimports)
+var_names_safe = gsub("-", "_", var_names)
+
+colnames(autoimports) = var_names_safe
+
+devtools::use_data(autoimports, overwrite = TRUE)