Pārlūkot izejas kodu

no rlang, use base warning

tags/v0.3.0
Garrick Aden-Buie pirms 6 gadiem
vecāks
revīzija
74c4927910
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. +1
    -1
      R/ggplot2.R

+ 1
- 1
R/ggplot2.R Parādīt failu



safely_set_geom <- function(geom, new) { safely_set_geom <- function(geom, new) {
warn <- function(x) { warn <- function(x) {
rlang::warn(x$message)
warning(x$message, call. = TRUE, immediate. = TRUE)
invisible() invisible()
} }
tryCatch( tryCatch(

Notiek ielāde…
Atcelt
Saglabāt