作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试创建一个网页,我必须在其中显示多个幻灯片。我找到了一种在 R 中使用 slickR 包来显示幻灯片的方法,但我无法显示多个。这是我试图渲染两个 slickR 的代码,我不知道我做错了什么。请帮助我只是一个初学者。
代码:
library(shiny)
library(slickR)
ui <- fluidPage(
column(12,column(6, slickROutput("slickr", width="200px")),
column(6,slickROutput("slickr1",width = "200px")))
)
server <- function(input, output) {
output$slickr <- renderSlickR({
imgs <- list.files("D:/Projects/Rdashboards/Images/1/", pattern=".png", full.names = TRUE)
slick <- slickR(imgs)
slick + settings(autoplay = TRUE,autoplaySpeed = 1000)
})
output$slickr1 <- renderSlickR({
imgs1 <- list.files("D:/Projects/Rdashboards/Images/2/", pattern=".png", full.names = TRUE)
slick1 <- slickR(imgs1)
slick1 + settings(autoplay = TRUE,autoplaySpeed = 1000)
})
}
shinyApp(ui = ui, server = server)
最佳答案
您可以简单地为每个输出指定不同的 slideID 名称,如下所示:
output$slickr <- renderSlickR({
imgs <- list.files("D:/Projects/Rdashboards/Images/1/", pattern=".png", full.names = TRUE)
slick <- slickR(imgs, slideID = "sld1")
slick + settings(autoplay = TRUE,autoplaySpeed = 1000)
})
output$slickr1 <- renderSlickR({
imgs1 <- list.files("D:/Projects/Rdashboards/Images/2/", pattern=".png", full.names = TRUE)
slick1 <- slickR(imgs1, slideID = "sld2")
slick1 + settings(autoplay = TRUE,autoplaySpeed = 1000)
})
关于r - 如何在 Shiny 的仪表板中使用多个 slickROutput,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/60605258/
我是一名优秀的程序员,十分优秀!