test_that("output_table_interactive() avoids min/max warnings when all values are NA", {
  df <- data.frame(
    timepoint = seq(as.Date("2022-01-01"), as.Date("2022-01-10"), by = "days"),
    item = "na",
    value = rep(NA, 10),
    stringsAsFactors = FALSE
  )

  inputspec <- inputspec(
    timepoint_col = "timepoint",
    item_cols = "item",
    value_col = "value"
  )

  prepared_df <- prepare_df(df, inputspec = inputspec)

  expect_no_warning(output_table_interactive(
    prepared_df = prepared_df,
    inputspec = inputspec,
    plot_value_type = "value"
  ))
})

test_that("output_table_interactive() avoids min/max warnings when all deltas are NA", {
  df <- data.frame(
    timepoint = seq(as.Date("2022-01-01"), as.Date("2022-01-10"), by = "days"),
    item = "sparse",
    value = c(rep(NA, 5), 1, rep(NA, 4)),
    stringsAsFactors = FALSE
  )

  inputspec <- inputspec(
    timepoint_col = "timepoint",
    item_cols = "item",
    value_col = "value"
  )

  prepared_df <- prepare_df(df, inputspec = inputspec)

  expect_no_warning(output_table_interactive(
    prepared_df = prepared_df,
    inputspec = inputspec,
    plot_value_type = "delta"
  ))
})