R/combined.R

In vallenderlab/JournalAnalysis: Explore and Identify Journals to Publish in.

#' @title Get Publication Data
#'
#' @description This function uses a journal source to combine data based on queries.
#'
#' @param journal_source The journal to search
#' @param queries Use one or multiple queries
#' @param limit A minimum number of articles
#' @param min_year Minimum year to search
#' @param max_year Maximum year to search
#' @param min_citations Minimum number of citations in a journal
#' @return A list of data objects including journals, articles, and combined data.
#' @export
get_publication_data <- function(journal_source, queries, limit=7500,
                                 min_year=2008, max_year=2018, min_citations=5) {
  hot_data <- list()

  # Get journal data from incities or scimago
  journal_data <- get_journal_data(data = journal_source)

  # Get article data
  article_data <- get_article_data(
    queries = queries, limit = limit, min_year = min_year,
    max_year = max_year, min_citations = min_citations
  )
  article_issns <- get_unique_issns(article_data$journalIssn)

  # Get journal data matching article ISSNs
  journal_data <- issn_to_journal_data(data = journal_data, issns = article_issns)
  journal_issns <- get_unique_issns(journal_data$ISSN)
  hot_data[["journals"]] <- journal_data

  # Get article data mathcing available ISSNs
  article_data <- issn_to_article_data(article_data, journal_issns)
  hot_data[["articles"]] <- article_data

  # Combine article data with journal data
  ja_data <- get_articles_with_journal_data(article_data, journal_data)
  hot_data[["combined"]] <- ja_data

  return(hot_data)
}