#' Find Carrier function
#'
#' Searches for airport information based on its IATA code or city name
#'
#' @param x Carrier
#'
#' @examples
#' \dontrun{
#' find_carrier("United")
#'
#' find_carrier("UA")
#' }
#' @export
#'
find_carrier <- function(x){
skynet::carriers %>%
filter(str_detect(op_carrier, regex(x, ignore_case = TRUE)) |
str_detect(carrier_name, regex(x, ignore_case = TRUE))) %>%
select(op_carrier, carrier_name, from, to)
}
findCarrier <- function(...){
warning(paste("findCarrier is deprecated, use find_carrier(), instead."))
do.call(find_carrier, list(...))
}
globalVariables(c("carriers", "carrier_name"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.