inst/extdata/apps/digitizeImages/ui.R

require(bezier)
require(rjson)

# SESSION PARAMETERS SENT DIRECTLY TO BROWSER
text_input <- readLines('session_parameters.txt')

shinyUI(
	bootstrapPage(
		includeHTML("digitize_image.html"),
		title='StereoMorph | Digitizing App', theme = 'digitize_image.css',
		textInput("text_input", label = "", value = text_input),
		textOutput("text_output")
	)
)
aaronolsen/StereoMorph documentation built on June 2, 2022, 4:09 a.m.