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)
| 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. |
plotly graph
# 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")
# }