/R/Painter-class.R

 1######################################################################
 2##  Class "Painter"
 3######################################################################
 4VisnabPainter.gen <- setRefClass("VisnabPainter",
 5                                 fields = list(zoomLevel = "numeric"))
 6## accesors
 7## addLayer
 8## Should have the ability to
 9## 1. Transform automatically when the layer is added(limits)
10##    compute limits itself, then compare limits to it's parent,
11##    basically most time, it's object's rootLayer.
12##    So the assumption here is that:
13##    1) we transform them on the same scale
14##    2) 
15## 2. How to add events?
16## assume it has extra column to store the color