expression_data <- as.data.frame(matrix(1:20, nrow = 5, ncol = 4)) colnames(expression_data) <- paste0("sample", 1:4) rownames(expression_data) <- paste0("variable", 1:5) sample_info <- data.frame( sample_id = colnames(expression_data), injection.order = 1:4, class = "QC", group = "case" ) variable_info <- data.frame( variable_id = rownames(expression_data), mz = 1:5, rt = 2:6 ) object <- create_mass_dataset( expression_data = expression_data, sample_info = sample_info, variable_info = variable_info ) test_that(desc = "slice", code = { ###expression_data object1 <- activate_mass_dataset(object, what = "expression_data") object1 <- slice(.data = object1, 1) result1 <- check_mass_dataset( expression_data = object1@expression_data, sample_info = object1@sample_info, variable_info = object1@variable_info, sample_info_note = object1@sample_info_note, variable_info_note = object1@variable_info_note ) testthat::expect_equal(object = result1, "all good.") ###expression_data2 object1 <- activate_mass_dataset(object, what = "expression_data") object1 <- slice(.data = object1, n()) result1 <- check_mass_dataset( expression_data = object1@expression_data, sample_info = object1@sample_info, variable_info = object1@variable_info, sample_info_note = object1@sample_info_note, variable_info_note = object1@variable_info_note ) testthat::expect_equal(object = result1, "all good.") ###expression_data3 object1 <- activate_mass_dataset(object, what = "expression_data") object1 <- slice(.data = object1, 2:n()) result1 <- check_mass_dataset( expression_data = object1@expression_data, sample_info = object1@sample_info, variable_info = object1@variable_info, sample_info_note = object1@sample_info_note, variable_info_note = object1@variable_info_note ) testthat::expect_equal(object = result1, "all good.") ###expression_data4 object1 <- activate_mass_dataset(object, what = "expression_data") object1 <- slice(.data = object1, -c(1:2)) result1 <- check_mass_dataset( expression_data = object1@expression_data, sample_info = object1@sample_info, variable_info = object1@variable_info, sample_info_note = object1@sample_info_note, variable_info_note = object1@variable_info_note ) testthat::expect_equal(object = result1, "all good.") ###sample_info object2 <- activate_mass_dataset(object, what = "sample_info") object2 <- slice(.data = object2, 1) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###sample_info2 object2 <- activate_mass_dataset(object, what = "sample_info") object2 <- slice(.data = object2, n()) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###sample_info3 object2 <- activate_mass_dataset(object, what = "sample_info") object2 <- slice(.data = object2, 2:n()) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###sample_info4 object2 <- activate_mass_dataset(object, what = "sample_info") object2 <- slice(.data = object2, -c(1:2)) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###variable_info object2 <- activate_mass_dataset(object, what = "variable_info") object2 <- slice(.data = object2, 1) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###variable_info2 object2 <- activate_mass_dataset(object, what = "variable_info") object2 <- slice(.data = object2, n()) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###variable_info3 object2 <- activate_mass_dataset(object, what = "variable_info") object2 <- slice(.data = object2, 2:n()) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###variable_info4 object2 <- activate_mass_dataset(object, what = "variable_info") object2 <- slice(.data = object2, -c(1:2)) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") }) test_that(desc = "slice_head", code = { ###expression_data object1 <- activate_mass_dataset(object, what = "expression_data") object1 <- slice_head(.data = object1, n = 2) result1 <- check_mass_dataset( expression_data = object1@expression_data, sample_info = object1@sample_info, variable_info = object1@variable_info, sample_info_note = object1@sample_info_note, variable_info_note = object1@variable_info_note ) testthat::expect_equal(object = result1, "all good.") ###sample_info object2 <- activate_mass_dataset(object, what = "sample_info") object2 <- slice_head(.data = object2, n = 3) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###variable_info object2 <- activate_mass_dataset(object, what = "variable_info") object2 <- slice_head(.data = object2, n = 2) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") }) test_that(desc = "slice_tail", code = { ###expression_data object1 <- activate_mass_dataset(object, what = "expression_data") object1 <- slice_tail(.data = object1, n = 2) result1 <- check_mass_dataset( expression_data = object1@expression_data, sample_info = object1@sample_info, variable_info = object1@variable_info, sample_info_note = object1@sample_info_note, variable_info_note = object1@variable_info_note ) testthat::expect_equal(object = result1, "all good.") ###sample_info object2 <- activate_mass_dataset(object, what = "sample_info") object2 <- slice_tail(.data = object2, n = 3) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###variable_info object2 <- activate_mass_dataset(object, what = "variable_info") object2 <- slice_tail(.data = object2, n = 2) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") }) test_that(desc = "slice_sample", code = { ###expression_data object1 <- activate_mass_dataset(object, what = "expression_data") object1 <- slice_sample(.data = object1, n = 2) result1 <- check_mass_dataset( expression_data = object1@expression_data, sample_info = object1@sample_info, variable_info = object1@variable_info, sample_info_note = object1@sample_info_note, variable_info_note = object1@variable_info_note ) testthat::expect_equal(object = result1, "all good.") ###sample_info object2 <- activate_mass_dataset(object, what = "sample_info") object2 <- slice_sample(.data = object2, n = 3) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") ###variable_info object2 <- activate_mass_dataset(object, what = "variable_info") object2 <- slice_sample(.data = object2, n = 2) result2 <- check_mass_dataset( expression_data = object2@expression_data, sample_info = object2@sample_info, variable_info = object2@variable_info, sample_info_note = object2@sample_info_note, variable_info_note = object2@variable_info_note ) testthat::expect_equal(object = result2, "all good.") })