R/gen_cartype.R

In takewiki/nsgenpkg:

#' 处理相当问题
#'
#' @param file 文件名
#' @param sheet_name   页签
#' @param new_carType   新车型
#'
#' @return 返回值
#' @export
#'
#' @examples
#' nsgen_cartype()
nsgen_cartype <- function(file="data-raw/捷豹路虎品牌车型知识点模板V2.2_发现运动_需泛化相似问.xlsx",
                          sheet_name='发运-固定内容',
                          new_carType='极光揽胜'){

  faq <-read_excel(file,
                   sheet = sheet_name,col_types = c("text",
                                                    "text", "text", "date", "date", "text",
                                                    "text", "text", "text", "text", "text",
                                                    "text", "text", "text", "text"))
  faq$标准问 <-stringr::str_replace(faq$标准问,faq$车型,new_carType)
  faq$`业务对象(近义词）` <-stringr::str_replace(faq$`业务对象(近义词）`,faq$车型,new_carType)
  faq$`业务对象(同义词）` <-stringr::str_replace(faq$`业务对象(同义词）`,faq$车型,new_carType)
  #old_cartype <- faq$车型
  faq$车型 <- new_carType
  faq$生效日期 <- as.character(faq$生效日期)
  faq$失效日期 <- as.character(faq$失效日期)
  faq$生效日期 <- na_replace(faq$生效日期,as.character(Sys.Date()))
  faq$失效日期 <- na_replace(faq$失效日期,'2100-12-31')

  res <- generator(faq)
  #res$`业务对象(近义词）` <- stringr::str_replace_all(res$`业务对象(近义词）`,old_cartype,new_carType)

  return(res)

}