Make tar_visnetwork() widget bigger

[pvtodorov]

Hi, I am working in a jupyter notebook using IRKernel. I normally use options(repr.plot.width=15, repr.plot.height=15) to set the rendered size of ggplot2 outputs but this does not work for the HTML widget output by tar_visnetwork() and I can't seem to figure out the right params to pass to change its size. Is there a way to do it?

[wlandau]

You could use visOptions() in visNetwork directly:

library(targets)
library(visNetwork)
tar_visnetwork() |>
  visOptions(width = "800px", height = "800px")

[mattwarkentin]

What timing. I was literally wondering about sizing the network, but @pvtodorov beat me to it.

I am wondering if there is a way to make the network flip to "horizontal"? I have a very "tall" pipeline at the moment, and it might be more aesthetic and easier to view the pipeline in its entirety if the pipeline was oriented horizontal such that progress through the pipeline is from top to bottom, rather than left to right. This would look better on a standard widescreen computer monitor, I think. Thoughts, @wlandau?

See example:

[wlandau]

Yeah, you can try visNetwork::visHierarchicalLayout(targets::tar_visnetwork(), direction = "UD"). The internal code that generates the starting graph is here:

targets/R/class_visnetwork.R

Lines 100 to 137 in ae3dd34

	out <- visNetwork::visNetwork(nodes = vertices, edges = edges, main = "")
	out <- visNetwork::visNodes(out, physics = FALSE)
	out <- visNetwork::visEdges(
	out,
	smooth = list(type = "cubicBezier", forceDirection = "horizontal")
	)
	out <- visNetwork::visOptions(
	graph = out,
	collapse = TRUE,
	highlightNearest = list(
	enabled = TRUE,
	algorithm = "hierarchical",
	degree = list(
	from = min(self$degree_from, nrow(vertices)),
	to = min(self$degree_to, nrow(vertices))
	)
	)
	)
	out <- visNetwork::visLegend(
	graph = out,
	useGroups = FALSE,
	addNodes = self$legend,
	ncol = 1L,
	position = "right"
	)
	out <- visNetwork::visPhysics(
	graph = out,
	stabilization = FALSE
	)
	out <- visNetwork::visInteraction(
	graph = out,
	zoomSpeed = self$zoom_speed
	)
	visNetwork::visHierarchicalLayout(
	graph = out,
	direction = "LR",
	levelSeparation = self$level_separation
	)