R/pobierz_kryteria_oceny.R

In zozlak/ZPD: Tools for a Polish examination data and item bank database

#' @title Pobiera informacje o pytaniach, (pseudo)kryteriach ocenypytaniach oraz
#'   tym, w których testach i skalach występują
#' @description 
#' Pobierane są informacje o wszystkich pytaniach, (pseudo)kryteriach oceny, ich
#' wystąpieniach w testach oraz skalach. Ponieważ często tak szczegółowe dane
#' nie są potrzebne (a ich szczegółowość wydłuża pobieranie danych oraz naraża
#' na błędy związane z wielokrotnym występowaniem tego samego
#' pytania/(pseudo)kryterium oceny w danych), za pomocą parametrów \code{testy}
#' oraz \code{skale} można pominąć pobieranie informacji o występowaniu
#' (pseudo)kryteriów oceny w testach i/lub skalach.
#' 
#' Warto zwrócić uwagę, że pobierane dane zawierają także "nietypowe" rekordy,
#' jak np. pseudokryteria oceny czy pseudopytania (te ostatnie odpowiadają
#' całemu zestawowi pytań, dla którego w zbiorach danych z wynikami egzaminu
#' gromadzona była jedynie suma punktów, bez podziału na poszczególne kryteria
#' oceny), które na ogół trzeba będzie usunąć, np. filtrując po zmiennej
#' \code{typ_pytania}.
#' 
#' Parametry \code{testy} i \code{skale} wpływają z jednej strony (w mniejszym
#' stopniu) na szybkość pobierania danych (pobieranie każdej z tych informacji
#' wydłuża czas ok. dwukrotnie), z drugiej zaś strony na liczbę zwracanych
#' wierszy (rzędu 10^4 bez informacji o testach i skalach, ok. dwukrotnie więcej
#' z informacją o testach lub skalach, rzędu 10^5 z informacją o testach i o
#' skalach).
#' @param src uchwyt źródła danych dplyr-a
#' @param testy czy pobierać informacje o występowaniu kryteriów w testach
#'   (zmienne id_testu, kolejnosc_w_tescie, popr_dystraktor)
#' @param skale czy pobierać informacje o występowaniu kryteriów w skalach
#'   (zmienne id_skali, kolejnosc_w_skali)
#' @param krytSkladowe czy dla pseudokryteriów oceny pobierać informacje o
#'   kryteriach, z których się składają
#' @import dplyr
#' @export
pobierz_kryteria_oceny = function(
  src,
  testy = TRUE,
  skale = TRUE,
  krytSkladowe = TRUE
){
  stopifnot(
    is.src(src),
    is.vector(testy), is.logical(testy), length(testy) == 1, all(!is.na(testy)),
    is.vector(skale), is.logical(skale), length(skale) == 1, all(!is.na(skale)),
    is.vector(krytSkladowe), is.logical(krytSkladowe), length(krytSkladowe) == 1, all(!is.na(krytSkladowe))
  )
  
  data = tbl(src, sql(e("SELECT * FROM widoki.pobierz_kryteria_oceny")))
  if(testy){
    query = "
      SELECT 
        'k_' || id_kryterium AS kryterium, 
        id_testu, 
        kolejnosc AS kolejnosc_w_tescie, 
        popr_dystraktor
      FROM testy_kryteria
      UNION
      SELECT DISTINCT
        'p_' || id_pseudokryterium AS kryterium,
        id_testu, 
        NULL::int, NULL::int
      FROM
        pseudokryteria_oceny_kryteria 
        JOIN testy_kryteria USING (id_kryterium)"
    data = data %>%
      left_join(tbl(src, sql(e(query))))
  }
  if(skale){
    query = "
      SELECT
        COALESCE('k_' || id_kryterium, 'p_' || id_pseudokryterium) AS kryterium,
        id_skali,
        kolejnosc AS kolejnosc_w_skali
      FROM skale_elementy"
    data = data %>%
      left_join(tbl(src, sql(e(query))))
  }
  if(krytSkladowe){
    query = "
    SELECT
      'p_' || id_pseudokryterium AS kryterium,
      'k_' || id_kryterium AS kryt_skladowe
    FROM pseudokryteria_oceny_kryteria"
    data = data %>% 
      left_join(tbl(src, sql(e(query))))
  }

  return(data)
}
attr(pobierz_kryteria_oceny, 'grupa') = 'kryteriaOceny'