R语言，在shiny中给照片做多边形和矩形注释

# Tue Aug 10 16:57:46 2021 -

# 字符编码：UTF-8
# R 版本：R x64 4.1 for window 11
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
#.rs.restartR()
require(recogito)
rm(list = ls());gc()

url <- "https://s1.ax1x.com/2020/11/08/BI22qK.jpg"
annotorious(src = url) #  显示并做注释
url <- paste("https://s1.ax1x.com/2020/10/27/BQCc2q.jpg")
url <- paste("https://s1.ax1x.com/2020/09/08/wQ6EBq.jpg")
annotorious(src = url)
annotorious(src = url, tags = c("Image", "Text", "Other"))