R 闪亮 - 图像不出现

Question

我正在尝试在闪亮的页面上插入徽标。

这是一个可重现的例子：

app.R 文件：

setwd(".../shinyApp") source("ui.R") source("server.R") shinyApp(ui, server)

我使用 runApp 按钮来运行应用程序

ui.R 文件：

ui <- shinyUI(fluidPage( titlePanel("Blabla"), sidebarLayout( sidebarPanel( sliderInput(inputId="min", label="Values", min = 10, max = 100, value = 10,sep=" "), h6("Done by:"), img(src='logo.png',height=50,width=50) ), mainPanel( h1("Main title"), p("First paragraph"), h2("Subtitle"), p("Second paragraph"), tableOutput("table") ) )))

但这不起作用...我有一个问号错误而不是我的徽标，好像 R 找不到我的图像。问号在我的侧边栏面板中是正确的（并且出现了“完成”的文本）。

我已将我的图像放在 www 目录中，因为我在很多地方都读到它是一个解决方案（例如：Image not showing in Shiny app R）。

我闪亮的应用程序结构如下：

• app.R 文件：

• 一个 shinyApp 目录，其中包含：我的 ui.R、我的 server.R 和包含我的 logo.png 的 www 目录

我不知道我做错了什么......有人可以帮忙吗？非常感谢 ！

Answer 1

有两种方法可以构建闪亮的应用程序。

1. 在一个文件中定义 ui 和 server 并命名为app.R

   library(shiny)
   ui <- shinyUI(fluidPage(
     titlePanel("Blabla"),
     sidebarLayout(
       sidebarPanel(
         sliderInput(inputId="min",
                     label="Values",
                     min = 10, max = 100, value = 10,sep=" "),
         h6("Done by:"),
         img(src='logo.png',height=50,width=50)
       )
   
     )))
   
   server <- function(input, output, session) {
     } shinyApp(ui, server)
   

2. 将 ui 和 server 定义为单独的页面，并将它们保存为 ui.R 和 server.R

示例ui.R 页面

ui <- shinyUI(fluidPage(
  titlePanel("Blabla"),
  sidebarLayout(
    sidebarPanel(
      sliderInput(inputId="min",
                  label="Values",
                  min = 10, max = 100, value = 10,sep=" "),
      h6("Done by:"),
      img(src='logo.png',height=50,width=50)
    )

  )))

示例server.R 页面

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

}

闪亮的输出