R/conditional_unnest_wider.R

In cgpeltier/janesR: Pull data more easily from the Janes API

#' @title conditional_unnest_wider
#' @description conditionally unnests_wider. Helper function.
#'
#' @param data Country filter for equipment
#' @param variable Query filter for equipment
#'
#' @return Unnests_wider if variable is in dataset, doesn't if not.
#' @importFrom tidyr unnest_wider
#'
#'




conditional_unnest_wider <- function(data, variable){
      if(variable %in% names(data)){
        return(unnest_wider(data, variable, names_repair = ~gsub('...', variable, ., fixed = TRUE)))
      } else {
        return(data)
      }

}


#' @export