#' Generate vehicle region
#'
#' Give vehicle region based on given make name
#'
#' @param make Character string indicating vehicle make name
#'
#' @return Character string representing vehicle region
#'
#' @export
#'
#' @examples
#' vehicle_region('Cadillac')
vehicle_region <- function(make) {
Region <- ''
if (make %in% c('Acura', 'Honda', 'Infiniti', 'Lexus', 'Mazda',
'Mitsubishi', 'Nissan', 'Scion', 'Subaru', 'Suzuki',
'Toyota')) {
Region <- 'JAPANESE'
}
else if (make %in% c('Audi', 'BMW', 'Mercedes-Benz', 'Mini', 'Porsche',
'Volkswagen', 'Volvo')) {
Region <- 'EUROPEAN'
}
else if (make %in% c('Buick', 'Cadillac', 'Chevrolet', 'Chrysler', 'Dodge',
'Fiat', 'Ford', 'GMC', 'Jeep', 'Lincoln', 'Mercury',
'Pontiac', 'Ram')) {
Region <- 'AMERICAN'
}
else if (make %in% c('Hyundai', 'Kia')) {Region <- 'KOREAN'}
else (Region <- 'OTHER')
return(Region)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.