shinyapps.io 上未显示徽标/图像
Logo / Image is not getting displayed on shinyapps.io
我的徽标正在本地显示在 R shiny 上,但是当我将我的应用程序部署到 shinyapps.io 时(Check the app here), 徽标显示空白图片。有人可以帮帮我吗?
空白标志
我的代码
library(dplyr)
library(shiny)
library(shinythemes)
library(rpivotTable)
#UI
ui = fluidPage(img(src='capture5.png', height = 70, width = 120),
img(src='capture6.png', height = 70, width = 120),
fluidRow( rpivotTableOutput("pivot")))
#Server
server = function(input, output, session) {reactive({
mtcars %>% select(cyl, carb, vs, mpg) %>% group_by(carb,vs ) %>% summarise(mpg=sum(mpg))})
output$pivot <- renderRpivotTable( rpivotTable::rpivotTable(mtcars, rows = c( "vs"),cols=c("carb"), vals = "mpg", aggregatorName = "Sum", rendererName = "Table", width="50%", height="550px"))}
shinyApp(ui = ui, server = server)
我在我这边测试过,似乎可以查看图像。我按照下图中的程序进行操作。请确认这是否是您所做的,或者这是否适合您?
选择发布图标后,我确保选中了 2 张图片(默认情况下),然后发布了应用程序。我把图片文件保存在 www 文件夹里。
我的徽标正在本地显示在 R shiny 上,但是当我将我的应用程序部署到 shinyapps.io 时(Check the app here), 徽标显示空白图片。有人可以帮帮我吗?
空白标志
我的代码
library(dplyr)
library(shiny)
library(shinythemes)
library(rpivotTable)
#UI
ui = fluidPage(img(src='capture5.png', height = 70, width = 120),
img(src='capture6.png', height = 70, width = 120),
fluidRow( rpivotTableOutput("pivot")))
#Server
server = function(input, output, session) {reactive({
mtcars %>% select(cyl, carb, vs, mpg) %>% group_by(carb,vs ) %>% summarise(mpg=sum(mpg))})
output$pivot <- renderRpivotTable( rpivotTable::rpivotTable(mtcars, rows = c( "vs"),cols=c("carb"), vals = "mpg", aggregatorName = "Sum", rendererName = "Table", width="50%", height="550px"))}
shinyApp(ui = ui, server = server)
我在我这边测试过,似乎可以查看图像。我按照下图中的程序进行操作。请确认这是否是您所做的,或者这是否适合您?
选择发布图标后,我确保选中了 2 张图片(默认情况下),然后发布了应用程序。我把图片文件保存在 www 文件夹里。