pocet slov

# Nastav cestu k tvojmu Rmd súboru
file_path <- "Záverečná práca.Rmd"

# Načítanie súboru ako text
text <- readLines(file_path, encoding = "UTF-8")

## Warning in readLines(file_path, encoding = "UTF-8"): incomplete final line
## found on 'Záverečná práca.Rmd'

# Spojenie riadkov do jedného reťazca
full_text <- paste(text, collapse = " ")

# Spočítanie slov
word_count <- strsplit(full_text, "\\s+")[[1]]  # rozdelenie podľa medzier
num_words <- length(word_count)

# Výpis výsledku
cat("Počet slov v práci:", num_words, "\n")

## Počet slov v práci: 1476