P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 08:52:15 +02:00
Code Releases Activity

few extra tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-08-24 14:18:38 +02:00
parent a100d07da6
commit baaf4cc3e1
4 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/freq.R
View File

@ -413,11 +413,9 @@ frequency_tbl <- function(x,
df <- df %>% summarise(count = n())
if (df$item %>% paste(collapse = ',') %like% '\033') {
df <- df %>%
mutate(item = item %>%
# remove escape char
# see https://en.wikipedia.org/wiki/Escape_character#ASCII_escape_character
gsub('\033', ' ', ., fixed = TRUE))
# remove escape char
# see https://en.wikipedia.org/wiki/Escape_character#ASCII_escape_character
df <- df %>% mutate(item = item %>% gsub('\033', ' ', ., fixed = TRUE))
}
# sort according to setting