leaflet: update popup code when leafpop updates to include

[davidhodge931]

Currently like this:

if(is.null(popup_vars_vctr)){
    popup_data <- data %>%
      dplyr::relocate(.data$geometry, .after = tidyselect::last_col()) %>%
      janitor::clean_names(case = "sentence") 
  }
  else {
    popup_data <- data %>%
      dplyr::select(popup_vars_vctr) %>%
      dplyr::relocate(.data$geometry, .after = tidyselect::last_col()) %>%
      janitor::clean_names(case = "sentence") 
  }
  
  popup <- leafpop::popupTable(popup_data, zcol = 1:ncol(popup_data) - 1, row.numbers = FALSE, feature.id = FALSE)

Once leafpop is updated per r-spatial/leafpop#26 then modify code:

if(is.null(popup_vars_vctr)){
    popup_data <- data %>%
      janitor::clean_names(case = "sentence") 
  }
  else {
    popup_data <- data %>%
      dplyr::select(popup_vars_vctr) %>%
      janitor::clean_names(case = "sentence") 
  }
 
  popup <- leafpop::popupTable(popup_data, drop_geometry = TRUE, row.numbers = FALSE, feature.id = FALSE)

You will need to update DESCRIPTION to require the new minimum version of leafpop