R/prdGen.R

In takewiki/mdlMultipleMaterialServer:

#' 生成动态数据
#'
#' @param input 输入
#' @param output 输出
#' @param session  返回值
#'
#' @return 返回值
#' @export
#'
#' @examples
#' prdGen_prdCategory_reactiveData()
prdGen_prdCategory_reactiveData <- function(input,output,session) {

  res <- shiny::reactive({
    var_prdGen_prdCategory_placeholder <- tsui::var_ListChoose1('prdGen_parentCategory_lc1')
    FParentPrdCategory =var_prdGen_prdCategory_placeholder()
    print(FParentPrdCategory)
    res <- prdCategory_queryByParent(FParentPrdCategory=FParentPrdCategory)
    return(res)

  })
  return(res)

}
#' 处理逻辑
#'
#' @param input 输入
#' @param output 输出
#' @param session 会话
#'
#' @return 返回值
#' @export
#'
#' @examples
#' materialGeneratorServer()
prdGenServer_prdCategory <- function(input,output,session) {



  output$prdGen_prdCategory_dt <- DT::renderDataTable(prdGen_prdCategory_reactiveData(input,output,session)(),selection = 'single')


}



#' 生成动态数据
#'
#' @param input 输入
#' @param output 输出
#' @param session  返回值
#'
#' @return 返回值
#' @export
#'
#' @examples
#' prdGen_prdGroup_reactiveData()
prdGen_prdGroup_reactiveData <- function(input,output,session) {

  res  <- reactive({

    shiny::validate(
      need(length(input$prdGen_prdCategory_dt_rows_selected) > 0, "请从产品大类中选中任意一行")
    )
    data_detail <- prdGen_prdCategory_reactiveData(input,output,session)()
    FPrdCategoryFNumber  <- data_detail[as.integer(input$prdGen_prdCategory_dt_rows_selected), '产品大类代码']
    print(FPrdCategoryFNumber)


    data_detail1 <- prdGroup_queryDetail(FPrdCategoryFNumber=FPrdCategoryFNumber)
    ncount <- nrow(data_detail1)


    return(data_detail1)

  })
  return(res)

}

#' 处理逻辑
#'
#' @param input 输入
#' @param output 输出
#' @param session 会话
#'
#' @return 返回值
#' @export
#'
#' @examples
#' materialGeneratorServer()
prdGenServer_prdGroup <- function(input,output,session) {



  output$prdGen_prdGroup_dt <- DT::renderDataTable(prdGen_prdGroup_reactiveData(input,output,session)(),selection = 'single')


}





#' 处理逻辑
#'
#' @param input 输入
#' @param output 输出
#' @param conn_cfg 连接文件
#' @param session 会话
#'
#' @return 返回值
#' @export
#'
#' @examples
#' materialGeneratorServer()
prdGenServer <- function(input,output,session,conn_cfg='config/conn_cfg.R') {


  prdCategoryData <- shiny::eventReactive(input$prdGen_confirm_btn,{
    var_prdGen_prdCategory_placeholder <- tsui::var_ListChoose1('prdGen_parentCategory_lc1')
    FParentPrdCategory =var_prdGen_prdCategory_placeholder()
    print(FParentPrdCategory)
    res <- prdCategory_queryByParent(conn_cfg = conn_cfg,FParentPrdCategory=FParentPrdCategory)
    return(res)

  })
  shiny::observeEvent(input$prdGen_confirm_btn,{
    output$prdGen_prdCategory_dt <- DT::renderDataTable(prdCategoryData(),selection = 'single')

  })

  prdGroupData  <- reactive({

    shiny::validate(
      need(length(input$prdGen_prdCategory_dt_rows_selected) > 0, "请从产品大类中选中任意一行")
    )
    data_detail <- prdCategoryData()
    FPrdCategoryFNumber  <- data_detail[as.integer(input$prdGen_prdCategory_dt_rows_selected), '产品大类代码']
    print(FPrdCategoryFNumber)


    res <- prdGroup_queryDetail(conn_cfg = conn_cfg,FPrdCategoryFNumber=FPrdCategoryFNumber)



    return(res)

  })
  prdGroupSelected  <- reactive({

    shiny::validate(
      need(length(input$prdGen_prdGroup_dt_rows_selected) > 0, "请从产品分组中选中任意一行")
    )

    data_detail <- prdGroupData()
    FPrdGroupNumber  <- data_detail[as.integer(input$prdGen_prdGroup_dt_rows_selected), '产品分组代码']
    FPrdGroupName  <- data_detail[as.integer(input$prdGen_prdGroup_dt_rows_selected), '产品分组名称']
    res = list(FPrdGroupNumber=FPrdGroupNumber,FPrdGroupName=FPrdGroupName)




    return(res)

  })

  propCategoryData  <- reactive({

    shiny::validate(
      need(length(input$prdGen_prdCategory_dt_rows_selected) > 0, "请从产品大类中选中任意一行")
    )

    data_detail <- prdCategoryData()
    FPrdCategoryFNumber  <- data_detail[as.integer(input$prdGen_prdCategory_dt_rows_selected), '产品大类代码']
    print(FPrdCategoryFNumber)


    res <- propCategory_queryDetail(conn_cfg = conn_cfg,FPrdCategoryNumber=FPrdCategoryFNumber)



    return(res)

  })
  output$prdGen_prdGroup_dt <- DT::renderDataTable(prdGroupData(),selection = 'single')
  #deal with selector,the most dificulty part for this module.
  output$prdGen_propSelector_placeholder <-shiny::renderUI({
    data = propCategoryData()
    ncount = nrow(data)
    if(ncount>0){
      res = lapply(1:ncount, function(i){
        FPrdCategoryNumber = data$FPrdCategoryNumber[i]
        FPrdCategoryName = data$FPrdCategoryName[i]
        FPropCategoryNumber = data$FPropCategoryNumber[i]
        FPropCategoryName =   data$FPropCategoryName[i]
        choices = propValue_queryDetail(conn_cfg=conn_cfg,FPrdCategoryNumber =FPrdCategoryNumber,FPropCategoryNumber =FPropCategoryNumber  )
        shiny::selectizeInput(inputId = FPropCategoryNumber,label = FPropCategoryName,choices = choices)



      })
    }


  })
  #show the propSelector
  shiny::observeEvent(input$prdGen_propSelector_btn,{

    flag_prdCategory =is.null(input$prdGen_prdCategory_dt_rows_selected)
    flag_prdGroup =is.null(input$prdGen_prdGroup_dt_rows_selected)
    if(flag_prdCategory){
      #prdCategory not selected
      pop_notice('请在产品大类列表中选择一行')
    }else{
      #prdGroup not selected
      if(flag_prdGroup){
        pop_notice('请在产品分组列表中选择一行')
      }else{
        #both of cate and group are selected
        output$prdGen_list_dt <- DT::renderDataTable({
          data = propCategoryData()
          ncount = nrow(data)
          if(ncount>0){
            res_FPropValueNumber = character()
            res_FPropValueName =character()
            res = lapply(1:ncount, function(i){
              FPrdCategoryNumber = data$FPrdCategoryNumber[i]
              FPrdCategoryName = data$FPrdCategoryName[i]
              FPropCategoryNumber = data$FPropCategoryNumber[i]
              FPropCategoryName =   data$FPropCategoryName[i]
              FPropValueNumber = input[[FPropCategoryNumber]]
              FPropValueName = propValue_queryByNumber(conn_cfg = conn_cfg,FPropNumber=FPropValueNumber)
              res_FPropValueNumber[i] <<- FPropValueNumber
              res_FPropValueName[i] <<- FPropValueName

            })
            FPrdGroupNumber =prdGroupSelected()$FPrdGroupNumber
            FPrdGroupName =prdGroupSelected()$FPrdGroupName
            data$FPropValueNumber <- res_FPropValueNumber
            data$FPropValueName <-res_FPropValueName
            data$FPrdGroupNumber <-FPrdGroupNumber
            data$FPrdGroupName <-FPrdGroupName
            FPropValueNumberFlag = paste0(res_FPropValueNumber,collapse = "_")
            data$FPropValueNumberFlag = FPropValueNumberFlag
            FPropValueNameFlag = paste0(res_FPropValueName,collapse = "_")
            data$FPropValueNameFlag = FPropValueNameFlag
            #openxlsx::write.xlsx(x = data,file = 'res_config.xlsx',overwrite = TRUE)
            #write into DB
            flag_new_ConfigRes = prdConfigRes_isNew(conn_cfg = conn_cfg,FPrdGroupNumber =FPrdGroupNumber,FPropValueNumberFlag = FPropValueNumberFlag )
            if(flag_new_ConfigRes){
              #如果选配结果已经存在,则不插入数据
              data_upload(conn_cfg = conn_cfg,data = data,FTableName = 'rds_mtrl_prdConfigRes')
            }
            #print(data)
            names(data) <-c('产品大类代码','产品大类名称','属性分类代码','属性类别名称','属性代码','属性名称','产品分组代码','产品分组名称','选配结果代码','选配结果名称')
            output$prdGen_ConfigRes_dt <- DT::renderDataTable(data)
            res = prdGenList_upload(conn_cfg = conn_cfg,FPrdGroupNumber = FPrdGroupNumber,FPrdGroupName = FPrdGroupName,FPropValueNumberFlag = FPropValueNumberFlag,FPropValueNameFlag = FPropValueNameFlag)
            #print(res)
            # output$prdGen_list_dt <- DT::renderDataTable(res)
            # res





          }

        })


      }
      }




  })






}