In MilesMcBain/r2vr: Compose and Serve WebVR Scenes

  knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.height = 3,
  fig.width = 7
  )
require(knitr)

Annotate 2D Virtual Reality Images by Creating an Interactive WebVR scene

r2vr has been extended to be able to help train users to annotate virtual reality images more accurately. The 2D Testing will randomly select 3 images from a pool of images. Users are able to annotate selected markers (for each image) as either C or N to classify the bounded region as either containing mostly Coral or Not Coral respectively. The user will also be prompted to answer evaluation questions. The data generated from the 2d training and 2d testing can be read into R for analysis.

Case Study: Coral Cover

library(r2vr)

IPv4_ADDRESS <- find_IP() # Note: If not on Windows, enter IP directly

## TODO: SET full name here
# set_user("Firstname-Lastname") # default to be overridden
set_user("Jon-Peppinck")

## OPTIONAL: '?set_marker_and_props' shows configuration options
# i.e. Number of markers and size of markers, but keep "2d"
set_marker_and_props("2d") 

## OPTIONAL: '?set_colors'
# set_colors(
#   marker = "#0000FF",
#   coral = "#FF00FF",
#   not_coral = "#FFFF00",
#   text = "#FFFFFF",
#   plane = "#000000",
#   check_correct = "#00FFFF",
#   check_incorrect = "#FFDDAA",
#   evaluation_selection = "#FF0000",
#   cursor = "#00FF00"
# )
set_colors()

R2VR_CDN <- "https://cdn.jsdelivr.net/gh/ACEMS/r2vr@experiment" # NOTE: Subject to change

R2VR_2D_IMAGES <- paste0(R2VR_CDN, "/inst/ext/images/2d/")

# TODO: Select images (4000x3000px)
img_paths <- paste0(
  R2VR_2D_IMAGES,
  c("49001074001.jpeg",
    "49002256001.jpeg",
    "51010026001.jpeg",
    "49004035001.jpeg",
    "50003181001.jpeg")
)

img_paths_and_points <- list(
  # 2D image paths  4000x3000
  list(img = img_paths[1]),
  list(img = img_paths[2]),
  list(img = img_paths[3]),
  list(img = img_paths[4]),
  list(img = img_paths[5])
)

set_random_images(img_paths_and_points) # TODO: allow for img_paths w/o points (training)

## TODO: SET evaluation question and responses here
evaluation_questions <- list(
  list(question = "Did you enjoy this experiment?", answerOne = "Very much", answerTwo = "Yes", answerThree = "A little", answerFour = "No"),
  list(question = "On a scale of 1-4, how would you rate your experience?", answerOne = "1", answerTwo = "2", answerThree = "3", answerFour = "4")
)

## OPTIONAL: '?set_questions_and_responses'
set_questions_and_responses(evaluation_questions)

animals <- shared_setup_scene("2d", "testing") # DON'T CHANGE

COMMANDS - 2D Testing

rm(list=ls()) start() randomize_markers() go_to() go_to() ask_question(1) ask_question(2) end() data.df <- read("https://r2vr.herokuapp.com/api/2d/testing") data.df <- read("https://r2vr.herokuapp.com/api/2d/evaluation") rm(list=ls())

MilesMcBain/r2vr documentation built on March 29, 2021, 12:03 p.m.