search

DIGI-VUB / recogito

Interactive Annotation of Text and Images
Other
21 stars 6 forks source link

annotorious widget in Firefox #11

Open jwijffels opened 2 years ago

jwijffels commented 2 years ago

widget labels do not work on firefox, but do seem to work in Chrome, Microsoft Edge and RStudio browser.

Capture

library(shiny)
library(recogito)
url <- paste("https://upload.wikimedia.org/",
             "wikipedia/commons/a/a0/Pamphlet_dutch_tulipomania_1637.jpg",
             sep = "")
ui <- fluidPage(annotoriousOutput(outputId = "anno", height = "600px"),
                tags$hr(),
                tags$h3("Results"),
                verbatimTextOutput(outputId = "annotation_result"))
server <- function(input, output) {
  output$anno <- renderAnnotorious({
    annotorious("annotations", tags = c("IMAGE", "TEXT"), src = url)
  })
  output$annotation_result <- renderPrint({
    read_annotorious(input$annotations)
  })
}
shinyApp(ui, server)