The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
This package provides a reusable chat module for R Shiny apps. The module allows multiple users to connect to a common chat and send messages to each other in real-time.
The messages can either be stored in a database or a rds data. Here is an example of the UI:To use the chat module in your own Shiny app, follow these steps:
library("shinyChatR")
The details of the different steps can be found below:
If you are using a database connection to store the chat messages, you will need to initialize the database table before using the chat module. The following example shows an example how to do this using the DBI
and RSQLite
packages. Replace db_file
with the path to your database file. The data will be saved in the table chat_data
.
library(DBI)
library(RSQLite)
db_file <- "path_to_your_database_file"
conn <- dbConnect(RSQLite::SQLite(), db_file)
If the table does not yet exist, it will be created in the specified connection. Now you can add the chat module to your app:
library(shinyChatR)
ui <- fluidPage(
chat_ui("test")
)
server <- function(input, output, server) {
chat_server("test", db_connection = conn,
db_table_name = "chat_data",
chat_user = "user1")
}
# Run the application
shinyApp(ui = ui, server = server)
A similar approach is required for rds data.
df <- data.frame(rowid = numeric(),
user = character(),
text = character(),
time = double())
#
test_rds <- "path_to_rds_file.rds"
saveRDS(df, test_rds)
It is not necessary to initiate the rds file. It will be created if it does not exist. Now you can add the chat module to your app:
library(shinyChatR)
test_rds <- "path_to_rds_file.rds"
ui <- fluidPage(
chat_ui("test2")
)
server <- function(input, output, server) {
chat_server("test2",
rds_path = test_rds,
chat_user = "user2")
}
# Run the application
shinyApp(ui = ui, server = server)
Install from CRAN with
You can install the development version of shinyChatR from GitHub with:
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.