moldach
commented
3 years ago Can confirm that trying the following and clicking Run App produces the Error: div.st is not a function error:
library(shiny)
library(shinysense)
library(tidyverse)
library(keras)
# instantiate the model
model <- application_resnet50(weights = 'imagenet')
ui <- fluidPage(
theme = shinythemes::shinytheme("flatly"),
titlePanel("Imagenet Classifier"),
fluidRow(
column(width = 7, h3("Webcam"),
shinyviewr_UI("myCamera", height = '250px') ),
column(width = 4, offset = 1, h3('Predictions'),
plotOutput("predPlot"))
),
h3("Last Photo"),
imageOutput("snapshot", height = '250px')
)
server <- function(input, output) {
#server side call of the viewr module
myCamera <- callModule(
shinyviewr, "myCamera" )
# Watch for photos being taken
observeEvent(myCamera(), {
photo_processed <- myCamera() %>%
{.*255} %>% #get image to 0-255 instead of 0-1
{
this <- .
write_rds(this, 'webcam_photo.png')
this
} %>%
array_reshape(c(1, dim(.))) %>%
imagenet_preprocess_input()
# make predictions then decode and print them
preds <- model %>%
predict(photo_processed) %>%
imagenet_decode_predictions(top = 8) %>%
.[[1]]
# Plot predictions
output$predPlot <- renderPlot({
preds %>%
mutate(
class_description = str_replace(
class_description, '_', ' ' )
) %>%
ggplot(aes(
x = reorder(class_description, score),
y = score) ) + coord_flip() +
geom_pointrange(aes(ymin = 0, ymax = score))
})
# show photo
output$snapshot <- renderPlot({
plot(as.raster(myCamera()))
})
})
}
# Run the application
shinyApp(ui = ui, server = server)Error
Webcam
Error: div.st is not a function in /home/mtg/R/x86_64-pc-linux-gnu-library/4.0/shinysense/r2d3/viewr/main.js#26:5
TypeError: div.st is not a function
sbenateau
MMenninger
DanyangDai
SalusDiscovery
First, thank you for your work! I am not a developer and I hope my explanations aren't to vague. on two different "computers" the error on the browser is : Error: div.st is not a function No errors in the console nor in the logs on the server