README.Rmd

---
title: "ggspell"
output: github_document
---

```{r, include = FALSE, cache = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  out.width = "100%",
  cache = TRUE
)
asciicast::init_knitr_engine(
  echo = TRUE,
  echo_input = FALSE,
  startup = quote({
    library(ggspell)
    set.seed(1) })
)
```

Spell check text and ggplot objects with the LanguageTool API.

Install like this:

```{r eval=FALSE}
remotes::install_github("nicucalcea/ggspell")
```

Use like this for text.

```{asciicast}
# Check text
ggspell::ggspell("This is a error.")
```

Or check an entire plot.

```{asciicast}
# Check plot
starwars_plot <- dplyr::starwars |>
  head(10) |>
  ggplot2::ggplot(ggplot2::aes(x = height, y = name)) +
  ggplot2::geom_col() +
  ggplot2::geom_text(x = 168.7, y = 10, label = "Firstannotation") +
  ggplot2::labs(title = "This an title mispeling some words",
       subtitle = "The subtitle has also erors ,like")

ggspell::ggspell(starwars_plot)
```