mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 18:09:39 +02:00
35 lines
717 B
R
35 lines
717 B
R
|
# dependencies
|
||
|
|
library(apexcharter)
|
||
|
|
library(toastui)
|
||
|
|
|
||
|
|
spark_data <- mtcars |>
|
||
|
|
(\(.x){
|
||
|
|
dplyr::tibble(
|
||
|
|
name = names(.x),
|
||
|
|
vals = as.list(.x)
|
||
|
|
)
|
||
|
|
})()
|
||
|
|
|
||
|
|
ui <- fluidPage(
|
||
|
|
toastui::datagridOutput("tbl")
|
||
|
|
)
|
||
|
|
|
||
|
|
server <- function(input, output) {
|
||
|
|
output$tbl <- toastui::renderDatagrid(
|
||
|
|
spark_data |>
|
||
|
|
toastui::datagrid() |>
|
||
|
|
toastui::grid_sparkline(
|
||
|
|
column = "vals",
|
||
|
|
renderer = function(data) {
|
||
|
|
apex(data.frame(x = 1, y = data), aes(x, y), type = "box") |>
|
||
|
|
ax_chart(sparkline = list(enabled = TRUE)) |>
|
||
|
|
ax_plotOptions(
|
||
|
|
bar = bar_opts(horizontal=TRUE)
|
||
|
|
)
|
||
|
|
}
|
||
|
|
)
|
||
|
|
)
|
||
|
|
}
|
||
|
|
|
||
|
|
shinyApp(ui = ui, server = server)
|