install.packages("remotes")
install.packages("teal")
remotes::install_github("https://github.com/insightsengineering/bsafe")
remotes::install_github("https://github.com/insightsengineering/teal.modules.bsafe")
library(teal)
library(bsafe)
library(teal.modules.bsafe)
data <- teal.modules.bsafe::test_data
data <- teal.data::teal_data(
bsafe_data = data,
code = expression({
bsafe_data <- teal.modules.bsafe::test_data
})
) |>
teal.data::verify()
app <- teal::init(
data = data,
modules = list(
teal.modules.bsafe:::tm_bsafe(
label = "teal.modules.bsafe",
dataset_name = "bsafe_data"
)
),
header = "DaVinci test of bsafe as teal module"
)
shiny::shinyApp(app$ui, app$server)
B-SAFE is an R-Shiny app. The app is an innovate software tool for statistical analysis of adverse event summary data. The app can enhance the descriptive analysis for a current trial with historical information on one or more treatment arms for increased precision. It features a Bayesian Meta-Analytic Predictive (MAP) Prior approach and a robust extension, which incorporates historical information for safety analyses on adverse events into safety analyses for a new trial. The use of historical information has been used for efficacy analyses in the past and now being extended to safety analyses.