mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2026-06-19 04:27:30 +02:00
bumped to 25.2.1 - new visuals tab - all functions in place - code cleanup has started
This commit is contained in:
parent
c4b5a7ba79
commit
14edce9912
36 changed files with 3564 additions and 2976 deletions
32
examples/visuals_module_demo.R
Normal file
32
examples/visuals_module_demo.R
Normal file
|
|
@ -0,0 +1,32 @@
|
|||
visuals_demo_app <- function() {
|
||||
ui <- bslib::page_fixed(
|
||||
do.call(
|
||||
bslib::navset_bar,
|
||||
c(
|
||||
data_visuals_ui("visuals"),
|
||||
shiny::tagList(
|
||||
bslib::nav_spacer(),
|
||||
bslib::nav_panel(
|
||||
title = "Notes",
|
||||
shiny::fluidRow(
|
||||
shiny::column(width = 2),
|
||||
shiny::column(
|
||||
width = 8,
|
||||
shiny::markdown("Look, it **works**!"),
|
||||
shiny::column(width = 2)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
server <- function(input, output, session) {
|
||||
pl <- data_visuals_server("visuals", data = shiny::reactive(default_parsing(mtcars)))
|
||||
}
|
||||
shiny::shinyApp(ui, server)
|
||||
}
|
||||
|
||||
if (FALSE){
|
||||
visuals_demo_app()
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue