This function provides a basic layout for plotly graphs with a time sliders. It can be used to display MGX meshes of a time serie.

plotlyMesh_all(meshExample, graphExample, meshColors, display,
  defaultColor = list("#CCCCFF", 0.2), heatmapParam)

Arguments

meshExample

One or several meshes.

graphExample

One or several cell graphs.

meshColors

Colors for each mesh.

display

Display type. 'labels', 'heatmap' or 'none'.

defaultColor

Uniform mesh color (HEX color and alpha value between 0 and 1). Needed only if 'none' display type is chosen.

heatmapParam

Variable (from cell graph) to display if 'heatmap' display type is selected.

Value

plotly graph

Examples

# NOT RUN {
mesh.all <- readRDS(system.file("extdata",
 "mgx/2013-02-12_LTi6B_dis_A_all_normalMesh_full.rds",
  package = "cellviz3d"))
cellgraph.all <- readRDS(system.file("extdata",
 "mgx/2013-02-12_LTi6B_dis_A_all_cellGraph_full.rds",
  package = "cellviz3d"))

  # Heatmap of cell area for all timepoints of the dataset
  plotlyMesh_all <- function(meshExample = mesh.all,
   graphExample = cellgraph.all,
    meshColors = list(NULL, NULL, NULL, NULL, NULL),
    display = 'heatmap',
    defaultColor = list("#CCCCFF", 0.2),
    heatmapParam = "GeometryArea")

# }