R/sqltext.R

In andybeet/survdat: Tools for working with NEFSC survey data

#'  Convert output to text for DB query
#'
#'  @param x
#'
#' Not exported
#' @noRd

sqltext <- function(x){
  out <- x[1]
  if(length(x) > 1){
    for(i in 2:length(x)){
      out <- paste(out, x[i], sep = "','")
    }
  }
  out <- paste("'", out, "'", sep = '')
  return(out)
}