Highchart不是以闪亮模式渲染，而是以交互模式渲染

我正在尝试运行以下闪亮的应用程序，它由两个

selectInput

和一个

highChartOutput

组成：

library(shiny)
library(shinythemes)
library(purrr)
library(highcharter)

ui <- fluidPage(
  titlePanel(title = "Highcharter"),
  theme = shinytheme("flatly"),
  sidebarLayout(
   sidebarPanel(
      selectInput(inputId = "xvar", label = "Select variable for X axis",
                  choices = names(iris)[-5], multiple = FALSE),
      br(),
      selectInput(inputId = "yvar", label = "Select variable for Y axis",
                  choices = names(iris)[-5], multiple = FALSE)
    ),
   mainPanel(
      highchartOutput(outputId = "hc1")
    )
  )
)

server <- function(input, output) {

  dat_setosa <- eventReactive(c(input$xvar, input$yvar),{
      split(iris[iris$Species == "setosa", c(input$xvar, input$yvar), drop = 
FALSE], seq_len(nrow(iris[iris$Species == "setosa", ]))) %>% 
      map(~as.numeric(.x)) %>% 
      set_names(NULL)
  })

  dat_virginica <- eventReactive(c(input$xvar, input$yvar),{
      split(iris[iris$Species == "virginica", c(input$xvar, input$yvar), 
drop = FALSE], seq_len(nrow(iris[iris$Species == "virginica", ]))) %>% 
      map(~as.numeric(.x)) %>% 
      set_names(NULL)
  })

  dat_versicolor <- eventReactive(c(input$xvar, input$yvar),{
      split(iris[iris$Species == "versicolor", c(input$xvar, input$yvar), 
drop = FALSE], seq_len(nrow(iris[iris$Species == "versicolor", ]))) %>% 
      map(~as.numeric(.x)) %>% 
      set_names(NULL)
  })

  output$hc1 <- renderHighchart({
    highchart() %>% 
      hc_chart(type = "scatter") %>% 
      hc_series(
        list(
          name = "setosa",
          color = "#01B88A",
          data = dat_setosa
        ),
        list(
          name = "viriginica",
          color = "#374649",
          data = dat_virginica
        ),
        list(
          name = "versicolor",
          color = "#FD625E",
          data = dat_versicolor
        )
      )
  })
}

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（shinythemes）
图书馆（purrr）
图书馆（高级特许）
ui%
设置名称（空）
})
dat_versicolor%
映射（~as.numeric（.x））%>%
设置名称（空）
})
产出$hc1%
hc_图表（type=“scatter”）%>%
hc_系列(
名单(
name=“setosa”，
color=“#01B88A”，
数据=dat_setosa
),
名单(
name=“viriginica”，
color=“#374649”，
数据=弗吉尼亚州数据
),
名单(
name=“versicolor”，
color=“#FD625E”，
数据=dat_versicolor
)
)
})
}
shinyApp（用户界面=用户界面，服务器=服务器）

当我运行此应用程序时，highchart不会呈现。以下是我得到的输出：

如果我通过控制台以交互方式运行类似的highcharter，highchart将在查看器选项卡中正确呈现：

library(purrr)
library(highcharter)

dat_setosa <- split(iris[iris$Species == "setosa", c("Sepal.Length", 
"Sepal.Length"), drop = FALSE], seq_len(nrow(iris[iris$Species == "setosa", 
]))) %>% 
  map(~as.numeric(.x)) %>% 
  set_names(NULL)

dat_virginica <- split(iris[iris$Species == "virginica", c("Sepal.Length", 
"Sepal.Length"), drop = FALSE], seq_len(nrow(iris[iris$Species == 
"virginica", ]))) %>% 
  map(~as.numeric(.x)) %>% 
  set_names(NULL)

dat_versicolor <- split(iris[iris$Species == "versicolor", c("Sepal.Length", 
"Sepal.Length"), drop = FALSE], seq_len(nrow(iris[iris$Species == 
"versicolor", ]))) %>% 
  map(~as.numeric(.x)) %>% 
  set_names(NULL)

highchart() %>% 
  hc_chart(type = "scatter") %>% 
  hc_series(
    list(
      name = "setosa",
      color = "#01B88A",
      data = dat_setosa
    ),
    list(
      name = "viriginica",
      color = "#374649",
      data = dat_virginica
    ),
    list(
      name = "versicolor",
      color = "#FD625E",
      data = dat_versicolor
    )
  )

库（purrr）
图书馆（高级特许）
dat_setosa%
映射（~as.numeric（.x））%>%
设置名称（空）
弗吉尼亚州数据%
映射（~as.numeric（.x））%>%
设置名称（空）
dat_versicolor%
映射（~as.numeric（.x））%>%
设置名称（空）
highchart（）%>%
hc_图表（type=“scatter”）%>%
hc_系列(
名单(
name=“setosa”，
color=“#01B88A”，
数据=dat_setosa
),
名单(
name=“viriginica”，
color=“#374649”，
数据=弗吉尼亚州数据
),
名单(
name=“versicolor”，
color=“#FD625E”，
数据=dat_versicolor
)
)

这是一份报告：

---

在闪亮的应用程序中，我哪里出错了？

反应式是函数，应该在末尾用括号调用

（）

输出$hc1%
hc_图表（type=“scatter”）%>%
hc_系列(
名单(
name=“setosa”，
color=“#01B88A”，
数据=dat_setosa（）
),
名单(
name=“viriginica”，
color=“#374649”，
数据=dat_virginica（）
),
名单(
name=“versicolor”，
color=“#FD625E”，
数据=dat_versicolor（）
)
)
})

---

完成！非常感谢。

output$hc1 <- renderHighchart({
    highchart() %>% 
      hc_chart(type = "scatter") %>% 
      hc_series(
        list(
          name = "setosa",
          color = "#01B88A",
          data = dat_setosa()
        ),
        list(
          name = "viriginica",
          color = "#374649",
          data = dat_virginica()
        ),
        list(
          name = "versicolor",
          color = "#FD625E",
          data = dat_versicolor()
        )
      )
  })