Загрузить изображение Shinydashboard - PullRequest
0 голосов
/ 04 мая 2018

Я пытаюсь загрузить изображение в мою shinydashboard, и я получаю синий знак вопроса в центре изображения, когда изображение отображается. Я создал папку www в моей рабочей директории и поместил png в эту папку.

Мой макет для этой вкладки пока просто:

tabItem(tabName = "Alignment",
  fluidRow(
    tags$img(src = 'Alignment.png', height = 800, width = 1200)
)
),

Имя вкладки отображается на моей shinydashboard, и оно пытается загрузить изображение и изменит его размер, если я изменю его, но оно ничего не загружает.

Любые предложения о том, что это, почему это будет?

1 Ответ

0 голосов
/ 08 мая 2018

Вам нужно поместить картинку на серверную сторону, чтобы отрендерить ее.

Попробуйте это:

library (shiny)
library (shinydashboard)
library (png)


###/UI SIDE/###

header <- dashboardHeader()
sidebar <- dashboardSidebar(
  sidebarMenu(id = "test",
              menuItem("Alignment", tabname = "AlignmentTab")
  )
)
body <- dashboardBody(
  tabItem(tabName = "AlignmentTab",
          fluidRow(
            box(
              title = "Alignment", status = "primary", solidHeader = TRUE, width = 12,
              imageOutput("Alignment", height = "auto")
            )
          )
  )
)

ui <- dashboardPage(header, sidebar, body)

###/SERVER SIDE/###
server <- function(input, output, session) {

  output$picture <- renderImage({
      return(list(src = "/srv/samba/share/site layouts//Alignment.PNG",contentType = "image/png",alt = "Alignment"))
  }, deleteFile = FALSE) #where the src is wherever you have the picture

}

#Combines Dasboard and Data together----
shinyApp(ui, server)
...