我有一个使用NetLify的博客。所以,如果我想嵌入一个交互元素,我相信我需要使用一个iframe。
我希望使用的交互元素是一个简单的图像传送带。
library("slickR")
img <- c("img1.png",
"img2.png",
"img3.png",
"img4.png")
slickR(obj = img, slideId = 'ex1', height = 675, width = 540)
要创建一个只包含图像传送带的独立页面,我需要使用闪亮的服务器将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)