我的dyanamic fancybox没有用

Question

df %>%
   group_by(a) %>% 
   filter(n_distinct(b)==1)  %>% 
   group_by(b) %>% 
   summarise(nCat =sum(c=='cat'), nDog = sum(c=='dog'), Total = n())
# A tibble: 3 × 4
#      b  nCat  nDog Total
#  <fctr> <int> <int> <int>
#1      X     1     1     2
#2      Y     0     1     1
#3      Z     1     0     1

它在服务器上显示错误“无法加载请求的内容。 请稍后再试“