Deep Learning Image Classification with Keras and Shiny

February 19, 2018

(This article was first published on Jasmine Dumas' R Blog, and kindly contributed to R-bloggers)

I have to admit my initial thoughts of deep learning were pessimistic and in order to not succumb to impostor syndrome, I put off learning any new techniques in the growing sub field of machine learning, until recently. After attending & speaking at Data Day Texas and listening to Lukas Biewald’s Keynote titled: Deep Learning in the Real World, I began to see through the complexities of Deep Learning and understand the real world applications. My favorite example from the keynote was Coca Cola deploying a deep learning model to easily capture under the cap promotional codes. I left the conference with some initial ideas about detecting deer in my backyard using a web cam and running a image classification algorithm as my first step into learning by doing.

For this image classification project I leveraged a pre-trained model from the R interface to Keras, that had been previously trained on a similar task. This enabled me to prototype something quickly and cheaply in a weekend and wrap the code as an interactive web app with a shiny flexdashboard. Here is the link to the shiny app which enables you to upload a image and return the top 3 predicted classes for that image: and a preview of the app in action below.

alt text

To leave a comment for the author, please follow the link and comment on their blog: Jasmine Dumas' R Blog. offers daily e-mail updates about R news and tutorials on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...

If you got this far, why not subscribe for updates from the site? Choose your flavor: e-mail, twitter, RSS, or facebook...

Comments are closed.

Search R-bloggers


Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)