rub_table_included_programs: Get formatted flextable of included programs

In RichardMeyer-Eppler/RUBer: Parameterized Microsoft Word reports in the RUB corporate design

Get formatted flextable of included programs

Description

Get formatted flextable of included programs

Usage

rub_table_included_programs(df)

Arguments

df	Data frame

Value

Formatted flextable

Illustrations

Examples

# Test data
df_included_programs <- data.frame(
  stringsAsFactors = FALSE,
  report_nr = c(
    1L,2L,3L,4L,5L,6L,7L,8L,9L,10L,11L,12L,13L,14L,15L,16L,17L,18L,19L,20L,21L,22L,23L,24L,25L,26L,
    27L,28L,29L,30L,31L,32L,33L,34L,35L,36L,37L,38L,39L,40L,41L,42L,43L,44L,45L,46L,47L,48L,49L,50L,
    51L,52L,53L,54L,55L,56L,57L,58L,59L,60L,61L,62L,63L,64L,65L,66L,66L,66L,66L,67L,67L,67L,67L,67L,
    67L,67L,68L,68L
  ),
  report_type_id = c(
    "STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG",
    "STG","STG","MED","MED","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG",
    "STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG",
    "STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG","STG",
    "STG","M_ED","M_ED","M_ED","M_ED","FGR","FGR","FGR","FGR","FGR","FGR","FGR","SZMA","SZMA"
  ),
  subject_degree = c(
    "Allgemeine und vergleichende Literaturwissenschaft (Ba 2-F, Ma 1-F, Ma 2-F)",
    "Anglistik/Amerikanistik (Ba 2-F, Ma 1-F, Ma 2-F), Englisch (M.Ed.)",
    "Arch\u00E4ologische Wissenschaften (Ba 1-F, Ba 2-F),
      Wirtschafts- und Rohstoffarch\u00E4ologie (Ma 1-F, Ma 2-F),
      Klassische Arch\u00E4ologie (Ma 1-F, Ma 2-F), Ur- und Fr\u00FChgeschichte (Ma 1-F, Ma 2-F)",
    "Sinologie (Ba 2-F, Ma 2-F), Chinesisch (M.Ed.), Japanologie (Ba 2-F, Ma 2-F),
      Japanisch (M.Ed.), Koreanistik (Ba 2-F, Ma 2-F), Ostasienwissenschaften (Ma 1-F)",
    "Germanistik (Ba 2-F, Ma 1-F, Ma 2-F), Deutsch (M.Ed.)",
    "Ethics \u2013 Economics, Law and Politics (Ma 1-F)",
    "Evangelische Theologie (Ba 2-F, Mag.Theol, Ma 1-F, Ma 2-F, M.Ed.)",
    "Medienwissenschaft (Ba 2-F, Ma 1-F, Ma 2-F), Film und audiovisuelle Medien (Ma 1-F)",
    "Romanische Philologie (Ba 2-F, Ma 1-F, Ma 2-F),
      Romanische Philologie Franz\u00F6sisch (Ba 2-F, Ma 1-F, Ma 2-F), Franz\u00F6sisch (M.Ed.),
      Romanische Philologie Italienisch (Ba 2-F, Ma 1-F, Ma 2-F), Italienisch (M.Ed.),
      Romanische Philologie Spanisch (Ba 2-F, Ma 1-F, Ma 2-F), Spanisch (M.Ed.)",
    "Geschichte (Ba 2-F, Ma 1-F, Ma 2-F, M.Ed.), Public History (Ma 1-F)",
    "Klassische Philologie (Ba 2-F, Ma 1-F, Ma 2-F), Latein (M.Ed.), Griechisch (M.Ed.)",
    "Wirtschaft und Politik Ostasiens (Ba 1-F),
      International Political Economy of East Asia (Ma 1-F), Politik Ostasiens (Ma 1-F)",
    "Katholische Theologie (Ba 2-F, Mag.Theol, Ma 2-F, M.Ed.)",
    "Medieval and Renaissance Studies (Ma 1-F)",
    "Orientalistik - Islamwissenschaft (Ba 2-F, Ma 1-F, Ma 2-F)",
    "Philosophie/praktische Philosophie (M.Ed.), Philosophie (Ba 2-F, Ma 1-F, Ma 2-F, M.Ed.)",
    "Religionswissenschaft (Ba 2-F, Ma 1-F, Ma 2-F)",
    "Slavische Philologie (Ba 2-F, Ma 1-F, Ma 2-F), Russische Kultur (Ba 2-F, Ma 1-F, Ma 2-F),
      Russisch (M.Ed.)",
    "Klinische Medizin (S), Klinische Medizin (Reformstudiengang) (S)",
    "Vorklinische Medizin (Reformstudiengang) (S)","Angewandte Informatik (Ba 1-F, Ma 1-F)",
    "Bauingenieurwesen (Ba 1-F, Ma 1-F)",
    "Computational Engineering (Ma 1-F)",
    "Elektrotechnik und Informationstechnik (Ba 1-F, Ma 1-F)","Informatik (Ba 1-F)",
    "IT-Sicherheit / Informationstechnik (Ba 1-F, Ma 1-F),
      IT-Sicherheit / Netze und Systeme (Ma 1-F)","Lasers and Photonics (Ma 1-F)",
    "Maschinenbau (Ba 1-F, Ma 1-F)",
    "Materials Science and Simulation (Ma 1-F)",
    "Sales Engineering and Product Management (Ba 1-F, Ma 1-F)",
    "Umwelttechnik und Ressourcenmanagement (Ba 1-F, Ma 1-F),
      Umweltingenieurwesen (Ba 1-F, Ma 1-F)",
    "Kunstgeschichte (Ba 2-F, Ma 1-F, Ma 2-F),
      Kunstgeschichte der Moderne und Gegenwart (Ma 1-F)",
    "Theaterwissenschaft (Ba 2-F, Ma 1-F, Ma 2-F), Szenische Forschung (Ma 1-F)",
    "Biochemie (Ba 1-F, Ma 1-F)",
    "Biodiversit\u00E4t (Ma 1-F)","Biologie (Ba 1-F, Ba 2-F, Ma 1-F, M.Ed.)",
    "Chemie (Ba 1-F, Ba 2-F, Ma 1-F, M.Ed.)",
    "Geographie (Ba 1-F, Ba 2-F, Ma 1-F, M.Ed.)",
    "Geosciences (Ma 1-F), Geowissenschaften (Ba 1-F, Ma 1-F)",
    "Mathematik (Ba 1-F, Ba 2-F, Ma 1-F, M.Ed.)","Medizinphysik (Ma 1-F)",
    "Molecular and Developmental Stem Cell Biology (Ma 1-F)",
    "Physics (Ma 1-F), Physik (Ba 1-F, Ba 2-F, Ma 1-F, M.Ed.)",
    "Cognitive Science (Ma 1-F)",
    "Development-Management (Ma 1-F)","Economic Policy Consulting (Ma 1-F)",
    "P\u00E4dagogik (M.Ed.), Erziehungswissenschaft (Ba 2-F, Ma 1-F, Ma 2-F)",
    "European Culture and Economy (ECUE) (Ma 1-F)",
    "Finance, Accounting, Auditing, Controlling & Taxation (Ma 1-F)",
    "International Gender Studies (Ma 1-F),
      Gender Studies - Kultur, Kommunikation, Gesellschaft (Ma 1-F, Ma 2-F)",
    "International Humanitarian Action (Ma 1-F)",
    "Kultur, Individuum und Gesellschaft (Ba 2-F)",
    "Management and Economics (Ba 1-F, Ma 1-F)",
    "Rechtswissenschaft (S), Nationales und europ\u00E4isches Wirtschaftsrecht (Ba 1-F, Ma 1-F)",
    "Organizational Management (Ma 1-F)",
    "Politik, Wirtschaft und Gesellschaft (Ba 2-F)","Psychologie (Ba 1-F)",
    "Wirtschaftspsychologie (Ma 1-F),
      Psychologie mit Schwerpunkt Arbeits-, Organisations- und Wirtschaftspsychologie (Ma 1-F)",
    "Psychologie mit Schwerpunkt Klinische Psychologie (Ma 1-F)",
    "Psychologie mit Schwerpunkt Kognitive Neurowissenschaft (Ma 1-F)",
    "Sales Management (Ma 1-F)",
    "Sozialwissenschaft (Ba 1-F, Ma 1-F, Ma 2-F, M.Ed.)",
    "Wirtschaftswissenschaft, Ausr. Betriebswirtschaftslehre (Ba 2-F),
      Wirtschaftswissenschaft, Ausr. Volkswirtschaftslehre (Ba 2-F)",
    "Sport & Exercise Sciences for Health and Performance (Ma 1-F),
      Management & Consulting im Sport (Ma 1-F)",
    "Sportwissenschaft (Ba 1-F, Ba 2-F, M.Ed.)",
    "Evangelische Theologie (M.Ed.), Katholische Theologie (M.Ed.), Philosophie (M.Ed.),
      Geschichte (M.Ed.), Latein (M.Ed.), Griechisch (M.Ed.), Deutsch (M.Ed.), Englisch (M.Ed.),
      Franz\u00F6sisch (M.Ed.), Italienisch (M.Ed.), Spanisch (M.Ed.), Russisch (M.Ed.),
      Chinesisch (M.Ed.), Japanisch (M.Ed.)",
    "Mathematik (M.Ed.), Physik (M.Ed.), Geographie (M.Ed.), Chemie (M.Ed.), Biologie (M.Ed.)",
    "P\u00E4dagogik (M.Ed.), Sozialwissenschaft (M.Ed.)","Sportwissenschaft (M.Ed.)",
    "Alle (Sonderauswertung nach F\u00E4chergruppen)",
    "Alle (Sonderauswertung nach F\u00E4chergruppen)",
    "Alle (Sonderauswertung nach F\u00E4chergruppen)",
    "Alle (Sonderauswertung nach F\u00E4chergruppen)",
    "Alle (Sonderauswertung nach F\u00E4chergruppen)",
    "Alle (Sonderauswertung nach F\u00E4chergruppen)",
    "Alle (Sonderauswertung nach F\u00E4chergruppen)",
    "Bauingenieurwesen (Ba 1-F), Umwelttechnik und Ressourcenmanagement (Ba 1-F),
      Umweltingenieurwesen (Ba 1-F), Maschinenbau (Ba 1-F),
      Sales Engineering and Product Management (Ba 1-F),
      Elektrotechnik und Informationstechnik (Ba 1-F),
      IT-Sicherheit / Informationstechnik (Ba 1-F), Angewandte Informatik (Ba 1-F),
      Informatik (Ba 1-F)",
    "Mathematik (Ba 1-F), Physik (Ba 1-F), Geographie (Ba 1-F), Geowissenschaften (Ba 1-F),
      Chemie (Ba 1-F), Biochemie (Ba 1-F), Biologie (Ba 1-F)"
  ),
  subject_group = c(
    "Geisteswissenschaften",
    "Geisteswissenschaften","Geisteswissenschaften",
    "Geisteswissenschaften","Geisteswissenschaften",
    "Geisteswissenschaften","Geisteswissenschaften","Geisteswissenschaften",
    "Geisteswissenschaften","Geisteswissenschaften",
    "Geisteswissenschaften","Geisteswissenschaften",
    "Geisteswissenschaften","Geisteswissenschaften","Geisteswissenschaften",
    "Geisteswissenschaften","Geisteswissenschaften",
    "Geisteswissenschaften",
    "Humanmedizin / Gesundheitswissenschaften",
    "Humanmedizin / Gesundheitswissenschaften",
    "Ingenieurwissenschaften","Ingenieurwissenschaften",
    "Ingenieurwissenschaften","Ingenieurwissenschaften",
    "Ingenieurwissenschaften","Ingenieurwissenschaften",
    "Ingenieurwissenschaften","Ingenieurwissenschaften",
    "Ingenieurwissenschaften","Ingenieurwissenschaften",
    "Ingenieurwissenschaften","Kunst, Kunstwissenschaft",
    "Kunst, Kunstwissenschaft","Mathematik, Naturwissenschaften",
    "Mathematik, Naturwissenschaften","Mathematik, Naturwissenschaften",
    "Mathematik, Naturwissenschaften",
    "Mathematik, Naturwissenschaften","Mathematik, Naturwissenschaften",
    "Mathematik, Naturwissenschaften","Mathematik, Naturwissenschaften",
    "Mathematik, Naturwissenschaften",
    "Mathematik, Naturwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften","Sport","Sport",
    "Geisteswissenschaften",
    "Mathematik, Naturwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften",
    "Sport","Geisteswissenschaften",
    "Humanmedizin / Gesundheitswissenschaften","Ingenieurwissenschaften",
    "Kunst, Kunstwissenschaft","Mathematik, Naturwissenschaften",
    "Rechts-, Wirtschafts-, Sozialwissenschaften","Sport",
    "Ingenieurwissenschaften","Mathematik, Naturwissenschaften"
  ),
  row_nr = c(
    1L,2L,3L,4L,5L,6L,7L,8L,9L,10L,11L,12L,13L,14L,15L,16L,17L,18L,19L,20L,21L,22L,23L,24L,25L,26L,
    27L,28L,29L,30L,31L,32L,33L,34L,35L,36L,37L,38L,39L,40L,41L,42L,43L,44L,45L,46L,47L,48L,49L,50L,
    51L,52L,53L,54L,55L,56L,57L,58L,59L,60L,61L,62L,63L,64L,65L,66L,67L,68L,69L,70L,71L,72L,73L,74L,
    75L,76L,77L,78L
  )
) %>%
  dplyr::mutate(
    dplyr::across(
      where(
        is.character
      ),
      stringr::str_remove_all,
        pattern = "\\n"
    )
  )

# Function call
rub_table_included_programs(
  df = df_included_programs
)

RichardMeyer-Eppler/RUBer documentation built on June 2, 2022, 7:24 p.m.