inst/mtr_app/tests/generate_series.R

In JingningShi/MtreeRing: A Shiny Application for Automatic Measurements of Tree-Ring Widths on Digital Images

app <- ShinyDriver$new("../")
app$snapshotInit("generate_series")

app$setInputs(sidebarCollapsed = FALSE)
# Input 'plot2_brush' was set, but doesn't have an input binding.
# Input 'zoom_brush' was set, but doesn't have an input binding.
app$uploadFile(selectfile = system.file('001.png', package = 'MtreeRing'))
app$setInputs(buttoninputimage = "click")
app$setInputs(tuid = "940220")
app$setInputs(dpi = "1200")
app$setInputs(sample_yr = "2015")
app$setInputs(m_line = "90")
app$setInputs(method = 'watershed')
app$setInputs(buttoncreatpath2 = "click")
# Input 'plot2_brush' was set, but doesn't have an input binding.
app$setInputs(
  plot2_brush = list(xmin = 10, xmax = 2333, ymin = 60, ymax = 12),
  allowInputNoBinding_ = TRUE)
app$setInputs(button_run_auto = "click")
app$snapshot()
app$setInputs(button_results = "click")
app$snapshot()