R/xs_page.r

In gtree-gh/gtree: Game Theoretic Representation of Economic Experiments

xs.show.edit.page.tab = function(gameId, stage.name=NULL, xs=app$xs, app=getApp(), page=NULL) {
  restore.point("xs.show.edit.page.tab")

	rg = get.rg(gameId=gameId)

	postfix = paste0(gameId,"_", stage.name)
  tabId = paste0("tab_pageedit_",postfix)

  if (tabId %in% xs$tabs) {
    w2tabs.select("xsTabs", tabId)
    return()
  }

  xs$tabs = c(xs$tabs, tabId)

  divId = paste0("div_pageedit_",postfix)
  tab=list(id=tabId,caption=paste0("p-", substring(stage.name,1,8)), closable=TRUE,div_id = divId)
  w2tabs.add(id="xsTabs", tabs=list(tab))

  ui = xs.edit.page.panel.ui(gameId, stage.name=stage.name, page=page)


  appendToHTML(selector="#mainDiv", as.character(hidden_div(id=divId, ui)))
  w2tabs.select("xsTabs", tabId)
}


xs.edit.page.panel.ui = function(gameId, stage.name, xs=app$xs, app=getApp(),page=NULL,...) {
	restore.point("xs.page.edit.panel.ui")

	rg = get.rg(gameId = gameId)

	stages.names = get.names(rg$stages)

	if (is.null(page)) {
		if (stage.name == "wait-page") {
			page = load.rg.wait.page(rg=rg)
		} else {
			stage = rg$stages[[stage.name]]
			page = load.rg.stage.page(rg=rg, stage=stage)
		}
	}
	page = merge.lines(page)

	ns = NS(paste0(gameId,"-",stage.name))
  form.sel = ids2sel(c(ns("ace"),ns("stage")))

  ui = list(
  	HTML("<table><tr><td>"),
    smallButton(ns("saveBtn"), "Save",  "data-form-selector"=form.sel),
  	HTML("</td><td>"),
    smallButton(ns("defaultBtn"), "Default",  "data-form-selector"=form.sel),

  	HTML("</td><td>"),
    selectInput(ns("stage"),"",choices = c(stages.names,"wait-page"), selected=stage.name),
  	HTML("</td></tr></table>"),
  	HTML(aceEditorHtml(ns("ace"),value = page, mode="html",wordWrap = TRUE))
  )
	buttonHandler(ns("saveBtn"),fun = save.page.click, stage.name=stage.name, gameId=gameId)
	buttonHandler(ns("defaultBtn"),fun = function(...)
	  default.page.click(stage.name=stage.name, gameId=gameId, rg=rg, ...)
	)
	selectChangeHandler(ns("stage"),fun=xs.edit.page.stage.change,stage.name=stage.name, gameId=gameId)

  ui
}

default.page.click = function(gameId, stage.name, formValues,...,xs=app$xs,em = get.em(),rg = get.rg(em$gameId), app=getApp()) {
  restore.point("default.page.click")


	if (isTRUE(xs$demo.mode)) {
		demo.mode.alert(); return();
	}



	ns = NS(paste0(gameId,"-",stage.name))
	if (stage.name == "wait-page") {
		page = make.wait.page(rg=rg)
	} else {
		page = make.stage.page(rg=rg,stage = stage.name)
	}
	ns = NS(paste0(gameId,"-",stage.name))

	updateAceEditor(session=getApp()$session,ns("ace"),value=merge.lines(page))
}


xs.edit.page.stage.change = function(gameId, stage.name, value,..., app=getApp()) {
	ns = NS(paste0(gameId,"-",stage.name))
	restore.point("xs.edit.page.stage.change")
	# open new tab for new stage page
	updateSelectInput(app$session,ns("stage"),selected = stage.name)
	xs.show.edit.page.tab(gameId=gameId, stage.name=value)
	# reset select component in current tab
}


xs.edit.page.stage.change = function(gameId, stage.name, value,..., app=getApp()) {
	ns = NS(paste0(gameId,"-",stage.name))
	restore.point("xs.edit.page.stage.change")
	# open new tab for new stage page
	updateSelectInput(app$session,ns("stage"),selected = stage.name)
	xs.show.edit.page.tab(gameId=gameId, stage.name=value)
	# reset select component in current tab

}

save.page.click = function(gameId, stage.name, formValues,...,xs=app$xs, app=getApp()) {
	if (isTRUE(xs$demo.mode)) {
		demo.mode.alert(); return();
	}

	ns = NS(paste0(gameId,"-",stage.name))
	txt = formValues[[ns("ace")]]
	restore.point("save.page.click")

	save.stage.page(txt=txt, gameId=gameId, stage.name = stage.name)


}