R/widget-lives-in-foreign-country.R

In cwolfsonseeley/discoveryengine: A CADS Prospecting Tool

#' @rdname address
#' @export
lives_in_foreign_country <- function(...,
                                     include_alternate = FALSE,
                                     include_past = FALSE,
                                     include_seasonal = FALSE,
                                     include_student_local = FALSE,
                                     include_student_permanent = FALSE,
                                     city = NULL,
                                     type = "home") {
    countries <- prep_dots(...)
    reroute(lives_in_foreign_country_(countries,
                                      include_alternate = include_alternate,
                                      include_past = include_past,
                                      include_seasonal = include_seasonal,
                                      include_student_local = include_student_local,
                                      include_student_permanent = include_student_permanent,
                                      city = city,
                                      type = type))
}


lives_in_foreign_country_ <- function(countries,
                                      include_alternate = FALSE,
                                      include_past = FALSE,
                                      include_seasonal = FALSE,
                                      include_student_local = FALSE,
                                      include_student_permanent = FALSE,
                                      city = NULL,
                                      type = "home") {
    address_widget("country_code", countries,
                   type = type,
                   include_alternate = include_alternate,
                   include_past = include_past,
                   include_seasonal = include_seasonal,
                   include_student_local = include_student_local,
                   include_student_permanent = include_student_permanent,
                   foreign_city = city)
}


# tms_country