diff --git a/app/helper.R b/app/helper.R index 6649ae8..bf3b452 100644 --- a/app/helper.R +++ b/app/helper.R @@ -13,8 +13,8 @@ identify_lands <- function(words) { difflist <- purrr::discard(difflist, is.null) # transpose back and make 'word' difflist <- difflist %>% purrr::list_transpose() %>% purrr::map_chr(paste, collapse="") - - make.unique(difflist, unique=TRUE) # make sure that something is there and it is different + if (length(words) != length(difflist)) browser() + make.unique(difflist) # make sure that something is there and it is different }