R/emailonetime.R

In r-net-tools/inet.intel:

#' One time email domains
#' Ref: https://raw.githubusercontent.com/martenson/disposable-email-domains/master/disposable_email_blacklist.conf
#' MOT = Mail One Time

#' Download source data to local file
#'
#' @param dstpath path where source data will be stored, tempdir set as default.
#'
#' @return character, local path of downloaded file
DownloadMOTData <- function(dstpath = tempdir()){
  local.file <- paste(dstpath, "mailonetime.txt",
                      sep = ifelse(.Platform$OS.type == "windows", "\\", "/"))
  source.raw.data <- "https://raw.githubusercontent.com/martenson/disposable-email-domains/master/disposable_email_blacklist.conf"
  download.file(url = source.raw.data, destfile = local.file)
  return(local.file)
}

#' Read raw data and returns as data.frame
#'
#' @param local.file
#'
#' @return data.frame
BuildMOTDataFrame <- function(local.file = paste(tempdir(),
                                                 "mailonetime.txt",
                                                 sep = ifelse(.Platform$OS.type == "windows", "\\", "/"))){
  df <- read.csv(file = local.file, header = F,
                 col.names = c("domain"), colClasses = c("character"))

  return(df)
}

#' Get Tornodes data.frame
#'
#' @return data.frame
GetMOTData <- function(dowload.time = Sys.time()){
  lf <- DownloadMOTData()
  df <- BuildMOTDataFrame(local.file = lf)
  # Tidy df.mot
  df$type <- as.factor(rep("domain", nrow(df)))
  df$source <- as.factor(rep("martenson/disposable-email-domains", nrow(df)))
  df$timestamp <- rep(dowload.time, nrow(df))
  names(df) <- c("ioc","type", "source", "timestamp")
  df$source.info <- as.character(rep(NA, nrow(df)))

  return(df)
}