data-raw/mrpt_bw2_test.R

In takewiki/jlrdspkg: package for jlrds app

name <- function(variables) {
  mrpt_md_rule_bw2_allocation() -> mydata
  mydata <- mydata[!is.na(mydata$F13_ItemGroupName_in),c("FSolutionNumber","FSubNumber", "F13_ItemGroupName_in")  ]
  mydata$flag <- paste0(mydata$FSolutionNumber,'_',mydata$FSubNumber)
  mydata_split <- split(mydata,mydata$flag)
  res_split <- lapply(mydata_split, function(data){
    row_split <- strsplit(data[1,'F13_ItemGroupName_in'],'\\+')
    ncount <- length(row_split)
    FSolutionNumber <- rep(data$FSolutionNumber[1],ncount)
    FSubNumber <- rep(data$FSubNumber[1],ncount)
    res <- data.frame( FSolutionNumber,FSubNumber,row_split,stringsAsFactors = F)
    names(res) <- c("FSolutionNumber","FSubNumber", "F13_ItemGroupName_in")
    rownames(res) <- NULL
    return(res)

  })
  res <- do.call('rbind',res_split)

  View(res)

}