r - Shiny R中图像的滑动效果

Question

是否可以在 R 中的闪亮应用程序上使用滑动效果覆盖两个图像。我一直在寻找一些实现，但还没有找到具体的解决方案。类似但不完全是我正在寻找的东西在这里

此选项是否以闪亮的方式实现。

通过滑动，我指的是：

标签： rimageplotshiny

Answer 1

如果您可以自由使用img()而不是render...()函数，则可以简单地使用以下代码：

可复制版本：

只需克隆此存储库：https ://github.com/Timag/shiny.slider或devtools::install_github("Timag/shiny.slider") 运行 app.R.

# runApp(".../shiny.slider/R")
library(shiny)

ui <- fluidPage(
  tags$script(src = "jquery-1.6.1.min.js"),
  tags$script(src = "jquery-ui-1.8.13.custom.min.js"),
  tags$script(src = "jquery.beforeafter-1.4.min.js"),
  tags$script("
            $(function() {
                $('#slider').beforeAfter({
                    introDelay: 2000,
                    imagePath: 'img/',
                    introDuration: 500,
                    showFullLinks: false
                })
              });
  "),
  mainPanel(
    tags$div(id = "slider",
               img(src = "img/Polar-Bear-SliderTest1.jpg", width = 800, height = 533),
               img(src = "img/Polar-Bear-SliderTest2.jpg", width = 800, height = 533)
    )
  )
)

server <- function(input, output, session){}

shinyApp(ui, server)