троичный участок Ггтерна не работает в блестящем

Question

Я хочу использовать вывод ggtern() в блестящем приложении.Однако, похоже, что он не работает из-за некоторых ограничений.

Вот как это должно выглядеть:

Это фактический вывод блеска:

Смотрите здесь воспроизводимый пример:

library(shiny)
library(ggtern)

ui <- fluidPage(
        mainPanel(
           plotOutput("ggtern")
        )
)
server <- function(input, output) {
    output$ggtern <- renderPlot({
        ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point()
    })
}
shinyApp(ui = ui, server = server)

Я что-то пропускаю?

Answer 1

Поместите функцию графика в команду print:

 output$ggtern <- renderPlot({
        print(ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point())
    })