R/cbind_TargetDatas.R

In WeiquanLuo/stNet: What the Package Does (One Line, Title Case)

#' bind multiple stN class object
#' @importFrom magrittr %>%
#' @importFrom dplyr group_by summarize left_join
#' @importFrom purrr reduce
#' @export
#' @examples
#' x <- list(yield_tmin, yield_watertem)
#' cbind_TargetDatas(x, target = "yield", join_by = "Year")

cbind_TargetDatas <- function(target = NULL, join_by = NULL, ...){
  x <- list(...) # THIS WILL BE A LIST STORING EVERYTHING:
  x <- x %>%
    reduce(rbind) %>%
    group_by(county) %>%
    summarize(data = list(reduce(data, left_join, by = c(join_by, target)))); x
  return(x)
}