我想在fancybox滑块中添加轮播

如何解决我想在fancybox滑块中添加轮播

你好， 我想在花哨的盒子滑块中添加一个旋转木马，但它对我不起作用，我使用了光滑的旋转木马和猫头鹰旋转木马来实现此功能，它们都不适合我，我正在从云防火墙中获取数据/图像，但我不不是为什么它不起作用，放大图像时花哨的框滑块工作正常

HTML：

(q1 + 2 * q2 + q3) / 4

javascript

library(tidyverse)
library(litteR) # to compute trimean
#> 
#> litteR version: 0.8.2
#> Type create_litter_project() to create a new project.
#> Type vignette("litteR-manual") to open the user manual.
#> Open the data file and check the presence of the column headers 'spatial_scale' and 'date'.
#> Open the settings file and check the settings.
#> Type litter() to start litteR.
set.seed(1234)

df <- tibble(date = rep(1:20,3),country = c(rep('x',20),rep('y',rep('z',20)),a = runif(60),b = runif(60),c = runif(60))

calcTr <- function(df,t1,gap){
  df2 <- df %>% filter(row(.) >= t1,row(.) < (t1 + gap))
  trimean(as.vector(t(df2)),na.rm = FALSE)
}

cs <- c('x','y')

df2 <- df %>%
  filter(country %in% cs) %>%
  select(date,country,a) %>%
  group_by(country) %>% 
  pivot_wider(names_from = country,values_from = a) %>%
  ungroup() %>% select(-date)

gap <- 5
k <- nrow(df2) - (gap - 1)
tr <- NULL
for (t in 1:k) {
  tr <- c(tr,calcTr(df2,t,gap))
}

tr
#>  [1] 0.3530834 0.5268562 0.4862586 0.5348352 0.6095975 0.5608634 0.5037747
#>  [8] 0.5147133 0.4735918 0.4472276 0.3953627 0.4507762 0.3942934 0.3839828
#> [15] 0.3528786 0.3968370
Created on 2021-05-18 by the reprex package (v2.0.0)