Nathan Bijnens nathan-gs

## spitsgids-transform.sql
select
time(strftime('%H', ts) || ':' || substr((cast(strftime('%M', ts) / 15 as int) * 15) || '0', 1, 2)) as [time],
strftime('%w', ts) as [day_of_week],
substr([post.occupancy], 27) as [label],
 *
from t1;

## spitsgids-read.r
library(jsonlite)
library(plyr)

con <- url("http://gtfs.irail.be/nmbs/feedback/occupancy-until-20161029.newlinedelimitedjsonobjects")
mydata <- flatten(jsonlite::stream_in(con), recursive=TRUE)
data.set = mydata

maml.mapOutputPort("data.set")

## solution.php
<?php
session_set_cookie_params(0, '/', '.example.org');
session_start();

## example-schema.yml
Person:
  columns:
    name: string(63)

Professor:
  inheritance:
    extends: Person
    type: column_aggregation
    keyField: type
    keyValue: professor
	select
	time(strftime('%H', ts) \|\| ':' \|\| substr((cast(strftime('%M', ts) / 15 as int) * 15) \|\| '0', 1, 2)) as [time],
	strftime('%w', ts) as [day_of_week],
	substr([post.occupancy], 27) as [label],
	*
	from t1;
	library(jsonlite)
	library(plyr)

	con <- url("http://gtfs.irail.be/nmbs/feedback/occupancy-until-20161029.newlinedelimitedjsonobjects")
	mydata <- flatten(jsonlite::stream_in(con), recursive=TRUE)
	data.set = mydata

	maml.mapOutputPort("data.set")
	<?php
	session_set_cookie_params(0, '/', '.example.org');
	session_start();
	Person:
	columns:
	name: string(63)

	Professor:
	inheritance:
	extends: Person
	type: column_aggregation
	keyField: type
	keyValue: professor