R 闪亮 - 图像不出现
Posted
技术标签:
【中文标题】R 闪亮 - 图像不出现【英文标题】：R shiny - image does not appear 【发布时间】：2019-01-04 09:27:57 【问题描述】：我正在尝试在闪亮的页面上插入徽标。
这是一个可重现的例子：
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 目录
我不知道我做错了什么......有人可以帮忙吗？非常感谢 ！
【问题讨论】：
请阅读并编辑您的问题：How to make a great R reproducible example? 我不知道如何在图像顶部插入滑块。滑块是否显示了什么？ 是的，请查看我的编辑。滑块显示一切都很好，除了没有出现的图像...我也尝试将图像放在滑块之外，但它仍然无法正常工作，所以我认为这不是问题... 【参考方案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)
将 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)
闪亮的输出
【讨论】：
哦，我明白了，然后如果你定义两个单独的 ui 和 server 文件，你如何运行应用程序？你连续运行它们？ 如果 ui.R 和 server.R 页面处于打开状态，您会看到一个选项Run App。只需单击该选项，闪亮就会运行。
好的，非常感谢，您的解决方案确实解决了我的问题！我已将所有代码放在一个 app.R 文件中！！再次感谢！！以上是关于R 闪亮 - 图像不出现的主要内容，如果未能解决你的问题，请参考以下文章