Generate table of journal paper percentages, by country

Usage

table_missing_country(data, datatable = TRUE)

Arguments

data: The processed dataframe of data
datatable: Whether to output a DT::datatable HTML table widget instead of a regular dataframe (defaults to TRUE).

Examples

# \dontshow{
.old_wd <- setwd(tempdir())
# }
if (FALSE) {
pubmed_query_string <- paste(
  "passion [Title/Abstract]",
  "AND Dualistic Model of Passion [Text Word]"
)

save_process_pubmed_batch(
  pubmed_query_string,
  year_low = 2023,
  year_high = 2023
)
data <- read_bind_all_data()
data[1, c(4, 6)] <- NA
table_missing_country(data)
}
# \dontshow{
unlink("easyPubMed_data_01.txt")
setwd(.old_wd)
# }