Я пытаюсь обновить div в цикле, некоторые из которых содержат изображения. Используя removeUI (..., немедленный = ИСТИНА), я могу удалить их, а затем заменить их на новые div, используя insertUI (..., немедленный = ИСТИНА). Хотя тексты появляются в режиме реального времени, изображения не загружаются, пока мы не выйдем из цикла (см. Пример ниже, вам даже не нужно загружать изображение, после окончания цикла появится знак вопроса).
В моем браузере я вижу, что теги img созданы в HTML, но изображения пока не отображаются.
Вот воспроизводимый пример:
ui <- fluidPage(
actionButton("add","")
)
server <- function(input, output, session) {
for(i in 1:3){
Sys.sleep(1.5)
insertUI(
selector = "#add",
where = "afterEnd",
ui = div(style = paste0("width: 75px; height: 75px; background-color: white;"), h5("Text appears live", align = "center"),
div(h6("Text inside a div appears live")),
div(id = "img", img(src = "image.jpg", alt = "Images do not appear live")
)
),
immediate = TRUE
)
}
}
shinyApp(ui, server)
Это нормальное поведение для блеска? Если это так, то есть ли способ обойти это и увидеть, как изображения появляются прямо? Еще один способ сделать это?