R/createStringYear.R

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

#' Utility function to convert argument to strings
#'
#' 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{
#' createString(itemName="area",area=503,convertToCharacter=TRUE,numChars=3)
#' createString(itemName="species_itis",species,convertToCharacter=TRUE,numChars=6)
#'
#' }
#'@export



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

  if (is.numeric(chosenItem) && (convertToCharacter==TRUE)) { # need to convert numeric to character for sql
    itemStr <- NULL
    isor = ""
    for (iy in 1:length(chosenItem)) {
      if (iy > 1) isor = " or "
      str <- sprintf(paste0("%0",numChars,"d"),chosenItem[iy])
      str <- paste0("'", str, "%'", collapse=", ")
      itemStr <- paste0(itemStr,isor,paste0(" (",itemName," like (",str,"))"))
    }
    itemStr <- paste0("(",itemStr,")")

  } else if (is.numeric(chosenItem) && (convertToCharacter==FALSE)) {
    itemStr <-  paste0(" (",itemName," like (",toString(paste0(chosenItem,"%")),"))")
    # this will need to be ammended at some point

  } else { # not numeric
    if (length(chosenItem) == 1) {
      if (tolower(chosenItem)=="all") {
        itemStr <-  NULL
      } else { # character string
        str <- paste0("'", chosenItem, "'%", collapse=", ")
        itemStr <- paste0(" (",itemName," like (",str,"))")
      }
    } else { # character vector code. separate by or
      itemStr <- NULL
      isor = ""
      for (iy in 1:length(chosenItem)) {
        if (iy > 1) isor = " or "
        str <- paste0("'", chosenItem[iy], "%'", collapse=", ")
        itemStr <- paste0(itemStr,isor,paste0(" (",itemName," like (",str,"))"))
      }
      itemStr <- paste0("(",itemStr,")")
      #stop(paste0("Not coded for yet -- createString:",itemName," with ",chosenItem))
    }
  }
  return(itemStr)
}