# NOT RUN {
ExPanD()
# Use this if you want to read very large files via the file dialog
options(shiny.maxRequestSize = 1024^3)
ExPanD()
# Explore cross-sectional data
ExPanD(mtcars)
# Include the option to download notebook code and data
ExPanD(mtcars, export_nb_option = TRUE)
# Use ExPanD on long-form panel data
data(russell_3000)
ExPanD(russell_3000, c("coid", "coname"), "period")
ExPanD(russell_3000, df_def = russell_3000_data_def)
ExPanD(russell_3000, df_def = russell_3000_data_def,
components = c(ext_obs = T, descriptive_table = T, regression = T))
ExPanD(russell_3000, df_def = russell_3000_data_def,
components = c(missing_values = F, by_group_violin_graph = F))
ExPanD(russell_3000, df_def = russell_3000_data_def,
components = c(html_block = T, descriptive_table = T,
html_block = T, regression = T),
html_blocks = c(
paste('<div class="col-sm-2"><h3>HTML Block 1</h3></div>',
'<div class="col-sm-10">',
"<p></p>This is a condensed variant of ExPanD with two additional HTML Blocks.",
"</div>"),
paste('<div class="col-sm-2"><h3>HTML Block 2</h3></div>',
'<div class="col-sm-10">',
"It contains only the descriptive table and the regression component.",
"</div>")))
data(ExPanD_config_russell_3000)
ExPanD(df = russell_3000, df_def = russell_3000_data_def,
config_list = ExPanD_config_russell_3000)
exploratory_sample <- sample(nrow(russell_3000), round(0.5*nrow(russell_3000)))
test_sample <- setdiff(1:nrow(russell_3000), exploratory_sample)
ExPanD(df = list(russell_3000[exploratory_sample, ], russell_3000[test_sample, ]),
df_def = russell_3000_data_def,
df_name = c("Exploratory sample", "Test sample"))
ExPanD(worldbank, df_def = worldbank_data_def, var_def = worldbank_var_def,
config_list = ExPanD_config_worldbank)
# }
Run the code above in your browser using DataCamp Workspace