Taipan is a Tool for Annotating Images in Preparation for ANalysis.
The Taipan package creates simple shiny surveys. The web applications can be used locally or deployed and allow people to save survey results as tidy data that is ready to use for analysis.
The app was initially created to streamline the process of manually tagging images to create a training set. It allows users to provide information regarding entire images, and smaller regions within. It is a survey style tool, with questions being posed for each image and area identified.
You can install the stable version from CRAN.
install.packages('taipan')
You can install the development version from Github using:
# install.packages("devtools")
::install_github("srkobakian/taipan") devtools
Taipan builds a shiny app suitable for annotating images. Questions can be provided for two scenarios in the app: ‘scene’ and ‘selection’. Scene questions are suitable for questions that apply to the whole image, and are shown when no selection is made. Selection questions are appropriate for selected areas of the image, and are shown when a selection is made.
These lists of questions can be flexibly produced using the
taipanQuestions
function, where any shiny inputs and web
elements can be used to build your own survey UI. For example, to train
a model for identifying hotdogs and condiments, you could use this
interface:
library(taipan)
library(shiny)
<- taipanQuestions(
questions scene = sliderInput("quality", label = "Image Quality",
min = 0, max = 10, value = 5),
selection = div(
radioButtons("hotdog", label = "Hotdog?",
choices = list("Hotdog", "Not hotdog")),
checkboxGroupInput("extra", label = "Condiments",
choices = list("Onion", "Tomato (Ketchup)", "Barbeque", "Mustard"))
) )
To build a taipan app with these questions, we can use the
buildTaipan
function and provide a set of images to
annotate. These images can be provided locally, or via links to the web.
You can specify where the app will be created with the
appdir
argument.
buildTaipan(
questions = questions,
images = c("https://raw.githubusercontent.com/srkobakian/taipan/master/sample_images/hotdog.jpg",
"https://raw.githubusercontent.com/srkobakian/taipan/master/sample_images/not_hotdog.jpg"),
appdir = file.path(tempdir(), "taipan"), overwrite = TRUE
)