R/tidy_cmdstanr.R

In Agasax/laRs: Personal convenience functions

#' Change the structure of cmdstan output to fit tidybayes
#'
#' @param df dataframe from cmdstanr to be tidyformed
#'
#'
#' @return data.frame
#' @export
#'
#' @examples
#'
#' posterior %>% tidy_cmdstanr()
tidy_cmdstanr <- function(df) {
  df %>% dplyr::rename_with(.cols = dplyr::matches("\\.\\d"), ~ paste0(gsub(".", "[", .x, fixed = TRUE), "]"))
}