R/dataTransformation-methods.R

In jarold87/R-Glib: Web analytics tools

Glib.createDataTransformationManager <- function(env, data = NULL) { c <- GlibDataTransformation(env) ; c$init(data) ; return(c) }

Glib.readEventLogs <- function(manager, file, abs = FALSE) UseMethod("Glib.readEventLogs")
Glib.readEventLogs.GlibDataTransformation <- function(manager, file, abs = FALSE) manager$read(file, abs)

Glib.getData <- function(manager) UseMethod("Glib.getData")
Glib.getData.GlibDataTransformation <- function(manager) manager$getData()

Glib.filterByDate <- function(manager, values = c(), unit = 'day') UseMethod("Glib.filterByDate")
Glib.filterByDate.GlibDataTransformation <- function(manager, values = c(), unit = 'day') manager$filterByDate(values, unit)

Glib.createDateColumns <- function(manager) UseMethod("Glib.createDateColumns")
Glib.createDateColumns.GlibDataTransformation <- function(manager) manager$createDateColumns()

Glib.normalizeColumnValues <- function(manager, column, oldValues = c(), newValue) UseMethod("Glib.normalizeColumnValues")
Glib.normalizeColumnValues.GlibDataTransformation <- function(manager, column, oldValues = c(), newValue) manager$normalizeColumnValues(column, oldValues, newValue)

Glib.filterByUserLifetime <- function(manager, value = 1, unit = 'day', filterUser = TRUE) UseMethod("Glib.filterByUserLifetime")
Glib.filterByUserLifetime.GlibDataTransformation <- function(manager, value = 1, unit = 'day', filterUser = TRUE) manager$filterByUserLifetime(value, unit, filterUser)

Glib.dropEventLogsAfterGoalEvent <- function(manager) UseMethod("Glib.dropEventLogsAfterGoalEvent")
Glib.dropEventLogsAfterGoalEvent.GlibDataTransformation <- function(manager) manager$dropEventLogsAfterGoalEvent()

Glib.dropEventLogsAfterAnEvent <- function(manager, event) UseMethod("Glib.dropEventLogsAfterAnEvent")
Glib.dropEventLogsAfterAnEvent.GlibDataTransformation <- function(manager, event) manager$dropEventLogsAfterAnEvent(event)