R/combine_solution_space.R

In asiono/rein: Distribution Grid Reinforcement Optimization

################################################################################
#' @title   combine_solution_space
#' @description  This function combines the the solution_spaces with chosen expansion from optimization result
#' @param solution_space   dataframe containing possible cable types in the grid and its specifications
#' @param chosen_expansions   vector of optimization result
#' @param verbose   Value greater than zero to display step by step of reinforcement
#' @return This function returns a solution space in a single matrix containing only important parameters. 
#' Moreover the chose expansion alternatives are integrated 
################################################################################

combine_solution_space <- function(solution_space, chosen_expansions, verbose = 0){

# calulating the voltage at each node taken into account by the solver
solution_space$T$measure <- 'trafo'
solution_space$A$measure <- 'line'
solution_space$P$measure <- 'p-line'
needed_cols <- c('begin','end','dU','model','length_km', 'cost', 'measure')
needed_cols %in% colnames(solution_space$P)

solution_space_calc <- rbind(solution_space$T[,needed_cols],
                             solution_space$A[,needed_cols],
                             solution_space$P[,needed_cols])
solution_space_calc$chosen_alternative <- chosen_expansions

return(solution_space_calc[which(solution_space_calc$chosen_alternative == "1"),])


}