Mercurial > repos > iuc > edger
changeset 18:fd9902d118e5 draft default tip
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/edger commit 96699cdbdadf0a1c40fdbd87f870b47049c0449f
| author | iuc |
|---|---|
| date | Wed, 15 Oct 2025 12:56:34 +0000 |
| parents | fb9dc2ee2fd4 |
| children | |
| files | edger.R edger.xml |
| diffstat | 2 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/edger.R Wed Oct 15 10:24:16 2025 +0000 +++ b/edger.R Wed Oct 15 12:56:34 2025 +0000 @@ -88,6 +88,17 @@ # 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) }
--- a/edger.xml Wed Oct 15 10:24:16 2025 +0000 +++ b/edger.xml Wed Oct 15 12:56:34 2025 +0000 @@ -4,7 +4,7 @@ </description> <macros> <token name="@TOOL_VERSION@">3.36.0</token> - <token name="@VERSION_SUFFIX@">6</token> + <token name="@VERSION_SUFFIX@">7</token> </macros> <edam_topics> <edam_topic>topic_3308</edam_topic>