andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

examples removed to enable rendering
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-11-19 14:07:00 +01:00
commit 54dd332cd8
No known key found for this signature in database
2 changed files with 0 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

48
man/visual-summary.Rd
View file

@ -69,51 +69,3 @@ Plot missings and class with apexcharter. Not in use with FreesearchR.
Ggplot2 data summary visualisation based on visdat::vis_dat.
}
\examples{
visual_summary_demo_app <- function() {
ui <- shiny::fluidPage(
shiny::actionButton(
inputId = "modal_missings",
label = "Visual summary",
width = "100\%",
disabled = FALSE
)
)
server <- function(input, output, session) {
data_demo <- mtcars
data_demo[sample(1:32, 10), "cyl"] <- NA
data_demo[sample(1:32, 8), "vs"] <- NA
data_demo$gear <- factor(data_demo$gear)
visual_summary_server(id = "data", data = shiny::reactive(data_demo),summary.fun=class)
observeEvent(input$modal_missings, {
tryCatch(
{
modal_visual_summary(id = "data")
},
error = function(err) {
showNotification(paste0("We encountered the following error browsing your data: ", err), type = "err")
}
)
})
}
shiny::shinyApp(ui, server)
}
visual_summary_demo_app()
# data_demo <- mtcars
# data_demo[2:4, "cyl"] <- NA
# rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
# data_demo |> missings_apex_plot()
# mtcars |> missings_apex_plot(animation = TRUE)
# dplyr::storms |> missings_apex_plot()
# visdat::vis_dat(dplyr::storms)
# data_demo <- mtcars
# data_demo[sample(1:32, 10), "cyl"] <- NA
# data_demo[sample(1:32, 8), "vs"] <- NA
# visual_summary(data_demo)
# visual_summary(data_demo, palette.fun = scales::hue_pal())
# visual_summary(dplyr::storms, summary.fun = data_type)
# visual_summary(dplyr::storms, summary.fun = data_type, na.label = "Missings", legend.title = "Class")
}