R/ftree2widget.R

In jto888/FaultTree.widget: Widget Code for 'FaultTree'

## ftree2widget.R
## handle data with optional SVG parameters and prepare as list for htmlwidgets::createWidget function call
ftree2widget<-function(DF, height = NULL, width = NULL)  {
	if(!test.ftree(DF)) stop("first argument must be a fault tree")	

## Convert json formatted data to list format (so it can be converted back by htmlwidgets)
 root1 <- jsonlite::fromJSON(hierarchyDF2json(DF,data.col=c(1:14,16:17)), simplifyDataFrame = FALSE)
 root2 <- jsonlite::fromJSON(hierarchyDF2json(DF,data.col=c(1:15)), simplifyDataFrame = FALSE)
# * checking dependencies in R code ... WARNING
# '::' or ':::' import not declared from: 'jsonlite'
## root <- fromJSON(hierarchyDF2json(DF,data.col=c(1,5:10,13:17)), simplifyDataFrame = FALSE)
#* checking R code for possible problems ... NOTE
# ftree2widget: no visible global function definition for 'fromJSON'
## removed NOTE and WARNING from check --as-cran by importing jsonlite in DESCRIPTION (although it is 
## imported by htmlwidgets) and adding import(jsonlite,fromJSON) to NAMESPACE
## without re-importing jsonlite in DESCRIPTION the import in NAMESPACE  creates an ERROR

# ftree.make will force the name convention as "top of tree" if none provided
if(DF$Name[1]!="") {
		# create widget1
		htmlwidgets::createWidget(
			name = "ftree_widget1",
			x = list(root=root1),
			width = width,
			height = height,
			htmlwidgets::sizingPolicy(padding = 10, browser.fill = TRUE),
			package = "FaultTree.widget"
		)
	}else{
		# create widget2
		htmlwidgets::createWidget(
			name = "ftree_widget2",
			x = list(root=root2),
			width = width,
			height = height,
			htmlwidgets::sizingPolicy(padding = 10, browser.fill = TRUE),
			package = "FaultTree.widget"
		)
	}	
}