R/which_max_length.R

In kristian-bak/shinyStocks: An Amazing Shiny App

Defines functions which.max.length

Documented in which.max.length

#' Which max length
#' 
which.max.length <- function(x) {
  
  id <- nchar(x) %>% which.max()
  
  x[id]
  
}