R/fct_utils.R

In msperlin/GetCVMData: Reading Annual and Quarterly Financial Reports from CVM

#' Converts cnpj from text to numeric
#'
#' @param cnpj_in The character (single) of cnpj
#'
#' @return A numeric cnpj
#' @export
#'
#' @examples
#'
#' fix_cnpj('00.111.004/005')
#'
fix_cnpj <- function(cnpj_in) {

  temp <- stringr::str_replace_all(cnpj_in, stringr::fixed('.'), '')
  temp <- stringr::str_replace_all(temp, '/|-', '')

  cnpj_out <- as.numeric(temp)

  return(cnpj_out)
}

#' Makes sure people dont drink at afternoon
#'
#' @return A responsible drink
#' @export
#'
#' @examples
#' print(select_responsible_beverage())
select_responsible_beverage <- function() {
  # be responsible! - only drink after 18:00
  hour_now <- as.numeric(format(Sys.time(), '%H'))

  day_beverages <- c('coffee', 'mate-gaucho', 'english tea')
  night_beverages <- c('Cuba Libre', 'Caipirinha', 'Pisco Sour',
                       'Mojito', 'Beer', 'Wine', 'Coco Loco',
                       'Cachaca Joao Barreiro')

  if (hour_now < 18) {
    my_beverage <- sample(day_beverages, 1)
  } else {
    my_beverage <- sample(night_beverages, 1)
  }

  return(my_beverage)
}