Počet Slov

# Path to produced .md file
md_file <- "Ekonometria master dokument final1.Rmd"   # adjust if necessary

# Read text
txt <- readLines(md_file, warn = FALSE)
txt <- paste(txt, collapse = " ")

# Count words
library(stringr)

word_count <- str_count(txt, "\\b\\w+\\b")

cat("Počet slov nesmie presiahnuť 7500!", "\n") 

Počet slov nesmie presiahnuť 7500! 

cat("Počet slov vo Vašom dokumente =", word_count, "\n")

Počet slov vo Vašom dokumente = 4154