【发布时间】:2019-02-10 02:10:53
【问题描述】:
我有一个使用 Netlify 的博客。所以,如果我想嵌入一个交互式元素,我相信我需要使用 iframe。
我希望使用的交互元素是一个简单的图像轮播。
library("slickR")
img <- c("img1.png",
"img2.png",
"img3.png",
"img4.png")
slickR(obj = img, slideId = 'ex1', height = 675, width = 540)
要创建一个仅包含图像轮播的独立页面,我是否需要使用 shiny-server 将 R 转换为 css、HTML、Javascript?
如果是这样,这是我的尝试。有什么问题请指教。
library(shiny)
library(htmlwidgets)
library(slickR)
ui = fluidPage(
htmlwidgets::shinyWidgetOutput(outputId = , "carousel",
name = "img_carousel",
width = "550px",
height = "600px")
)
server = function(input, output) {
img <- c("img1.png",
"img2.png",
"img3.png",
"img4.png")
slickR_obj <- slickR(obj = img, slideId = 'ex1', width = 540, height = 675)
output$carousel <- htmlwidgets::shinyRenderWidget(slickR_obj)
}
shinyApp(ui = ui, server = server)
【问题讨论】:
标签: r shiny htmlwidgets