Get formatted flextable of funded projects
Examples
# Create example data
example_data <- data.frame(
stringsAsFactors = FALSE,
report_nr = c(
1,
1,
1,
1,
1,
1
),
programm = c(
"Forschendes Lernen",
"Forschendes Lernen",
"Forschendes Lernen",
"Innovative Praxisprojekte",
"interLECTURE",
"UNIC@RUB"
),
projekttitel = c(
"Interkulturelle Bibelhermeneutiken",
"Migration lokal denken. Begegnungen mit religi\u00F6sen Gemeinschaften in NRW",
"Traumatheologie: Kritische Bibellekt\u00FCre anhand von Leiderfahrungen.",
"Religi\u00F6se Pluralit\u00E4t entdecken, reflektieren und diskutierend sichtbar machen",
"Globale Christent\u00FCmer: Theologische und religionswissenschaftliche Perspektiven",
"Design of a Virtual Exchange program"
),
antragsteller_innen_verantwortliche_personen = c(
"N. N.",
"N. N.",
"N. N.",
"N. N.",
"N. N.",
"N. N."
),
forderzeitraum_von = c(
"2021-10-01",
"2019-10-01",
"2021-04-01",
"2021-04-01",
"2020-06-01",
"2022-02-01"
),
forderzeitraum_bis = c(
"2022-03-31",
"2020-07-31",
"2021-12-31",
"2022-03-31",
"2021-09-30",
"2022-07-31"
),
is_last_row = c(
FALSE,
FALSE,
TRUE,
TRUE,
TRUE,
TRUE
)
)
# Function call
rub_table_programs(
df = example_data
)
#> a flextable object.
#> col_keys: `programm`, `projekttitel`, `antragsteller_innen_verantwortliche_personen`, `forderzeitraum_von`, `forderzeitraum_bis`
#> header has 2 row(s)
#> body has 6 row(s)
#> original dataset sample:
#> report_nr programm
#> 1 1 Forschendes Lernen
#> 2 1 Forschendes Lernen
#> 3 1 Forschendes Lernen
#> 4 1 Innovative Praxisprojekte
#> 5 1 interLECTURE
#> projekttitel
#> 1 Interkulturelle Bibelhermeneutiken
#> 2 Migration lokal denken. Begegnungen mit religiösen Gemeinschaften in NRW
#> 3 Traumatheologie: Kritische Bibellektüre anhand von Leiderfahrungen.
#> 4 Religiöse Pluralität entdecken, reflektieren und diskutierend sichtbar machen
#> 5 Globale Christentümer: Theologische und religionswissenschaftliche Perspektiven
#> antragsteller_innen_verantwortliche_personen forderzeitraum_von
#> 1 N. N. 2021-10-01
#> 2 N. N. 2019-10-01
#> 3 N. N. 2021-04-01
#> 4 N. N. 2021-04-01
#> 5 N. N. 2020-06-01
#> forderzeitraum_bis is_last_row
#> 1 2022-03-31 FALSE
#> 2 2020-07-31 FALSE
#> 3 2021-12-31 TRUE
#> 4 2022-03-31 TRUE
#> 5 2021-09-30 TRUE