Проверить, является ли объект плотным

#r #shiny #plotly #markdown #r-plotly

#r #блестящий #плотный #уценка #r-плотный

это может быть довольно прямой вопрос.

Я хочу проверить, является ли объект плотным объектом или нет. В идеале я бы тестировал ggplotly() объект.

Есть ли какой-нибудь простой способ сделать это? Кажется, я не могу найти функцию, подобную;

 > x <- ggplot()
> 
> is.ggplot(x)
[1] TRUE

Если бы кто-нибудь мог указать мне правильное направление, это было бы очень ценно!

 class(x)

ВОЗВРАТ

 [1] "plotly"     "htmlwidget"

где x создается с помощью ggplotly .

Итак, как насчет чего-то вроде:

 "plotly" %in% class(x)
[1] TRUE

Вы могли бы превратить его в функцию is.plotly :

 is.plotly <- function(x) {
  "plotly" %in% class(x)
}