HTML block

[JohnCoene]

HTML block output

[JohnCoene]

Example:

devtools::load_all()
library(blockr.data)
library(shiny)

stack <- new_stack(
  data_block,
  select_block,
  head_block,
  html_block
)

ui <- fluidPage(
  "test",
  theme = bslib::bs_theme(5L),
  generate_ui(stack)
)

server <- function(input, output) {
  x <- generate_server(stack)
}

shinyApp(ui, server)

[codecov]

Codecov Report

Attention: 47 lines in your changes are missing coverage. Please review.

Comparison is base (286ca7c) 75.81% compared to head (3fd49e6) 74.14%.
Report is 4 commits behind head on main.

Files	Patch %	Lines
R/block.R	0.00%	45 Missing ⚠️
R/server.R	0.00%	1 Missing ⚠️
R/ui.R	0.00%	1 Missing ⚠️

Additional details and impacted files

@@            Coverage Diff             @@
##             main     #154      +/-   ##
==========================================
- Coverage   75.81%   74.14%   -1.67%     
==========================================
  Files          16       16              
  Lines        1790     1845      +55     
==========================================
+ Hits         1357     1368      +11     
- Misses        433      477      +44     

☔ View full report in Codecov by Sentry.
📢 Have feedback on the report? Share it here.

[DivadNojnarg]

How would you build a value box from this block?

[JohnCoene]

@DivadNojnarg you can try again, it can be made to resemble more like a valuebox~ish (default).

[JohnCoene]

Converting to draft, there were quite a lot of conflicts to fix and I do not want to run the risk of breaking things now.