Локальное изображение во всплывающем окне на основе ввода пользователя - карта Shiny Leaflet

Question

Я пытаюсь отображать локальные изображения во всплывающих окнах на основе ввода данных пользователем. Я использую шейп-файл на уровне округа, и мои данные также находятся на уровне округа. Цвета хороплетной карты изменяются в зависимости от ввода данных пользователем. Я могу отображать изображения на основе пользовательского ввода на панели справа, но не во всплывающем окне. Кроме того, если я использую фиксированное изображение, а не выбираю изображение из папки на основе пользовательского ввода, изображение появляется во всплывающем окне Пример вывода . Я пытаюсь добиться этого с помощью leafpop и в прошлом пробовал использовать mapview, но не повезло. Где я ошибаюсь ?? Изображения png находятся в www folder Имена изображений следуют этому шаблону

################### This is how I get the file location based on user input
flname3 <- reactive({
paste0('C:/Users/rohit/Desktop/climatechange/www/latinsert_',input$rcp,'_',as.character(selectedtf()),'_','NARR_tp_at4s_county_',as.character(selectedCounty()$GEOID),'.png')  })

######################################## This is how I use it in the popup

observe({

leafletProxy("map", data = selectedCounty()) %>%
  clearGroup(c("co.unty")) %>%
  addPolygons(group ="co.unty", fillColor = "yellow",
              color = "#BDBDC3",
              highlightOptions = highlightOptions(color = "white", weight = 2, bringToFront = TRUE),
              fillOpacity = 1,
              weight = 5,
              popup = leafpop::popupImage(flname3(), src = "local"))
})

PS - Я не знаю, как сделать воспроизводимый пример для этого