Implementation of Shiny apps to visualize adverse events.
library(visae) library(magrittr) library(dplyr) group <- c(rep("A", 50), rep("B", 50)) ae_grade <- sample(1:5, size = 100, replace = TRUE) ae_domain <- sample(c("C", "D"), size = 100, replace = TRUE) ae_term <- sample(c("E", "F", "G", "H"), size = 100, replace = TRUE) dt <- tibble(trt = group, ae_g = ae_grade, ae_d = ae_domain, ae_t = ae_term) dt %>% run_ca(., group = trt, ae_grade = ae_g, ae_domain = ae_d, ae_term = ae_t)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.