In martinmodrak/revize-rs: Code for analysis of revize-rs project data

source(here::here("setup_knitr.R"))
source(here::here("zaverecna_zprava_pomocne","kratka_zprava_manual.R"), encoding = "UTF-8")
knitr::opts_chunk$set(echo = FALSE)
rmarkdown::find_pandoc() # Try to use version at least 2.8 to allow unlisted header elements

if(gitbook_output) {
  cat("# (PART\\*) Závěry a doporučení {- #zavery-doporuceni}\n")
} 

Hlavní závěry {#hlavni}

Začínáme našimi hlavními závěry, další kapitoly pak poskytují širší kontext, více detailů a zdůvodnění těchto závěrů. Celkově spíše nečekáme, že zprávu budete číst celou, ale že se podívate na hlavní závěry, případně na konkrétní další části, které probudí vaši zvědavost. V textu užíváme zkratku “RS” ve smyslu “všichni členové i členky Junáka v roverském věku”.

preprocess_kz_element <- function(element) {
  element$name <- gsub("<U\\+([0-9A-Fa-f]*)>", "&#x\\1;", element$name)
  element$name <- gsub("&nbsp;$", "", element$name)
  element
}

preprocess_kz_group <- function(group) {
  group$contents <-  purrr::map(group$contents, preprocess_kz_element)
  group
}

kratka_zprava <- purrr::map(kratka_zprava, preprocess_kz_group)

heading_to_id <- function(heading) {
  without_accents <- stringi::stri_trans_general(str = heading,
                                   id = "Latin-ASCII")
  removed_special_chars <- gsub("[.\"|?!:,/] ?", "", without_accents)
  removed_entities <- gsub("&[^;]*;", "", removed_special_chars)

  handled_whitespace <- gsub(" ", "-", tolower(trimws(removed_entities)))
  handled_whitespace
}

print_kz_element_full <- function(element) {
  cat("#### ", element$name, " {.unnumbered .unlisted .kz_heading #", heading_to_id(element$name), "}\n\n", trimws(element$text), "\n\n", sep = "")
}

print_kz_group_full <- function(group) {
  cat("## ", group$group_name, " {.kz_group #", heading_to_id(group$group_name), "}\n\n", sep = "")
  if(!is.null(group$group_subheading)) {
    if(gitbook_output) {
      cat("<div class='kz_subtitle'>", group$group_subheading, "</div>\n\n")
    } else {
      cat("**| ", group$group_subheading, "**\n\n")
    }
  }
  cat("<span class='rozbalit_vse hidden' id='rozbalit_vse_", heading_to_id(group$group_name) ,"'></span>\n\n", sep = "")
  if(!is.null(group$group_comment)) {
    cat(group$group_comment, "\n\n")
  }
  purrr::walk(group$contents, print_kz_element_full)

}
purrr::walk(kratka_zprava, print_kz_group_full)

Kam dál v této zprávě? {#kam-dal}

V kapitole \@ref(koncepce) --- "Děravá koncepce roveringu" představujeme obecnější závěry ke koncepci roveringu a roverského programu, které se opírají primárně o úvahy a osobní zkušenosti nás či dalších lidí, se kterými jsme v průběhu projektu o roveringu diskutovali. V kapitolách \@ref(uvod-data) --- \@ref(sondy2015) se pak věnujeme analýze dat, zejména průzkumu, který jsme pro projekt provedli ale i dalším, které pak byly podkladem pro naše hlavní závěry i koncepční úvahy.

martinmodrak/revize-rs documentation built on March 9, 2021, 5:30 a.m.