In KWB-R/kwb.site: R Package for Scraping Our Offical KWB Website (Before Re-Design in 2021)

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(kwb.site)

Tables

# Get project infos from KWB website
project_infos <- get_projects(debug = FALSE)
jsonlite::write_json(project_infos, "projects.json")
pi1 <- plot_gantt_chart_project(projects_json = "projects.json", 
                        tag_selection = "department", 
                        interactive = TRUE, 
                        interactive_export = TRUE)
pi2 <- plot_gantt_chart_project(projects_json = "projects.json", 
                        tag_selection = "topics", 
                        interactive = TRUE, 
                        interactive_export = TRUE)
pi3 <- plot_gantt_chart_project_by_funder(projects_json = "projects.json", 
                        interactive = TRUE, 
                        interactive_export = TRUE)
pi4 <- plot_gantt_chart_project(projects_json = "projects.json", 
                        tag_selection = "department", 
                        language_selection = "de",
                        interactive = TRUE, 
                        interactive_export = TRUE)
pi5 <- plot_gantt_chart_project(projects_json = "projects.json", 
                        tag_selection = "topics", 
                        language_selection = "de",
                        interactive = TRUE, 
                        interactive_export = TRUE)
pi6 <- plot_gantt_chart_project_by_funder(projects_json = "projects.json", 
                        language_selection = "de",                                          
                        interactive = TRUE, 
                        interactive_export = TRUE)

We have in total r nrow(project_infos) project websites in German and English on the KWB website.

English

project_infos_en <- project_infos %>%
  dplyr::filter(language == "en") 

jsonlite::write_json(project_infos_en , "projects_en.json")

DT::datatable(project_infos_en[,-3])

For r nrow(project_infos_en) projects the information is available in English.

German

project_infos_de <- project_infos %>%
  dplyr::filter(language == "de") 

jsonlite::write_json(project_infos_de, "projects_de.json")

DT::datatable(project_infos_de[,-3])

For r nrow(project_infos_de) projects the information is available in German.

Plots

English

By Department

plot_gantt_chart_project(projects_json ="projects.json")

Interactive plot: projects-by-department_en

By Topic

plot_gantt_chart_project(projects_json = "projects.json", tag_selection = "topic")

Interactive plot: projects-by-topics_en

By Funder

plot_gantt_chart_project_by_funder(projects_json = "projects.json")

Interactive plot: projects-by-funder_en

German

By Department

plot_gantt_chart_project(projects_json ="projects.json",language_selection = "de")

Interactive plot: projects-by-department_de

By Topic

plot_gantt_chart_project(projects_json ="projects.json",
                        tag_selection = "topic",
                        language_selection = "de")

Interactive plot: projects-by-topics_de

By Funder

plot_gantt_chart_project_by_funder(projects_json = "projects.json",
                                   language_selection = "de")

Interactive plot: projects-by-funder_de

Session info

sessioninfo::session_info()

KWB-R/kwb.site documentation built on June 12, 2022, 9:21 p.m.