johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 10:47:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

plots: Make chromosome plot static

Browse source
This commit is contained in:
Elias Projahn 2023-11-11 15:50:37 +01:00
parent 57a0a8d0ab
commit a3cc6a8796
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/plots.R
View file

@ -587,7 +587,10 @@ plot_chromosomes <- function(ranking) {
row_figs <- c(row_figs, list(htmltools::div( row_figs <- c(row_figs, list(htmltools::div(
style = glue::glue("width: {cell_width}%; height: {row_height}%"), style = glue::glue("width: {cell_width}%; height: {row_height}%"),
plotly::plot_ly() |> plotly::plot_ly(
width = 150,
height = 150
) |>
plotly::add_lines( plotly::add_lines(
x = positions, x = positions,
y = scores, y = scores,
@ -632,6 +635,9 @@ plot_chromosomes <- function(ranking) {
r = 0, r = 0,
t = 0 t = 0
) )
) |>
plotly::config(
staticPlot = TRUE
) )
))) )))