get_labs <- function(x) x$labels
if ("get_labs" %in% getNamespaceExports("ggplot2")) {
  get_labs <- ggplot2::get_labs
}

test_that("output of autoplot.apd_pca is correct when no options are provided", {
  ad <- apd_pca(mtcars)
  ad_plot <- ggplot2::autoplot(ad)

  pctls <- ad$pctls |>
    tidyr::pivot_longer(-percentile, names_to = "component", values_to = "value")

  expect_equal(ad_plot$data, pctls)
  labs <- get_labs(ad_plot)
  expect_equal(labs$x, "abs(value)")
  expect_equal(labs$y, "percentile")
})

test_that("output of autoplot.apd_pca is correct when options=matches are provided", {
  ad <- apd_pca(mtcars)
  ad_plot <- ggplot2::autoplot(ad, matches("PC[1-5]"))

  pctls <- ad$pctls |>
    select(matches("PC[1-5]"), percentile) |>
    tidyr::pivot_longer(-percentile, names_to = "component", values_to = "value")

  expect_equal(ad_plot$data, pctls)
  labs <- get_labs(ad_plot)
  expect_equal(labs$x, "abs(value)")
  expect_equal(labs$y, "percentile")
})

test_that("output of autoplot.apd_pca is correct when options=distance are provided", {
  ad <- apd_pca(mtcars)
  ad_plot <- ggplot2::autoplot(ad, "distance")

  pctls <- ad$pctls |>
    select(matches("distance"), percentile) |>
    tidyr::pivot_longer(-percentile, names_to = "component", values_to = "value")

  expect_equal(ad_plot$data, pctls)
  labs <- get_labs(ad_plot)
  expect_equal(labs$x, "distance to center")
  expect_equal(labs$y, "percentile")
})

test_that("autoplot.apd_pca errors when selectors match no columns", {
  ad <- apd_pca(mtcars)

  expect_error(
    ggplot2::autoplot(ad, matches("DOES_NOT_EXIST")),
    "No columns were selected for plotting"
  )
})