R/base_url.R

In j-Rinehart/easyR: Lovely things

#' Simple function to shorten URL's to their simple base
#' Example: https://www.facebook.com/ --> facebook.com
#'
#' @param long_url The original URL
#' @return base_url
#' @export
#'

##NOT DONE!!

table_na <- function(df_var){
  table(is.na(df_var))
}