Nothing
library(dplyr)
r params$context_input
comparison <- dataCompare::compare_data_frame_object(params$df1_input, params$df2_input, params$id_input)
comparison$diff_percentage
dataCompare::data_table_formatter( comparison$frame.summary.table, n_page = 20 )
dataCompare::data_table_formatter( comparison$attrs.table, n_page = 20 )
dataCompare::data_table_formatter( comparison$comparison.summary.table, n_page = 20 )
dataCompare::data_table_formatter( comparison$vars.ns.table, n_page = 20 )
dataCompare::data_table_formatter( comparison$vars.nc.table, n_page = 20 )
dataCompare::data_table_formatter( comparison$obs.table, n_page = 20 )
dataCompare::data_table_formatter( comparison$diffs.byvar.table, n_page = 20 )
dataCompare::data_table_formatter( comparison$diffs.table, n_page = 20 )
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.