inst/burro_app/app.R

In laderast/burro: Shiny App Package for setting up a data exploration session ("burro"w into the data)

library(shiny)
library(burro)
library(NHANES)
data("NHANES")

##specify outcome variable here
outcome_var <- c("Depressed")
## specify covariates here (including outcome variable)
covariates <- c("Gender", "Age", "SurveyYr", "Race1", "Race3" ,"MaritalStatus",
                "BMI", "HHIncome", "Education",
                "BMI_WHO", "BPSysAve", "TotChol", "Depressed", "LittleInterest",
                "SleepHrsNight", "SleepTrouble", "TVHrsDay", "AlcoholDay",
                "Marijuana", "RegularMarij", "HardDrugs")

app <- explore_data(NHANES, covariates, outcome_var)
runApp(app)