create_ejEvent: Create an event

In repijson: Tools for Handling EpiJSON (Epidemiology Data) Files

Description

This function defines events output ejEvent

Usage

create_ejEvent(id = NA, name, date = NULL, location = NULL,
  attributes = list())

Arguments

id	identifier for the event
name	name of the event, usually a column name
date	date (or timestamp) for event
location	location for event
attributes	list of attributes associated with this event

Value

an ejEvent object

Examples

#' #generate a polygon
library(sp)
polyPoints <- matrix(c(526870,181390,526817,181447,526880,181467,
		526885,181447,526909,181425,526870,181390),ncol=2,byrow=TRUE)
demoPolygon <- sp::SpatialPolygons(list(sp::Polygons(list(sp::Polygon(polyPoints)),"1")),
		proj4string=sp::CRS("+init=epsg:27700"))


#Create an attribute
integerAttribute <- create_ejAttribute(name="Days since last accident", type="integer",
  value=integer(2))
logicalAttribute <- create_ejAttribute(name="Customer satisfied", type="boolean",
  value=TRUE)

#create an event
event <- create_ejEvent(id=1, name="A test Event", date=Sys.time(),
		location=demoPolygon, attributes=list(integerAttribute, logicalAttribute))

repijson documentation built on May 29, 2017, 2:12 p.m.