cristian-vargas's questions

我正在尝试利用包hc_chart()函数中提供的加载事件highcharter，以便在图表加载后将 highcharts 对象导出到 SVG，但到目前为止，我的代码无法下载任何内容。通常，如果我对 PNG 或 JPEG 图像感兴趣，我只会使用webshot2::webshot()，但没有对 SVG 的本机支持。我也可以手动点击导出菜单以将图表下载为 SVG，但我生成的图表太多而无法手动下载。下面是我迄今为止的尝试：

library(highcharter)

hchart(
# Default data set included with highcharter
  citytemp_long, 
  type = "line",
  hcaes(x = month, y = temp, group = city)
) |>
  hc_exporting(enabled = TRUE, filename = "example-chart") |>
  hc_chart(
    events = list(
      load = JS(
        "function() {
          setTimeout(function() {
            this.exportChart({ type: 'image/svg+xml' });
          }, 100);
        }"
      )
    )
  )

由于highcharter需要将JS()函数内包装的 JavaScript 传递给 Highcharts API，我查看了一些 JSFiddle 示例，但我找到的每个示例都使用按钮 + eventListener 组合来创建快速导出菜单。提前感谢任何帮助！

我正在使用包在 Shiny 中构建仪表板，并注意到在 中bs4Dash包含小部件时出现了一些奇怪的行为。日历小部件显示在输入文本框上方而不是下方，从而阻止用户更改输入的月份或年份（除非在输入中手动输入）。dateRangeInput()boxSidebar()

infoBox()我在 的第一个实例中设置了一组四个KPI fluidRow()，并且box()包含一个可以使用 的第二个实例中的日期范围输入进行过滤的图fluidRow()。我怀疑这可能是问题的一部分，因为如果我完全删除包含我的信息框的第一个实例，就不会出现奇怪的日历小部件行为fluidRow()。以下是最低限度可重现的示例代码：

library(shiny)
library(bs4Dash)

df <- data.frame(
  date = as.Date(c("2024-12-20", "2024-12-21")),
  value = 1:2
)

ui <- dashboardPage(
  header = dashboardHeader(),
  sidebar = dashboardSidebar(),
  body = dashboardBody(
    fluidRow(
      lapply(1:4, function(x) {
        infoBox(
          title = paste0("Info Box ", x),
          value = x,
          width = 3,
        )
      })
    ),
    fluidRow(
      box(
        collapsible = FALSE,
        plotOutput("examplePlot", width = "100%"),
        sidebar = boxSidebar(
          id = "exampleSidebar",
          width = 40,
          dateRangeInput(
            inputId = "exampleDateRangeInput",
            label = "Select Date",
            format = "M dd, yyyy",
            width = "100%"
          ),
          easyClose = FALSE
        )
      )
    )
  )
)

server <- function(input, output, session) {
  output$examplePlot <- renderPlot({
    ggplot2::ggplot(df, ggplot2::aes(date, value)) +
      ggplot2::geom_line()
  })
}

shinyApp(ui, server)

这会产生以下奇怪的小部件行为：