R/data_prep.R

In njahn82/hoaddashtest: Hybrid Open Access Dashboards with R and Quarto

# data prep

summarize_pubs <- function(...) {
  pub_df_all <- summarise_oa_all(var_summary = ...)
  pub_df_de <- summarise_oa_de(var_summary = ...)

  my_df <- bind_rows(pub_df_all, pub_df_de)
  return(my_df)
}

summarise_oa_all <-
  function(.data = hoaddata::jn_ind,
           var_summary = NULL) {
    pub_df <- .data |>
      inner_join(hoaddata::jct_hybrid_jns, by = "issn_l", multiple = "all")
    pub_all <- pub_df |>
      distinct(issn_l, cr_year, jn_all, esac_publisher) |>
      group_by(across({{ var_summary }})) |>
      summarise(articles = sum(jn_all))

    pub_cc <- pub_df |>
      filter(!is.na(cc)) |>
      distinct(issn_l, cr_year, cc, cc_total, esac_publisher) |>
      group_by(across({{ var_summary }})) |>
      summarise(oa_articles = sum(cc_total))

    pub_df_all <- left_join(pub_all, pub_cc) |>
      ungroup() |>
      mutate_if(is.numeric, ~ replace(., is.na(.), 0)) |>
      mutate(collection = "global")
    return(pub_df_all)
  }

summarise_oa_de <-
  function(.data = hoaddata::jn_aff,
           var_summary = NULL) {
    pub_df_de <- .data |>
      inner_join(hoaddata::jct_hybrid_jns, by = "issn_l", multiple = "all") |>
      filter(country_code == "DE") |>
      mutate(cr_year = as.factor(cr_year))
    pub_all_de <- pub_df_de |>
      distinct(issn_l, cr_year, articles_total, esac_publisher) |>
      group_by(across({{ var_summary }})) |>
      summarise(articles = sum(articles_total))
    pub_cc_de <- pub_df_de |>
      filter(!is.na(cc)) |>
      distinct(
        issn_l,
        cr_year,
        cc,
        articles_under_cc_variant,
        esac_publisher
      ) |>
      group_by(across({{ var_summary }})) |>
      summarise(oa_articles = sum(articles_under_cc_variant))
    pub_de <- left_join(pub_all_de, pub_cc_de) |>
      mutate(collection = "de")
    return(pub_de)
  }