R/fixAfterPeriod.R

In gatoRs: Geographic and Taxonomic Occurrence R-Based Scrubbing

#' @title Fix taxonomic capitalization of a species name when there are periods involved.
#'
#' @description
#' The `fixAfterPeriod()` function fixes taxonomic capitalization of a string when there are periods in the species name.
#'
#' @details
#' Requires package stringr.
#'
#' @param substring A substring from the name column of the data frame to be fixed.
#'
#' @return Returns the substring with fixed capitalization.
#'
#' @keywords internal
#' @importFrom stringr str_to_title str_length

fixAfterPeriod <- function(substring) {
  index <- unlist(gregexpr(".", substring, fixed = TRUE))
  temp <- ""
  for (i in 1:length(index)) {
    if (i == length(index)) {
      temp <- paste0(temp, stringr::str_to_title(substr(substring, index[i] + 1, stringr::str_length(substring))))
    }
    else {
      temp <- paste0(temp, stringr::str_to_title(substr(substring, index[i] + 1, index[i+1])))
    }
  }
  temp2 <- stringr::str_to_title(substr(substring, 1, index))
  return(paste0(temp2,temp))
}