Нарисуйте пули / круги на изображении с заданными координатами изображения

Question

Привет, у меня есть блестящее приложение R, отображающее изображение.Я хотел бы нарисовать маркеры / круги на изображении на основе координат изображения.Координаты изображения читаются из фрейма данных, где я хотел бы выполнить итерацию по каждой строке, построить и затем удалить координаты, нарисованные для каждой итерации.

Теперь у меня есть что-то подобное

#UI
UI <- function(id) {
fluidPage(
useShinyjs(),

fluidRow(
  column(width=12,
         box(title='Select', width = NULL, closable = TRUE,
                 actionButton("draw", "draw"))
  )),

fluidRow(width=7,
         align="center",
         box(title='Draw', width=7, height = NULL,
             imageOutput("sample")
             )
         )
  )
}
#server
Server <-function(input, output, session) {
 useShinyjs()

#loop to iterate over every x,y coordinate value in data frame
 for(i in 1:nrow(data))
{
    x = data[i,1]
    y = data[i,2]
    #how do I draw these coordinates values on the below displayed image and clear 
    #the drawn figures every iteration something like addCircles() and clearShapes() in 
    #leafletProxy() used for drawing figures on maps
}
 observeEvent(input$draw, {
 output$sample<--renderImage({
 list(src = "www/data/test.png",
      contentType = 'image/png',
      width = 700,
      height = 400)
  }, deleteFile = FALSE
  )
 }

Примечание. Исходное изображение размером 1920x1080, координаты изображения соответствуют этим размерам, и я хочу отображать изображение в приложении с пользовательскими шириной и высотой, как у меня выше (700x400).