In MathieuMarauri/explorer: Automatic data exploration with creation of markdown report.

{{i}}

```r}} x <- data${{i}} description <- describe(x, min_unique = min_unique, length_out = length_out, nchar = nchar, plot = FALSE)

```r}_other_table, results = 'asis'}
if(is_type_date(x)) {
  # summary_stat
  print(kable(x = description$summary_stat, format = 'html', escape = FALSE, digits = 2, format.args = list(decimal.mark = ".", big.mark = " ")) %>%
    kable_styling(bootstrap_options = c("striped", "hover", "responsive"), full_width = F, position = "center"))
} else if(is_type_num(x)) {
  # summary_stat
  print(kable(x = description$summary_stat, format = 'html', escape = FALSE, digits = 2, format.args = list(decimal.mark = ".", big.mark = " ")) %>%
    kable_styling(bootstrap_options = c("striped", "hover", "responsive"), full_width = F, position = "center"))
  # extreme_values
  colnames(description$extreme_values) <- NULL
  print(kable(x = description$extreme_values, format = 'html', escape = FALSE, row.names = TRUE, digits = 2, format.args = list(decimal.mark = ".", big.mark = " ")) %>%
    kable_styling(bootstrap_options = c("striped", "hover", "responsive"), full_width = F, position = "center") %>%
  column_spec(1, bold = TRUE, border_right = TRUE))
  # percentiles
  colnames(description$percentiles) <- NULL
  print(kable(x = description$percentiles, format = 'html', escape = FALSE, row.names = TRUE, digits = 2, format.args = list(decimal.mark = ".", big.mark = " ")) %>%
    kable_styling(bootstrap_options = c("striped", "hover", "responsive"), full_width = F, position = "center") %>%
  column_spec(1, bold = TRUE, border_right = TRUE))
} else if(is_type_cat(x)){
  # summary_stat
  print(kable(x = description$summary_stat, format = 'html', escape = FALSE, digits = 2, format.args = list(decimal.mark = ".", big.mark = " ")) %>%
    kable_styling(bootstrap_options = c("striped", "hover", "responsive"), full_width = F, position = "center"))
  # freq_table
  print(kable(x = description$freq_table, format = 'html', escape = FALSE, digits = 2, format.args = list(decimal.mark = ".", big.mark = " ")) %>%
    kable_styling(bootstrap_options = c("striped", "hover", "responsive"), full_width = F, position = "center"))
}

r}_plot, , fig.align = 'center', dpi = 300, out.width = '100%', fig.height = 4, fig.width = 10} if(is_type_date(x)) { print(description$missing_plot) print(description$freq_plot) } else if(is_type_num(x)) { print(description$graph) } else if(is_type_cat(x) & length(unique(x[!is.na(x)])) > 1){ print(description$graph) }

MathieuMarauri/explorer documentation built on Jan. 8, 2020, 6:37 p.m.