R/subset_country.R

In zeeva85/gapminderplus: Additional data from gapminder

#' Subset a country using a set of inputs via the console
#'
#' @description
#' Type the country or countries in the console to subset the gapminder dataset more interactively.
#' Provide the country or countries without " " in the console after executing `subset_country()`.
#'
#' @return A list of country that is subseted from the gapminder2 dataset for subset_country
#' @return A list of country that is subseted from the gapminder2 dataset for subset_country2
#'
#' @details
#' Provide a list in the console to subset the gapminder dataset more interactively.
#' @examples
#'#' subset_country()
#'#' subset_country2()
#' @import dplyr
#' @import rlang
#' @import tidyr
#'
#' @rdname subset_country
#' @export

subset_country <- function() {

  x <- scan(what = "character")  #  The prompt that request the package names

results <- dplyr::filter(gapminderplus::gapminder2, gapminder2$country %in% x)
  return(results)

}

#' @rdname subset_country
#' @export

subset_country2 <- function() {

  x <- scan(what = "character")  #  The prompt that request the package names

  results <- dplyr::filter(gapminderplus::gapminder3, gapminder3$country %in% x)
  return(results)

}