acontext("aes(tooltip)")

data(WorldBank, package = "animint2")
not.na <- subset(WorldBank, !(is.na(life.expectancy) | is.na(fertility.rate)))
country.counts <- table(not.na$year)
years <- data.frame(year=as.numeric(names(country.counts)),
                    countries=as.numeric(country.counts))
viz <- animint(
  scatter=ggplot()+
    geom_point(aes(
      life.expectancy, fertility.rate,
      colour=region, size=population,
      tooltip=paste(country, "population", population), id = country,
      key=country), # key aesthetic for animated transitions!
      clickSelects="country",
      showSelected="year",
      data=WorldBank)+
    geom_text(aes(
      life.expectancy, fertility.rate, label=country, tooltip = country, id=paste0("text_",country),
      key=country), #also use key here!
      showSelected=c("country", "year"),
      data=WorldBank)+
    scale_size_animint(breaks=10^(5:9))+
    geom_rect(aes(
      xmin=45, xmax=70,
      ymin=8, ymax=10,
      tooltip=paste(countries, "not NA in", year),
      key=year),
      alpha=0.5,
      showSelected="year",
      data=years, color="yellow")+
    geom_rect(aes(
      xmin=35, xmax=40,
      ymin=2, ymax=2.5,
      key=year),
      showSelected="year",
      data=years, color="orange"),
  bar=ggplot()+
    theme_animint(height=2400)+
    geom_bar(aes(
      country, life.expectancy, fill=region, key=year),
      showSelected="year", clickSelects="country",
      data=WorldBank, stat="identity", position="identity")+
    coord_flip(),
  ts=ggplot()+
    make_tallrect(WorldBank, "year")+
    geom_line(aes(
      year, life.expectancy, group=country, colour=region),
      clickSelects="country",
      data=WorldBank, size=4, alpha=3/5),
  duration=list(year=1000),
  first=list(year=1975, country="United States"),
  title="World Bank data (single selection)")

info <- animint2HTML(viz)
tooltip.xpath <- '//div[@class="animint-tooltip"]'
test_that("animint-tooltip div exists with correct initial state", {
  tooltip_div <- getNodeSet(info$html, tooltip.xpath)
  expect_equal(length(tooltip_div), 1)
  # Check initial opacity is 0
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_identical(opacity, "0")
})

test_that("tooltip shows correct content for rect", {
  mouseMoved('#plot_scatter rect.geom')
  tooltip_div <- getNodeSet(getHTML(), tooltip.xpath)[[1]]
  tooltip_text <- xmlValue(tooltip_div)
  # Verify tooltip contains expected content
  expect_match(tooltip_text, "187 not NA in 1975")
  # Verify that tooltip opacity is now 1 (tooltip shown)
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_gt(as.numeric(opacity), 0)
  # Verify that tooltip hides correctly after mouseout
  mouseMoved()
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_identical(opacity, "0")
})

test_that("tooltip shows correct content for point", {
  # Get circle position on viewport
  mouseMoved('circle#China')
  tooltip_div <- getNodeSet(getHTML(), tooltip.xpath)[[1]]
  tooltip_text <- xmlValue(tooltip_div)
  # Verify tooltip contains expected content
  expect_match(tooltip_text, "China population 916395000")
  # Verify that tooltip opacity is now 1 (tooltip shown)
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_gt(as.numeric(opacity), 0)
  # Verify that tooltip hides correctly after mouseout
  mouseMoved()
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_identical(opacity, "0")
})

test_that("tooltip shows correct content for geom_text", {
  clickID('China') # Select the circle corresponding to China for highlighting text
  Sys.sleep(0.2)
  # Get text position on viewport
  mouseMoved('text#text_China')
  tooltip_div <- getNodeSet(getHTML(), tooltip.xpath)[[1]]
  tooltip_text <- xmlValue(tooltip_div) 
  # Verify tooltip contains expected content
  expect_match(tooltip_text, "China")
  # Verify that tooltip opacity is now 1 (tooltip shown)
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_gt(as.numeric(opacity), 0)
  # Verify that tooltip hides correctly after mouseout
  mouseMoved()
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_identical(opacity, "0")
})

test_that("year selector is rendered", {
  node_list <- getNodeSet(info$html, "//tr[@class='year_variable_selector_widget']")
  expect_equal(length(node_list), 1)
})

# Test with href
WorldBank1975 <- WorldBank[WorldBank$year == 1975, ]
NotNA1975 <- subset(not.na, year==1975)
ex_plot <- ggplot() +
  geom_point(aes(fertility.rate, life.expectancy, color = region,
                 tooltip = country, href = "https://github.com"),
             data = WorldBank1975)
viz <- list(ex = ex_plot)
info <- animint2HTML(viz)

test_that("tooltip div exists with href elements", {
  tooltip_div <- getNodeSet(info$html, tooltip.xpath)
  expect_equal(length(tooltip_div), 1)
  # Opacity is initially 0 when tooltip is hidden
  opacity <- getStyleValue(info$html, tooltip.xpath, "opacity")
  expect_identical(opacity, "0")
})

# testing newline character in tooltip
newline.data <- data.frame(
  i=1:3,
  x = c("one line", "two\nlines", "three\nlines\nhere"))
viz <- list(
  p1 = ggplot(newline.data) +
    geom_point(aes(
      x, "0", tooltip = x,
      id = paste0("blackpoint",i)),
      size = 5,
      clickSelects="x")+
    geom_point(aes(
      x, x, tooltip = x, color = x,
      id = paste0("colorpoint",i)),
      size = 5,
      clickSelects="x"))
info <- animint2HTML(viz)
tooltip.xpath <- '//div[@class="animint-tooltip"]'
get_tooltip_html <- function(){
  tooltip_div <- getNodeSet(getHTML(), tooltip.xpath)[[1]]
  trimws(paste(sapply(xmlChildren(tooltip_div), saveXML), collapse = ""))
}
test_that("tooltips support newline character", {
  mouseMoved("circle#colorpoint2")
  tooltip_inner <- get_tooltip_html()
  expect_equal(tooltip_inner, "two<br/>lines")
  mouseMoved()
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_identical(opacity, "0")
})

test_that("tooltip disappears after click to de-select", {
  mouseMoved("circle#colorpoint3")
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_gt(as.numeric(opacity), 0)
  tooltip_inner <- get_tooltip_html()
  expect_equal(tooltip_inner, "three<br/>lines<br/>here")
  clickID("colorpoint3")
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_identical(opacity, "0")
})

test_that("tooltip stays visible after click to select", {
  mouseMoved("#blackpoint3")
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_gt(as.numeric(opacity), 0)
  tooltip_inner <- get_tooltip_html()
  expect_equal(tooltip_inner, "three<br/>lines<br/>here")
  clickID("blackpoint3")
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_gt(as.numeric(opacity), 0)
})

test_that("tooltip disappears after click black", {
  mouseMoved("#blackpoint3")
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_gt(as.numeric(opacity), 0)
  tooltip_inner <- get_tooltip_html()
  expect_equal(tooltip_inner, "three<br/>lines<br/>here")
  clickID("blackpoint3")
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_identical(opacity, "0")
})

test_that("tooltip re-appears after moving in black", {
  mouseMoved("#blackpoint3")
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_gt(as.numeric(opacity), 0)
  tooltip_inner <- get_tooltip_html()
  expect_equal(tooltip_inner, "three<br/>lines<br/>here")
  clickID("blackpoint3")
  opacity <- getStyleValue(getHTML(), tooltip.xpath, "opacity")
  expect_gt(as.numeric(opacity), 0)
})

mouseMoved() # otherwise we get an off-by-one error in test-renderer2-param-off.R:203:3'): rect default is black/transparent stroke