# plot perimetry data
#
# ds 2019-07-05
# ds 2021-03-01, tidied up

require(tidyverse)
require(jsonlite)

source("./perimetry_helpers.R")

# example file
data_fname <- "../perimetry/sub-14326-perimetry-data.json"


# load and plot data ------------------------------------------------------

data <- read_medmont(data_fname) 
plot_medmont(data)