Output of weighted percentile distributions with multiple groups

Question

I am relatively new to R after years of SAS coding. I am trying to output many different weighted percentiles on multiple groups. I am trying the following code -- please note that "VarName" in the function call is a bogus name to provide some confidentiality:

library(tidyverse)
library(Hmisc)
quantile_df <- function(x) {
  tibble(
    val = Hmisc::wtd.quantile(x,  weights=WT_Fact, probs = c(0, 0.25, 0.5, 0.75, 0.9, 0.91, 0.92, 0.93, 0.94, 0.95, 0.96, 0.97, 0.98, 0.99, 1.0), na.rm = TRUE)
  )
}
 
 
df1 <- FeesBalances %>% group_by(Sales_Volume) %>% 
 reframe(quantile_df(VarName))
 

This code produces a tibble with 135 rows, 15 each for each of the 9 values of Sales Volume. The values all appear reasonable, although I have not cross-checked to SAS output. However, I am getting 9 warnings from reframe.

The first warning was: ℹ In argument: quantile_df(VarName). ℹ In group 1: Sales_Volume = 1. Caused by warning in x + weights: ! longer object length is not a multiple of shorter object length.

Please help an old dog learn some new tricks as I try to learn this language.

My code produced a tibble with apparently accurate data.