Soubor s otázkami a odpověďmi byl vyroben v Poznámkovém bloku a uložen s kódováním UTF-8, které ve skutečnosti obsahuje ještě na začátku 3 neviditelné znaky (tzv. BOM), které říkají, že se jedná právě o formát UTF-8. Tomuto formátu se celkově říká UTF-8-BOM.
Jednotlivé sloupce jsou odděleny tabulátorem.
Příklad souboru ke stažení: vyjmenovana_slova.txt
data <- read.table("vyjmenovana_slova.txt",
header = TRUE, sep = "\t",
fileEncoding = "UTF-8-BOM",
stringsAsFactors = FALSE)
nahodnePoradi <- sample(1: nrow(data), nrow(data))
index <- 1
celkovyPocetPrikladu <- 3
pocet <- 0
spravne <- 0
spatne <- 0
seznamSpatnychOdpovedi <- character(0)
repeat {
radek <- nahodnePoradi[index]
index <- index + 1
if (index > nrow(data)) {
index <- 1
nahodnePoradi <- sample(1: nrow(data), nrow(data))
}
cat("Doplňte [y, ý, i, í]:", data$otázka[radek], "\n")
odpoved <- readline("Odpověď: ")
if (odpoved == data$odpověď[radek]) {
cat("Správně.\n")
spravne <- spravne + 1
} else {
cat("Špatně.\n")
spatne <- spatne + 1
seznamSpatnychOdpovedi <- c(seznamSpatnychOdpovedi, data$otázka[radek])
}
pocet <- pocet + 1
if (pocet == celkovyPocetPrikladu) {
cat("Gratuluji.\n")
cat("Špatných odpovědí:", spatne, "\n")
cat(seznamSpatnychOdpovedi)
break
}
}
© 2. 12. 2015 Tomáš Bořil, borilt@gmail.com