Как реализовать функцию renderImage

Я не могу загрузить изображение через подкаталог на блестящей веб-странице.

  1. Я создал папку подкаталога с именем "www" и поместил изображение.
  2. Я также пытался использовать URL.

До сих пор не работает

imageOutput("d", width = 300, height = 500)

output$d <- renderImage({ 
                        list(src= "driveaxle.png",
                        filetype = "image/png",
    )}), deletefile = False}

rscript shiny shinydashboard
person pralhad    schedule 12.11.2019    source источник
comment
и с deleteFile = FALSE (заглавными буквами)?   -  person Stéphane Laurent    schedule 12.11.2019
comment
Что вы имеете в виду под не работает? Вы получаете сообщение об ошибке? False должно быть FALSE, после filetype нужно удалить запятую, а deletefile должно быть deleteFile.   -  person Stéphane Laurent    schedule 13.11.2019

Ответы (1)


arrow_upward
0
arrow_downward

Я попробовал ваш код. Необходимо изменить несколько областей. Сначала вам нужно создать папку с именем images в папке www. также вам нужно указать имя файла из отдельной переменной.

Я попробовал, и это выглядит так: UI.R

fluidPage(
  sidebarLayout(
    sidebarPanel(
      "This is Sidebar"
    ),
    mainPanel(imageOutput("d", width = 300, height = 500)
              )
  )
)

Сервер.R

function(input, output) {
  output$d <- renderImage({ 
    filename <- normalizePath(file.path('./www/images','studio logo.jpg'))

    list(src = filename,
         contentType = 'image/png',
         alt = "This is alternate text")
  }, deleteFile = FALSE)


  }

Вывод выглядит так:

введите здесь описание изображения

Вы можете прочитать здесь: https://shiny.rstudio.com/articles/images.html

person Subhasish1315    schedule 12.11.2019