Consider a consistent methodology for applying different map functions

[uriahf]

So far I used a lot of if-else conditions

https://github.com/uriahf/rtichoke/blob/09428c277cc0837cfe486ae20ee0375f2b1c6d2e/R/prepare_performance_data.R#L115C1-L116C1

[uriahf]

Seems like proper solution

library(purrr)

addition <- function (a_vec, b_vec) {
  a_vec + b_vec
}

multi <- function (a_vec, b_vec) {
  a_vec * b_vec
}

run_function_over_a_b_lists <- function(a, b, func) {
  
  if (length(b) > 1) {
    
    map2(a, b, func)
    
  } else {
    
    map(a, \(x) func(x, b_vec=b[[1]]))
  }
  
  
}

run_function_over_a_b_lists( 
  list("train" = c(1, 2, 3),
       "test" = c(1, 2, 3) +1), 
  list("train" = c(1, 2, 3),
       "test" = c(1, 2, 3) + 2), addition )

run_function_over_a_b_lists( 
  list("train" = c(1, 2, 3),
       "test" = c(1, 2, 3) +1), 
  list("train" = c(1, 2, 0)), addition )

run_function_over_a_b_lists( 
  list("train" = c(1, 2, 3),
       "test" = c(1, 2, 3) +1), 
  list("train" = c(1, 2, 3),
       "test" = c(1, 2, 3) + 2), multi )


run_function_over_a_b_lists( 
  list("train" = c(1, 2, 3),
       "test" = c(1, 2, 3) +1), 
  list("train" = c(1, 2, 0)), multi )