R/process_state.R

Defines functions get_global_attribute get_global_attribute_index add_global_attribute get_attribute_container get_attribute_container_index add_attribute_container get_network get_network_index add_network get_process_state_name create_process_state

Documented in add_attribute_container add_global_attribute add_network create_process_state get_attribute_container get_attribute_container_index get_global_attribute get_global_attribute_index get_network get_network_index get_process_state_name

create_process_state <- function(name = "default"){
	.Call( "create_process_state", name, PACKAGE = "NetSim" )
}

get_process_state_name <- function(processState){
	.Call("get_process_state_name", processState, PACKAGE = "NetSim")
}

add_network <- function(processState, network, name = "defaultNetwork"){
	.Call("add_network", processState, network, name, PACKAGE = "NetSim")
}

get_network_index <- function(processState, name = "defaultNetwork"){
	.Call("get_network_index", processState, name, PACKAGE = "NetSim")
} 

get_network <- function(processState, name = "defaultNetwork"){
	.Call("get_network", processState, name, PACKAGE = "NetSim")
} 

add_attribute_container <- function(processState, attributeContainer, name = "defaultAttribute"){
	.Call("add_attribute_container", processState, attributeContainer, name, PACKAGE = "NetSim")
}

get_attribute_container_index <- function(processState, name = "defaultAttribute"){
	.Call("get_attribute_container_index", processState, name, PACKAGE = "NetSim")
} 

get_attribute_container <- function(processState, name = "defaultAttribute"){
	.Call("get_attribute_container", processState, name, PACKAGE = "NetSim")
} 

#RcppExport SEXP add_global_attribute(SEXP processStateManager, SEXP value, SEXP name);
add_global_attribute <- function(processState, value = 0, name = "defaultGlobalAttribute"){
	.Call("add_global_attribute", processState, value, name, PACKAGE = "NetSim")
}

#RcppExport SEXP get_global_attribute_index(SEXP processStateManager, SEXP name);
get_global_attribute_index <- function(processState, name = "defaultGlobalAttribute"){
	.Call("get_global_attribute_index", processState, name, PACKAGE = "NetSim")
}

#RcppExport SEXP get_global_attribute(SEXP processStateManager, SEXP name);
get_global_attribute <- function(processState, name = "defaultGlobalAttribute"){
	.Call("get_global_attribute", processState, name, PACKAGE = "NetSim")
}

# a proper print function should print all objects mapped by the process state 
#print.processState <- function(x){
#}

Try the NetSim package in your browser

Any scripts or data that you put into this service are public.

NetSim documentation built on May 29, 2017, 6:41 p.m.