# for profiling
library(profvis)
# profile dehazing
im <- imager::load.image("inst/extdata/Meetterrein/Meetterrein_20151009_0840.jpg")
profvis({
library(visDec)
ImageFeatures("inst/extdata/Meetterrein/Meetterrein_20151009_0840.jpg", y > 16)
})
profvis({
library(visDec)
GetDarkChannel(im, 15)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.