r - 使用 Shiny 中的 slider 更改图像大小

Question

目标:使图像更改大小以响应在 Shiny (RStudio) 中移动 slider 。想想放大缩小效果。

问题:出现错误提示“basename(imageinfo$src) 中的错误:预期的字符向量参数”。我找不到任何可以直接回答这个问题的东西，我不确定还有什么可以尝试的。在 server.R 中，sliderInput 如何用作 input$slider 是否只是一个问题？

我目前的进度:我的理由是在 ui.R 文件中设置 slider ，然后将图像的宽度作为 server.R 文件中的输入。

ui.R 部分:

shinyUI(fluidPage(
  titlePanel("Nancy's Brainstorming"),
  sidebarLayout(

sidebarPanel(
  h3(
    strong("What is this?", style = "font-si24pt")),
  p("This is a pilot project."),
  sliderInput("slider", 
              label = "", 
              min = 100, 
              max = 300, 
              value = 200),
   imageOutput("logo", width = 200)
      )
    )
))

server.R 部分:

 shinyServer(function(input, output) {

  output$logo = renderImage({
  img(src = "mylogo.png", width = input$slider)
  })
})

附加信息:当我使用 img(src = "mylogo.png", width = 200) 时，图像本身显示得很好。另外，我这样做只是为了更好地构建 Shiny 应用程序。

Answer 1

img(src = "mylogo.png", width = input$slider)只是返回html。您可以使用 renderUI而不是 renderImage .

library(shiny)
runApp(
  list(ui = fluidPage(
    titlePanel("Nancy's Brainstorming"),
    sidebarLayout(    
      sidebarPanel(
        h3(
          strong("What is this?", style = "font-si24pt")),
        p("This is a pilot project."),
        sliderInput("slider", label = "", min = 100, max = 300, value = 200),
        uiOutput('logo')
      ),
      mainPanel(
        plotOutput("distPlot")
      ) 
    )
  ),
  server = function(input, output, session) {
    output$logo <- renderUI({
      img(src = "http://i.stack.imgur.com/mTqXa.png", width = as.integer(input$slider))
    })
  }
  )
)