Typo on Slide #28 of 'Die Kunst des Zählens'

[LeonStumberger]

In chapter 4 'Die Kunst des Zählens' slide #28 'Zählen aller Worte in Korpus/ Partition' there is a typo in the second code chunk.
Currently the code reads
dt <- count(bt2008, p_attribute = c("word", "pos")) %>% subset(pos %in% c("NN", "ADJA")) %>% as.data.table(cnt2008min) %>% setorderv(dt, cols = "count", order = -1L) %>% head()

however it should be
dt <- count(bt2008, p_attribute = c("word", "pos")) %>% subset(pos %in% c("NN", "ADJA")) %>% as.data.table() %>% setorderv(cols = "count", order = -1L).

"cnt2008min" was never defined before and there is no need to specify the dataframes within the pipe.