R/mrpt41_analysis_md.R

In takewiki/jlrdspkg: package for jlrds app

#' 查询财务伙伴的信息
#'
#' @param conn 连接
#'
#' @return 返回值
#' @export
#'
#' @examples
#' mrpt_analysis_md_division_summary()
mrpt_analysis_md_division_summary <- function(conn=tsda::conn_rds('jlrds')) {
  sql <- paste0('select * from rds_vw_mrpt_division')
  res <- tsda::sql_select(conn,sql)
  names(res) <- c('财务伙伴','品牌渠道数量')
  return(res)

}

#' 查询财务伙伴的详细信息
#'
#' @param conn 连接
#'
#' @return 返回值
#' @export
#'
#' @examples
#' mrpt_analysis_md_division_detail()
mrpt_analysis_md_division_detail <- function(conn=tsda::conn_rds('jlrds'),FFinancialPartner ='王晋') {
  sql <- paste0("select FFinancialPartner,FDivistionType,FBrand,FChannel,FEmail from  t_mrpt_division
where FFinancialPartner ='",FFinancialPartner,"'
order by FDivistionType,FBrand,FChannel")
  res <- tsda::sql_select(conn,sql)
  names(res) <- c('财务伙伴','事业部','品牌','渠道','邮箱')
  return(res)

}