R/EpivizChart-class.R

In epiviz/epivizr-release: R Interface to epiviz web app

EpivizChart <- setRefClass("EpivizChart",
	fields=list(
		measurements="ANY",
    datasource="ANY",
    datasourceGroup="ANY",
		id="character",
		mgr="EpivizDeviceMgr",
		inDevice="logical",
		type="character"),
	methods=list(
		initialize=function(inDevice=FALSE, ...) {
			inDevice <<- inDevice
			callSuper(...)
		},
		setId=function(id) {id <<- id},
		getId=function() {return(id)},
		setInDevice=function(x) {inDevice <<- x},
		show=function() {
			cat("EpivizChart object: ", getId(), "\n")
			cat("type: ", type, "\n")
                        nms <- sapply(measurements, function(x) paste0(x$datasourceId,":",x$id))
			cat("measurements: ", paste0(nms, collapse=","), "\n")
		}
	)
)