charlatan: Make Fake Data

#' @title UserAgentProvider
#' @description user agent methods
#' For instance mac_processor, user_agents, chrome and firefox user agents.
#' @family ParentProviders
#' @export
#' @returns UserAgentProvider object.
UserAgentProvider <- R6::R6Class(
  inherit = BaseProvider,
  "UserAgentProvider",
  public = list(
    #' @description a mac processor
    mac_processor = function() {
      super$random_element(private$mac_processors)
    },

    #' @description a linux processor
    linux_processor = function() {
      super$random_element(private$linux_processors)
    },

    #' @description a random user agent string
    user_agent = function() {
      name <- super$random_element(private$user_agents)
      self[[name]]()
    },

    #' @description a chrome user agent string
    #' @param version_from (integer) minimum version
    #' @param version_to (integer) maximum version
    #' @param build_from (integer) minimum build
    #' @param build_to (integer) maximum build
    chrome = function(version_from = 13, version_to = 63,
                      build_from = 800, build_to = 899) {
      saf <- paste0(super$random_int(531, 536), super$random_int(0, 2))
      tmplt <- "(%s) AppleWebKit/%s (KHTML, like Gecko) Chrome/%s.0.%s.0 Safari/%s"
      platforms <- c(
        sprintf(
          tmplt, self$linux_platform_token(),
          saf,
          super$random_int(version_from, version_to),
          super$random_int(build_from, build_to),
          saf
        ),
        sprintf(
          tmplt, self$windows_platform_token(),
          saf,
          super$random_int(version_from, version_to),
          super$random_int(build_from, build_to),
          saf
        ),
        sprintf(
          tmplt, self$mac_platform_token(),
          saf,
          super$random_int(version_from, version_to),
          super$random_int(build_from, build_to),
          saf
        )
      )

      paste0("Mozilla/5.0 ", super$random_element(platforms))
    },

    #' @description a firefox user agent string
    firefox = function() {
      dt <- DateTimeProvider$new()
      ver <- c(
        sprintf(
          "Gecko/%s Firefox/%s.0",
          dt$date_time_between("2011-01-01 00:00:00"),
          super$random_int(4, 15)
        ),
        sprintf(
          "Gecko/%s Firefox/3.6.%s",
          dt$date_time_between("2010-01-01 00:00:00"),
          super$random_int(1, 20)
        ),
        sprintf(
          "Gecko/%s Firefox/3.8",
          dt$date_time_between("2010-01-01 00:00:00")
        )
      )
      tmplt_win <- "(%s; %s; rv:1.9.%s.20) %s"
      tmplt_lin <- "(%s; rv:1.9.%s.20) %s"
      tmplt_mac <- "(%s; rv:1.9.%s.20) %s"
      platforms <- c(
        sprintf(
          tmplt_win, self$windows_platform_token(),
          sub("_", "-", MiscProvider$new()$locale()),
          super$random_int(0, 2),
          super$random_element(ver)
        ),
        sprintf(
          tmplt_lin, self$linux_platform_token(),
          super$random_int(5, 7),
          super$random_element(ver)
        ),
        sprintf(
          tmplt_mac, self$mac_platform_token(),
          super$random_int(2, 6),
          super$random_element(ver)
        )
      )

      paste0("Mozilla/5.0 ", super$random_element(platforms))
    },

    #' @description a safari user agent string
    safari = function() {
      saf <- sprintf(
        "%s.%s.%s", super$random_int(531, 535),
        super$random_int(1, 50),
        super$random_int(1, 7)
      )
      if (super$random_int(0, 1) == 0) {
        ver <- sprintf("%s.%s", super$random_int(4, 5), super$random_int(0, 1))
      } else {
        ver <- sprintf("%s.0.%s", super$random_int(4, 5), super$random_int(1, 5))
      }
      tmplt_win <- "(Windows; U; %s) AppleWebKit/%s (KHTML, like Gecko) Version/%s Safari/%s"
      tmplt_mac <- "(%s rv:%s.0; %s) AppleWebKit/%s (KHTML, like Gecko) Version/%s Safari/%s"
      tmplt_ipod <- "(iPod; U; CPU iPhone OS %s_%s like Mac OS X; %s) AppleWebKit/%s (KHTML, like Gecko) Version/%s.0.5 Mobile/8B%s Safari/6%s"
      locale <- sub("_", "-", MiscProvider$new()$locale())
      platforms <- c(
        sprintf(
          tmplt_win, self$windows_platform_token(),
          saf,
          ver,
          saf
        ),
        sprintf(
          tmplt_mac, self$mac_platform_token(),
          super$random_int(2, 6),
          locale,
          saf,
          ver,
          saf
        ),
        sprintf(
          tmplt_ipod, super$random_int(3, 4),
          super$random_int(0, 3),
          locale,
          saf,
          super$random_int(3, 4),
          super$random_int(111, 119),
          saf
        )
      )
      paste0("Mozilla/5.0 ", super$random_element(platforms))
    },

    #' @description an opera user agent string
    opera = function() {
      platform <- sprintf(
        "(%s; %s) Presto/2.9.%s Version/%s.00",
        if (super$random_int(0, 1)) {
          self$linux_platform_token()
        } else {
          self$windows_platform_token()
        },
        sub("_", "-", MiscProvider$new()$locale()),
        super$random_int(160, 190),
        super$random_int(10, 12)
      )
      sprintf(
        "Opera/%s.%s.%s",
        super$random_int(8, 9),
        super$random_int(10, 99),
        platform
      )
    },

    #' @description an internet explorer user agent string
    internet_explorer = function() {
      tmplt <- "Mozilla/5.0 (compatible; MSIE %s.0; %s; Trident/%s.%s)"
      sprintf(
        tmplt, super$random_int(5, 9),
        self$windows_platform_token(),
        super$random_int(3, 5),
        super$random_int(0, 1)
      )
    },

    #' @description a windows platform token
    windows_platform_token = function() {
      super$random_element(private$windows_platform_tokens)
    },

    #' @description a linux platform token
    linux_platform_token = function() {
      paste0("X11; Linux ", super$random_element(private$linux_processors))
    },

    #' @description a mac platform token
    mac_platform_token = function() {
      sprintf(
        "Macintosh; %s Mac OS X 10_%s_%s",
        super$random_element(private$mac_processors),
        super$random_int(5, 12),
        super$random_int(0, 9)
      )
    }
  ),
  private = list(
    locales = c("en_US"),
    # user agent browser specific strings
    user_agents = c(
      "chrome", "firefox", "internet_explorer", "opera", "safari"
    ),
    # windows platform tokens
    windows_platform_tokens = c(
      "Windows 95", "Windows 98", "Windows 98; Win 9x 4.90", "Windows CE",
      "Windows NT 4.0", "Windows NT 5.0", "Windows NT 5.01",
      "Windows NT 5.1", "Windows NT 5.2", "Windows NT 6.0", "Windows NT 6.1",
      "Windows NT 6.2"
    ),
    # linux processor options
    linux_processors = c("i686", "x86_64"),
    # mac processor options
    mac_processors = c("Intel", "PPC", "U; Intel", "U; PPC"),
    provider_ = "UserAgentProvider"
  )
)