R/sql.R

In takewiki/tsdo: data objects in takewiki solutions

#' sql子项语句处理
#'
#' @param key 键
#' @param value 值
#' @param operator 比较符 
#'
#' @return 返回值
#' @export
#'
#' @examples
#' where_condition()
where_condition <- function(key='FPrdNumber',value='',operator='>=') {
  if(value==""){
    res =" "
  }else{
    res <- paste0(" and   ",key,"  ",operator," '",value,"' ")
  }
  return(res)
  
  
}