<commit_before>## requires packages DT, shiny, ...

library(ggplot2)
library(dplyr)
library(shiny)

source("helper.r")

flist1_selected <- ""
flist2_selected <- ""
tmpid <- 0

gearshifft_flist <- list.files(pattern = ".csv$", recursive = TRUE)

create_filter <- function(filter_presets, inplace, complex, precision, kind, dim, xmetric, ymetric, inspect, run, ratio, plot="Lines", logx="2", logy="10") {

    tmpid <<- tmpid + 1

    preset <- list()
    preset$.id <- paste0(tmpid,":")
    preset$inplace <- inplace
    preset$complex <- complex
    preset$precision <- precision
    preset$kind <- kind
    preset$dim <- dim<commit_msg>dplyr in app.r messed up summarize in helper.r<commit_after>## requires packages DT, shiny, ...

library(ggplot2)
library(shiny)

source("helper.r")

flist1_selected <- ""
flist2_selected <- ""
tmpid <- 0

gearshifft_flist <- list.files(pattern = ".csv$", recursive = TRUE)

create_filter <- function(filter_presets, inplace, complex, precision, kind, dim, xmetric, ymetric, inspect, run, ratio, plot="Lines", logx="2", logy="10") {

    tmpid <<- tmpid + 1

    preset <- list()
    preset$.id <- paste0(tmpid,":")
    preset$inplace <- inplace
    preset$complex <- complex
    preset$precision <- precision
    preset$kind <- kind
    preset$dim <- dim
{'fraction_non_alphanumeric': 0.15944272445820434, 'fraction_numerical': 0.01393188854489164, 'mean_word_length': 3.879245283018868, 'pattern_counts': {'":': 2, '<': 31, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1297458', 'n_tokens_mistral': 481, 'n_tokens_neox': 436, 'n_words': 105}