Question

我有这个代码在RStudio中直接运行时工作正常。但是，当我将其上传到https://miequiz.shinyapps.io/Bubbles/时，无法找到静态图片 IE2004mxBis（EN）.png 。

检查显示的页面我发现它正在 https://miequiz.shinyapps.io/Bubbles/_w_36123d32/IE2004mxBis(EN).png 而不是 www 中寻找它，我有它，如Shiny文档中所示。显然未能找到它。我究竟做错了什么？这是一个错误吗？

# This is a Shiny web application.
#
# Displayis a motionchart of EI and a map of IE in Mexico
#
#
library("shiny")
library("googleVis")
long_todo <- read.csv(file = "zvh_estados_long.csv",
                      stringsAsFactors = F)
titulos <- names(long_todo)
titulos <- sub("zvh", "Holdridge_LifeZone", titulos)
titulos <- sub("biomasa", "Biomass", titulos)
titulos <- sub("anom", "IE_Anomaly_(IE_mean2004)", titulos)
titulos <- sub("Entidad", "State", titulos)
titulos <- sub("area", "Area", titulos)
names(long_todo) <- titulos
long_todo$Holdridge_LifeZone <- iconv(long_todo$Holdridge_LifeZone,
                                      from = "latin1", to="UTF-8")
long_todo$State <- iconv(long_todo$State, from = "latin1", to="UTF-8")

# Deines details of the user interface
ui <- shinyUI(fluidPage(theme = "bootstrap.css",
  fluidRow(
    column(10, offset = 2,
           headerPanel ("Ecosystem Integrity")) # Título de la aplicación
          ),

  fluidRow(
    column(5, offset = 1,
           # Combo para elegir Entidad
           sidebarLayout(position = "left",
                         selectInput("entidad", "Choose a State: ",
                                     sort(unique(long_todo$State))),

           # Muestra la gráfica de distribución de integridad
           mainPanel(htmlOutput("ieGrafAnimada"))
           )),

    column(4, offset = 1,
              img(src="IE2004mxBis(EN).png", height=300, width=370),
                  style="text-align: right;",
                  style="vertical-align: bottom;")
  )
))

# Define server logic required to draw a MotionChart
server <- shinyServer(function(input, output) {

  output$ieGrafAnimada <- renderGvis({
    # Gráfica dinámica de burbujas
    Motion=gvisMotionChart(subset(long_todo, State==input$entidad),
                           idvar="id", timevar="year",
                           xvar = "IE",
                           yvar = "IE_Anomaly-vs2004",
                           colorvar = "Holdridge_LifeZone",
                           sizevar = "Area",
                           options = list(chartid= "Burbujas",
                                          width=647, height=400,
                                          tooltip="{isHtml:'True'}"))

    return(Motion)
  })

  outputOptions(output, "ieGrafAnimada", suspendWhenHidden = FALSE)
})

# Run the application
shinyApp(ui = ui, server = server)

Answer 1

你的问题在于你的图像文件名，摆脱括号，一切都会起作用。它可能与闪亮处理文件的方式有关，因此您可能会认为它是一个错误。

为什么Shiny正在文件夹“_w_foo”中寻找我的静态图像，比www更好？

1 个答案: