# HG changeset patch
# User iuc
# Date 1760532994 0
# Node ID fd9902d118e54342b66734a4a75ac1c8693cb4cb
# Parent  fb9dc2ee2fd46384d025556bda7cf0d917569638
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/edger commit 96699cdbdadf0a1c40fdbd87f870b47049c0449f

diff -r fb9dc2ee2fd4 -r fd9902d118e5 edger.R
--- 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)
 }
 
diff -r fb9dc2ee2fd4 -r fd9902d118e5 edger.xml
--- 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>