R/randomizer_and_blinder_app.R

In CIDA-CSPH/CIDAtools: This package contains tools for CIDA projects

#' Randomizer and blinder tool
#'
#' See the inst/ folder for the main code for this function
#'
#' @export
randblinder_shiny_tool <- function() {
    appFile <- system.file("shiny_app/randblinder.R", package = "CIDAtools")
    if (appFile == "") {
      stop("Could not find the Shiny app file. Try re-installing CIDAtools.", call. = FALSE)
    }
    shiny::runApp(appFile, display.mode = "normal")
}