R/juris_wider.R

In courtsbr/JurisMiner: Mineração de textos dos tribunais brasilerios

#' Converte para formato wide
#'
#' @param df tibble
#' @param valor valor
#' @param variavel variavel
#' @return tibble
#' @export
#'
juris_wider <- function(df,valor, variavel){
  
  valor <- rlang::ensym(valor)
  variavel <- rlang::ensym(variavel)
  
  df %>% 
    dplyr::group_by(dplyr::across(-valor)) %>% 
    dplyr::mutate(row_id = 1:dplyr::n()) %>% 
    dplyr::ungroup() %>% 
    tidyr::spread(key = variavel, value = valor) %>% 
    dplyr::select(-row_id)
}