问我可以对srvyr中的测量设计对象使用pivot_longer()吗？

EN

library(tidyverse)
library(srvyr)
#output of dput 
ces2019_web<-tibble::tribble(
  ~cps19_province, ~cps19_education, ~cps19_weight_general_all,
  "24",             "10",         0.681336402893066,
  "24",             "10",         0.681336402893066,
  "22",              "8",         0.650459408760071,
  "22",              "8",          0.88725334405899,
  "22",              "5",          1.65380775928497,
  "22",              "8",         0.650459408760071
)
# convert values to factor type
ces2019_web <- to_factor(ces2019_web)
#Make the survey design 
ces2019_web %>% 
  filter(!is.na(cps19_weight_general_all)) %>% 
  as_survey_design(., weight=cps19_weight_general_all)->des
#Look for two demographic variables similar to what I'm working with 
#Show the ideal end product but for unweighted data
ces2019_web %>% 
  as_factor() %>% 
  pivot_longer(., cols=c(1:2)) %>% 
  group_by(name, value) %>% 
  summarize(n=n()) %>% 
  mutate(pct=n/sum(n)) %>% 
  knitr::kable()
#Show with weighted data;
#Require a solution
des %>% 
  select(cps19_province, cps19_education) %>% 
  pivot_longer()