I am developing and application which takes two documents takes their text and matches the text. But not able to display. How to overcome this?
Here is my reprex-
library(shiny)
library(RecordLinkage)
library(tidyverse)
library(dplyr)
library(shinydashboard)
library(tesseract)
library(magick)
library(stringdist)
ui<- fluidPage(
fluidRow(
column(4,
fileInput("image1", "Upload Image 1")),
column(4,
fileInput("image2", "Upload Image 2")),
column(8,
actionButton("submit", "Submit"),
actionButton("compare", "Analyze"))
),
fluidRow(column(12,
box(width = 12,
uiOutput("text"),
title = "Text Output 1"
)
)),
fluidRow(column(12,
box(width = 12,
uiOutput("text1"),
title = "Text Output 2"
)
)),
fluidRow(column(12,
box(width = 12,
uiOutput("analysis"),
title = "Analysis"
)
))
)
server<- function(input, output, session)
{
observeEvent(input$submit, {
req(input$image1)
output$text<- renderUI({
t1<- c(image_ocr(image_read(input$image1, path = input$image1$datapath)))
t<- as.character(t1)
return(t1)
})
})
observeEvent(input$submit, {
req(input$image2)
output$text1<- renderUI({
t2<-c(image_ocr(image_read(input$image2, path = input$image2$datapath)))
t2<-as.character(t2)
return(t2)
})
})
a<- reactive({
c(input$text)
})
b<- reactive({
c(input$text1)
})
observe( {
output$analysis<- renderUI({
d<- stringdist(a(),b() ,method = "cosine")
return(d)
})
})
}
shinyApp(ui,server)