Papermill Journal Name Generator

journal_name_generator.r

genjournal <- function() {
   x1 <- sample(c("American Journal of", "Austin Journal of", "Annals of", "Archives of", "International Journal of", "Journal of", "Open Journal of", "World Journal of", "Insights Journal of", "Short Reports of", ""), 1)
   x2 <- sample(c("Clinical", "Child & Adolescent", "Family", "Current", "Preventive", "Emergency", "Novel", ""), 1)
   x3 <- sample(c("Medicine", "Health Care", "Biomedical Science", "Case Reports", "Nursing Studies", "Surgery", "Medical Case Reports", "Obstetrics", "Gynecology", "Family Medicine", "Primary Care", "Nursing", "Psychiatry", "Pulmonology", "Images", "Biology", "Behavioral Science", "Public Health", "Nursing Practice", "Respiratory Care", "Cancer", "Neurology", "Musculoskeletal Disorders", "Epidemiology", "Cardiology", "Vascular Medicine", "Hematology", "Imaging", "Microbiology", "Infectious Diseases", "Oncology", "Neuroinflammation", "Neurodegenerative Diseases", "Gerontology", "Addiction", "Rehabilitation Medicine", "Translational Medicine", "Images", "Critical Care", "Ecology", "Evolution", "Hepatology", "Gastroenterology", "Neurobiology", "Occupational Medicine", "Palliative Care", "Addiction", "Aging", "HIV Infections", "Behavior Therapy", "Biochemistry", "Bioinformatics", "Comparative Genomics", "Biostatistics", "Biotechnology", "Biomarkers", "Cardiac Disorders", "Community Medicine", "Dentistry", "Global Health", "Family Medicine", "Food Science", "Hypertension", "Internal Medicine", "Physiotherapy", "Physical Medicine", "Sports Medicine", "Health Hygiene", "Mental Disorders"), 1)
   case <- sample(1:3, 1)
   if (case == 1) {
      x4 <- "Research"
   } else if (case == 2) {
      x4 <- sample(c("and Practice", "and Medical Investigations", "and Treatment", "and Prevention", "and Healthcare", "and Therapy", "and Modern Techniques", "and Care", "and Clinical Research"), 1)
   } else {
      x4 <- ""
   }
   res <- trimws(paste(x1, x2, x3, x4))
   gsub("  ", " ", res)
}

# usage:
# replicate(100, genjournal())