Data: Superclass for unified data respresentations

In rappster/dataconr: Interfaces for data sources

Description

TODO

Usage

Data

Format

Class 'R6ClassGenerator' <environment: 0x0000000009bc83a0> 
 - attr(*, "name")= chr "Data_generator"

Details

TODO

Fields

data

ANY Actual data

r_format

IDataFormat Instance of a class that implements the IDataFormat interface and that contains meta format information for R.

ext_format

IDataFormat Instance of a class that implements the IDataFormat interface and that contains meta format information for external data location.

order

ANY Data order information (rows and columns currently).

Getters/setters

• See superclass IData

Public methods

• See interface IData

Author(s)

Janko Thyson [e-mail]

References

http://github.com/rappster/datar

Examples

# Example data ------------------------------------------------------------

data_r <- data.frame(
  x_1 = seq(10, 20, 5),
  x_2 = seq(as.POSIXct("2015-01-01"), length.out = 3, by = "1 days"),
  x_3 = TRUE,
  stringsAsFactors = FALSE
)
data_ext <- data.frame(
  x.1 = seq(10, 20, 5),
  x.2 = as.character(seq(as.POSIXlt("2015-01-01"), length.out = 3, by = "1 days")),
  x.3 = TRUE,
  stringsAsFactors = FALSE
)

# Example meta format -----------------------------------------------------

r_format <- DataFormat$new(
  format = list(
    function(x, pattern = "\\d{4}-\\d{2}-\\d{2}") {
      tmp <- lapply(x, function(ii) {
        if (any(grepl(pattern, ii))) {
          as.POSIXlt(ii)
        } else {
          ii
        }
      })
      as.data.frame(tmp, stringsAsFactors = FALSE)
    },
    function(x) {
      names(x) <- gsub("\\.", "_", names(x))
      x
    }
  )
)
ext_format <- DataFormat$new(
  format = list(
    function(x, pattern = "\\d{4}-\\d{2}-\\d{2}") {
      tmp <- lapply(x, function(ii) {
        if (any(grepl(pattern, ii))) {
          as.character(ii)
        } else {
          ii
        }
      })
      as.data.frame(tmp, stringsAsFactors = FALSE)
    },
    function(x) {
      names(x) <- gsub("_", ".", names(x))
      x
    }
  )
)

# Apply R format  ---------------------------------------------------------

inst <- Data$new(data = data_ext, r_format = r_format)
data_before <- inst$getData()
inst$applyRFormat()
data_after <- inst$getData()

## Names comparison //
names(data_before)
names(data_after)

## Class comparison //
sapply(data_before, class)
sapply(data_after, class)

# Apply external format ---------------------------------------------------

Data$undebug("applyExternalFormat")
inst <- Data$new(data = data_r, ext_format = ext_format)
data_before <- inst$getData()
inst$applyExternalFormat()
data_after <- inst$getData()

## Names comparison //
names(data_before)
names(data_after)

## Class comparison //
sapply(data_before, class)
sapply(data_after, class)

rappster/dataconr documentation built on May 26, 2019, 11:14 p.m.