我的徽标正在本地显示在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)