R/input-checks.R

In seoR: SEO Related Analyses

#Functions to check the input


#' URL Input checks
#'
#' @param url The URL you want to analyze
#' @keywords internal.
#' url_with_http()
##Check if the User provided a correct URL with Protocoll
url_with_http <- function(url) {
  return(
    grepl(
      "^http(s)?\\:\\/\\/([a-zA-Z0-9-]*\\.)?[a-zA-Z0-9-]*\\.[a-zA-Z]{2,3}(\\.[a-zA-Z]{2,3})?",
      url
    )
  )
}


#' Check if the User just provided the Hostname and TLD
#'
#' @param url The URL you want to analyze
#' @keywords internal.
#' host_tld()
host_tld <- function(url) {
  return(grepl("^[a-zA-Z0-9-]*\\.[a-zA-Z]{2,3}(\\.[a-zA-Z]{2,3})?", url))
}


#' Check if the User provided a correct Sitemap.xml
#'
#' @param sitemap The sitemap you want to analyze
#' @keywords internal.
#' sitemapxml_check()
sitemapxml_check<-function(sitemap){
  return(grepl("^http(s)?\\:\\/\\/.*xml$", sitemap))
}

#Other Input checks

#' Check h-Tag Input
#'
#' @param h_tag The h_tag you want to analyze
#' @keywords internal.
#' htag_input()
htag_input <- function(h_tag) {
  return(grepl("^h[1-6]{1}", h_tag))
}

#' Check general choices
#'
#' @param choice The choice you want to analyze
#' @param possible What are good inputs?
#' choice()
choice <- function(choice, possible = "") {
  regex <- paste0("^(", possible, ")$")
  return(grepl(regex, choice))
}


#' Check Screaming-Frog Input Files
#'
#' @param input The input you want to analyze
#' @keywords internal.
#' internal_all_file()
internal_all_file <- function(input) {
  if (ncol(input) != 41) {
FALSE
  } else {
    TRUE
  }
}