R/data_cleaning.R

In margaret: Scientometric Analysis Minciencias

library(lubridate)
library(stringi)
library(scholar)

data_cleaning <- function(grupos, grupo_df, researchers) {

  grupo_main_cleaned <- data_cleaning_main(grupos, grupo_df)
  grupo_product_cleaned <- data_cleaning_product(grupo_df)
  grupo_researcher_cleaned <- data_cleaning_researcher(grupo_df, researchers)

  return(list(grupo_main_cleaned = grupo_main_cleaned,
              grupo_product_cleaned = grupo_product_cleaned,
              grupo_researcher_cleaned = grupo_researcher_cleaned))

}