shinymodules

This package provides some useful shiny modules to build quickly an ergonomic tool to explore a table.

Installation

You can install:

• the latest development version from GitHub with :

devtools::install_github("datastorm-open/shinymodules")

Demo application

online

https://datastorm-demo.shinyapps.io/shinymodules/

local

if(!require(nycflights13)) install.packages("nycflights13")
if(!require(data.table)) install.packages("data.table")
if(!require(esquisse)) install.packages("esquisse")
if(!require(colourpicker)) install.packages("colourpicker")
runApp(system.file("demo_app", package="shinymodules"))

filter_data

filter_data is a module used to filter a given data.table on chosen columns by the user. The server part returns a reactive value containing the filtered data.table.

?shinymodules::filter_data# ui.Rshinymodules::filter_data_UI(id="filter_id"))
# server.Rfull_data<- reactive({...})
output_filter<-shiny::callModule(module=shinymodules::filter_data, id="filter_id",
data=full_data,
columns_to_filter="all")
# then, have fun with filter data !your_filtered_table<-output_filter$data

summary_data

Display an automatically generate dashboard that shows descriptive statistics with shinymodules::summary_data : for every columns from the table you selected. The statistics chosen depend on the column's type (character, factor, numeric, date).

?shinymodules::summary_data# ui.Rshinymodules::summary_data_UI(id="stat_desc_id", titles=FALSE)
# server.Rdata<-shiny::reactive({my_data})
shiny::callModule(module=shinymodules::summary_data, id="stat_desc_id",
data=shiny::reactive(data),
optional_stats="all",
nb_modal2show=6, labels=list(title="Descriptive statistics",
num_var="Variables numériques",
date_var="Variables dates",
factor_var="Variables facteurs",
message="Calcul des indicateurs en cours..."))

show_DT

Show & export table using DT package

?shinymodules::show_DT# ui.Rshinymodules::show_DT_UI(
id="iris_module", export= c("csv", "html")
)
# server.Rshiny::callModule(module=show_DT, id="iris_module", data= reactive(iris), dt= reactive(DT::datatable(iris)), file_name= paste0("Iris_export", format(Sys.time(), format="%d%m%Y_%H%M%S"))
)

monitoring_data

This module provides tools to monitor models. (Only quantitative regression at moment)

## UIshinymodules::monitoring_data_UI("my_id")
## SERVERshiny::callModule(shinymodules::monitoring_data, "my_id", data= reactive(data), col_obs=col_obs,
col_fit=col_fit,
col_date=col_date,
indicators=indicators)