tests/testthat/test_plot_position_frequency.R

In HaDeX: Analysis and Visualisation of Hydrogen/Deuterium Exchange Mass Spectrometry Data

library(testthat)
library(HaDeX)
library(vdiffr)

context("plot_position_frequency in test")

# dat <- read_hdx(system.file(package = "HaDeX", "HaDeX/data/KD_180110_CD160_HVEM.csv"))
# 
# position_frequency_plot_1 <- plot_position_frequency(dat, chosen_state = "CD160_HVEM")
# 
# vdiffr::expect_doppelganger("Position Frequency Plot 1", position_frequency_plot_1)