Code not self-contained when piping into esquisser()

[fkohrt]

When piping e.g. the Titanic dataset as.data.frame() into esquisse::esquisser() and then building some graph (x = Sex, y = Freq, fill = Class), the returned code snipped is not self-contained:

{magrittr} pipe

input

Titanic %>%
  as.data.frame() %>%
  esquisse::esquisser()

output

ggplot(.) +
  aes(x = Sex, y = Freq, fill = Class) +
  geom_col() +
  scale_fill_hue(direction = 1) +
  theme_minimal()

native pipe

input

Titanic |>
  as.data.frame() |>
  esquisse::esquisser()

output

ggplot(`as.data.frame(Titanic)`) +
  aes(x = Sex, y = Freq, fill = Class) +
  geom_col() +
  scale_fill_hue(direction = 1) +
  theme_minimal()