## ----setup, echo=FALSE, include=FALSE-----------------------------------------
library(knitr)
library(tidygate)
library(dplyr)
library(ggplot2)
library(stringr)
library(readr)

knitr::opts_chunk$set(cache = TRUE, warning = FALSE, message = FALSE, cache.lazy = FALSE)

## ----eval=FALSE---------------------------------------------------------------
#  # From Github
#  devtools::install_github("stemangiola/tidygate")
#  
#  # From CRAN
#  install.package("tidygate")

## -----------------------------------------------------------------------------
library(dplyr)
library(ggplot2)
library(stringr)
library(readr)
library(tidygate)

mtcars |>
  head()

## ----eval=FALSE---------------------------------------------------------------
#  mtcars_gated <-
#    mtcars |>
#    mutate(gated = gate(x = mpg, y = wt, colour = disp))

## ----echo=FALSE---------------------------------------------------------------
load("../data/demo_gate_data.rda")

# Load pre-recorded brush path from data for example
tidygate_env <<- rlang::env()
tidygate_env$gates <- demo_gate_data

mtcars_gated <- 
  mtcars |>
  mutate(gated = gate(x = mpg, y = wt, programmatic_gates = tidygate_env$gates))

## -----------------------------------------------------------------------------
# Select points within any gate
mtcars_gated |> 
  filter(!is.na(gated))

# Select points within gate 2
mtcars_gated |>
  filter(str_detect(gated, "2"))

## -----------------------------------------------------------------------------
# Inspect previously drawn gates
tidygate_env$gates |>
  head()

## ----eval=FALSE---------------------------------------------------------------
#  # Save if needed
#  tidygate_env$gates |>
#    write_rds("important_gates.rds")

## ----eval=FALSE---------------------------------------------------------------
#  important_gates <-
#    read_rds("important_gates.rds")
#  
#  mtcars |>
#    mutate(gated = gate(x = mpg, y = wt, programmatic_gates = important_gates)) |>
#    filter(!is.na(gated))

## ----echo=FALSE---------------------------------------------------------------
mtcars |>
  mutate(gated = gate(x = mpg, y = wt, programmatic_gates = tidygate_env$gates)) |>
  filter(!is.na(gated))

## -----------------------------------------------------------------------------
sessionInfo()