add teal.plot_dpi option

[nikolas-burkoff]

Closes #25 along with insightsengineering/teal#630 -> this is what was implemented

Test with:

library(shiny)
library(teal.widgets)

res <- 96
options(teal.plot_dpi = res)

shinyApp(
  ui = fluidPage(
    plot_with_settings_ui(
      id = "plot_with_settings"
    )
  ),
  server = function(input, output, session) {
    plot_r <- reactive({
      #plot(x = iris$Sepal.Length, y = iris$Sepal.Width)
      ggplot2::qplot(x = iris$Sepal.Length, y = iris$Sepal.Width)
    })
    plot_with_settings_srv(
      id = "plot_with_settings",
      plot_r = plot_r,
      height = c(400, 100, 1200),
      width = c(500, 250, 750)
    )
  }
)

and any other apps you feel like testing it with

[github-actions]

Unit Tests Summary

  1 files    4 suites   1s ⏱️
45 tests 45 ✔️ 0 💤 0 ❌
87 runs  87 ✔️ 0 💤 0 ❌

Results for commit 0eae6f6.

♻️ This comment has been updated with latest results.

[github-actions]

Code Coverage Summary

Filename                   Stmts    Miss  Cover    Missing
-----------------------  -------  ------  -------  ---------
R/accordion.R                 45      45  0.00%    12-62
R/basic_table_args.R          23       0  100.00%
R/get_dt_rows.R               13      13  0.00%    27-39
R/ggplot2_args.R              49       0  100.00%
R/include_css_js.R             7       7  0.00%    12-19
R/optionalInput.R            201     201  0.00%    77-457
R/panel_group.R               68      68  0.00%    15-127
R/plot_with_settings.R       377     371  1.59%    8-582
R/standard_layout.R           40       0  100.00%
R/table_with_settings.R      167     167  0.00%    11-236
R/white_small_well.R           5       5  0.00%    18-22
TOTAL                        995     877  11.86%

Results for commit: a2c5087

Minimum allowed coverage is 80%

♻️ This comment has been updated with latest results

[Polkas]

Great job. Only one comment