Bug fix: allow empty Vlines and Hlines as ggplot2 does - #2252

# prep data
data <- data.table::data.table(gapminder::gapminder)
# add year of interest for vertical lines
data[year == 2002, year_of_interest := "yoi"]

# normal vertical line set manually at year 2000
ggplot2::ggplot(data, ggplot2::aes(x = year, y = lifeExp, colour = country)) +
    ggplot2::geom_line() +
    ggplot2::geom_vline(xintercept = 2000, colour = "red") +
    ggplot2::theme(legend.position = "none")

# vertical line by feeding data to it; this allows for programmatically setting many lines at different years
p <- ggplot2::ggplot(data, ggplot2::aes(x = year, y = lifeExp, colour = country)) +
    ggplot2::geom_line() +
    ggplot2::geom_vline(
        ggplot2::aes(xintercept = year),
        data = data[year_of_interest == "yoi", ],
        colour = "yellow",
        alpha = 0.75,
        linewidth = 1.25,
        linetype = "dashed"
    ) +
    ggplot2::theme(legend.position = "none")


# ggplot2 accepts that no lines are found plot is created and no error is thrown
p <- ggplot2::ggplot(data, ggplot2::aes(x = year, y = lifeExp, colour = country)) +
    ggplot2::geom_line() +
    ggplot2::geom_vline(
        ggplot2::aes(xintercept = year),
        data = data[year_of_interest == "some_not_found", ],
        colour = "yellow",
        alpha = 0.75,
        linewidth = 1.25,
        linetype = "dashed"
    ) +
    ggplot2::theme(legend.position = "none")

print(p)

# if we pass to plotly, it throws an error
plotly::ggplotly(p)