R/createStringSpecies.R

In andybeet/dbutils: Utility package for db connectivity and functionality

#' Utility function to convert NESPP codes to strings
#'
#' Deal explicity with NESPP3 and NESPP4 codes.
#' inputs to get_ functions are required as strings when passed as a sql statement
#' This function converts numeric inputs to character strings
#'
#' @param itemName Character string. Variable name as it exists in the data base
#' @param chosenItem User input value of variable listed in itemName
#' @param convertToCharacter Boolean. Should we convert the \code{chosenItem} to a character string (This depends on how the variable is declared in the database)
#' @param numChars Numeric scalar. Number of characters to format the numeric \code{chosenItem} as.
#'
#' @return A charachter string
#'
#' @examples
#' \dontrun{
#' createStringSpecies(itemName="area",area=503,convertToCharacter=TRUE,numChars=3)
#' createStringSpecies(itemName="species_itis",species,convertToCharacter=TRUE,numChars=6)
#'
#' }
#'@export



createStringSpecies <- function(itemName,chosenItem,convertToCharacter,numChars) {

  nZeros <- numChars-nchar(chosenItem)
  if (is.numeric(chosenItem) && (convertToCharacter==TRUE)) { # need to convert numeric to character for sql
    str <- sprintf(paste0("%0",numChars,"d"),chosenItem)
    str <- paste0("'", str, "%'", collapse=", ")
    itemStr <-  paste0(" (",itemName," like (",str,"))")
  } else if (is.numeric(chosenItem) && (convertToCharacter==FALSE)) {
    itemStr <-  paste0(" (",itemName," like (",toString(paste0(chosenItem,"%")),"))")
  } else { # not numeric
    if (tolower(chosenItem)=="all"){
      itemStr <-  NULL
    } else {
      str <- paste0("'",rep(0,nZeros), chosenItem, "%'", collapse=", ")
      itemStr <-  paste0(" (",itemName," like (",str,"))")
      #stop(paste0("Not coded for yet -- createString:",itemName," with ",chosenItem))
    }

  }
  return(itemStr)
}