comparison edger.R @ 18:fd9902d118e5 draft default tip

planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/edger commit 96699cdbdadf0a1c40fdbd87f870b47049c0449f

17:fb9dc2ee2fd4

}

# Sanitise file base names coming from factors or contrasts
sanitise_basename <- function(string) {
    string <- gsub("[/^]", "_", string)
    return(string)
}

# Generate output folder and paths
make_out <- function(filename) {

18:fd9902d118e5

}

# Sanitise file base names coming from factors or contrasts
sanitise_basename <- function(string) {
    string <- gsub("[/^]", "_", string)
    # If string is longer than 200 characters, truncate intelligently
    if (nchar(string) > 200) {
        # Keep first 80 characters, last 80 characters, and add hash in middle
        start_part <- substr(string, 1, 80)
        end_part <- substr(string, nchar(string) - 79, nchar(string))
        # Create a simple hash of the full string using built-in functions
        hash_input <- utf8ToInt(string)
        hash_value <- sum(hash_input * seq_along(hash_input)) %% 99999999
        hash_str <- sprintf("%08d", hash_value)
        string <- paste0(start_part, "_", hash_str, "_", end_part)
    }
    return(string)
}

# Generate output folder and paths
make_out <- function(filename) {