In MassDynamics/MassExpression: MassExpression

print(params)
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE, 
                      fig.path = params$output_figure, dev = "svg")

library(dplyr)
library(stringr)
library(MassExpression)
library(plotly)

IntensityExperiment <- params$listInt$IntensityExperiment

p <- plot_consistent_proteins_by_replicate(IntensityExperiment, 
                                           assayName = "raw", 
                                           condition_colname = "Condition")

ggplotly(p, tooltip = c("y")) %>% plotly::config(displayModeBar = T, 
                                                  modeBarButtons = list(list('toImage')),
                                                  displaylogo = F)