Question: Licence for using highcharter package

[GeoAnalyticsLab]

Hi @jbkunst, I am working with my colleagues (@scarlqq and @HindS76) and we are using the highcharter package in R for some visualization. We wanted to get more information on the licence to use the Highcharts package. The Licence information provided in this link--https://jkunst.com/highcharter/--mentions that "Highcharts (https://highcharts.com) is a Highsoft product which is not free for commercial and Governmental use." Does this mean we need a license to the highcharter package (in any form) for commercial or governmental use in R?

The package documentation also mentions that the "Highcharter has a dependency on Highcharts, a commercial JavaScript charting library. Highcharts offers both a commercial license as well as a free non-commercial license." Is there a case where the package does not depend on Highcharts or its JavaScript or Highcharts API, allowing some flexibility in using the package?

Any insight would be greatly helpful.

Below is a code snippet of how we are using the package.

`  highcharter::highchart() %>%

    highcharter::hc_chart(type = "line") %>%

    # Confidence band
    highcharter::hc_add_series(
      data = highcharter::list_parse2(
        nonspatial_time_df %>%
          dplyr::transmute(
            x = timestamp,
            low = round(boot_ci_low, 2),
            high = round(boot_ci_high, 2)
        )
      ),
      type = "arearange",
      name = "label",
      color = "#cccccc",
      fillOpacity = 0.3,
      lineWidth = 0,
      marker = list(enabled = FALSE)
    ) %>%

    # Main line series
    highcharter::hc_add_series(
      name = "label",
      data =  highcharter::list_parse2(
        nonspatial_time_df %>%
          dplyr::transmute(
            x = timestamp,
            y = round(excess_value, 2)
        )
      ),
      type = "line",
      color = "#2c3e50",
      marker = list(enabled = FALSE),
      states = list(
        hover = list(
          halo = list(size = 0),
          lineWidthPlus = 0
        )
      )

    ) %>%

    # y-axis
    highcharter::hc_yAxis(title = list(text = "label")) %>%

    # x-axis
    highcharter::hc_xAxis(type = "datetime") %>%

    # Tooltip formatting (optional)
    highcharter::hc_tooltip(
      shared = TRUE,
      crosshairs = TRUE
    ) %>%

    highcharter::hc_legend(enabled = FALSE) %>%

    highcharter::hc_title(text = paste0(
      "label ",
      format(min(nonspatial_time_df$date), "%b %Y"),
      " to ",
      format(max(nonspatial_time_df$date), "%b %Y"),
      " in ",
      region
    ))`

Thanks!