This is a fork from the main DQshiny library, aims to include the undo, redo functionality, along with placing the pagination info on top of the table for readibiility purposes
The goal of dqshiny is to provide highly customizable modules to enhance your shiny apps. Includes layout independent collapsable boxes and value boxes, a very fast autocomplete input, rhandsontable extensions for filtering and paging and much more.
dqshiny will be available on CRAN again soon, for now you can install
the latest development version using:
remotes::install_github("daqana/dqshiny")There’s a package demo dqshiny-base-features demonstrating some
functionalities. Or you can start with this short example to see some
simple boxes in action:
library(shiny)
library(dqshiny)
shinyApp(
ui = fluidPage(
fluidRow(
dq_box(
title = "Say Hello to my children", collapsed = TRUE, fill = FALSE,
dq_infobox("Hello", 2, "World", icon("hashtag"), bg_color = "black", color = "#D00"),
dq_box(title = "Box in the box", bg_color = "red", width = 8, dq_space())
)
)
),
server = function(input, output) {}
)If you have a bigger amount of selectable choices and still don’t want to use textInputs you may have a look at this:
library(shiny)
library(dqshiny)
# create 100k random words
opts <- sapply(1:100000, function(i) paste0(sample(letters, 7), collapse=""))
shinyApp(
ui = fluidPage(
fluidRow(
column(3,
autocomplete_input("auto1", "Unnamed:", opts, max_options = 1000),
autocomplete_input("auto2", "Named:", max_options = 1000,
structure(opts, names = opts[order(opts)]))
# feel free to test this with select... and may get yourself a coffee
# , selectInput("sel", "Select:", opts)
), column(3,
tags$label("Value:"), verbatimTextOutput("val1", placeholder = TRUE),
tags$label("Value:"), verbatimTextOutput("val2", placeholder = TRUE)
)
)
),
server = function(input, output) {
output$val1 <- renderText(as.character(input$auto1))
output$val2 <- renderText(as.character(input$auto2))
}
)If you ever encountered the wish to have a paged or filtered rHandsontable, this example could be quite interesting:
library(shiny)
library(dqshiny)
shinyApp(
ui = fluidPage(dq_handsontable_output("myTable", 9L)),
server = function(input, output, session) {
hw <- c("Hello", "my", "funny", "world!")
data <- data.frame(A = rep(hw, 500L), B = hw[c(2:4, 1L)], C = 1:500, D = 500:1)
dq_render_handsontable("myTable", data,
filters = c("Sel", "Text", NA, "Auto"), sorting = TRUE,
page_size = c(17L, 5L, 500L, 1000L),
col_param = list(list(col = 3L, format = "0.00")),
cell_param = list(list(row = 2:9, col = 2L, readOnly = TRUE))
)
}
)
React
Typescript
Django
Laravel
Facebook
Microsoft
Google
Alibaba
D3
Tencent