trim string motif result

Author: xieguigang

Library/base/base.vb

@@ -167,8 +167,16 @@ Public Module base
     <ExportAPI("string_motif")>
     Public Function string_motif(<RRawVectorArgument> x As Object,
                                  Optional threshold As Double = 0.3,
-                                 Optional any As Char = "-"c) As Object
-
-        Return CommonTagParser.StringMotif(CLRVector.asCharacter(x), threshold, any)
+                                 Optional any As Char = "-"c,
+                                 Optional trim As Boolean = True) As Object
+
+        Dim motif As String = CommonTagParser.StringMotif(CLRVector.asCharacter(x), threshold, any)
+        If trim Then
+            motif = motif.Trim(any)
+            motif = motif.Replace(any & any, any)
+            motif = motif.Replace(any & any, any)
+            motif = motif.Replace(any & any, any)
+        End If
+        Return motif
     End Function
 End Module