Приветствую всех,
Я новичок в ML ... Я учился строить модель на основе Keras в R и интегрироваться с приложением Shiny.Мой тестовый проект, который я пытаюсь построить, состоит в том, чтобы классифицировать изображения форм, которые получают для обработки в моей организации.Модель CNN, которую я построил, прекрасно работает при загрузке модели в R Script for Prediction.Однако при попытке загрузить модель в приложение Shiny я получаю сообщение об ошибке
Ошибка: отсутствует аргумент "filepath" без значения по умолчанию
Ниже приведен кодблестящего приложения, которое я пытаюсь построить.Пожалуйста, помогите понять, что я делаю неправильно.
Примечание: я попытался вызвать модель изнутри серверной функции / за ее пределами.Оба выдают одну и ту же ошибку.
library(shiny)
library(keras)
library(EBImage)
library(reticulate)
#pmodel <- load_model_weights_hdf5("E:\Sriram\shiny\image_classifier.h5")
ui <- fluidPage("Hello World",
fileInput(inputId = "imgfile",label = "Upload Your Image file",accept = c(".jpg",".jpeg")),
imageOutput("Page"),
"Printing Results",
textOutput("result")
)
server <- function(input,output)
{
output$Page <- renderImage({
src <- input$imgfile
src <- src$datapath
list(src = src,
height = "300",
alt = "This is alternate text")
})
output$result <-renderText({
pmodel <- load_model_weights_hdf5("E:\Sriram\shiny\image_classifier.h5")
img<-readImage(input$imgfile)
rimg <- img
rimg<-resize(rimg,100,100)
x <- array_reshape(rimg,c(1,100,100,3))
prob <- pmodel %>%
predict_proba(x)
pred <- pmodel%>%
predict_classes(x)
c<-c('HCFA','UB','Dental','Superbill-HCFA','Superbill-UB','Medicare', 'COB', 'Attach','Blank','EOB','MEOB')
paste("Image uploaded is -> %s Page with accuary of %s %%",c[pred])
})
}
shinyApp(ui = ui, server = server)`library(shiny)