[R-gregmisc-users] SF.net SVN: r-gregmisc:[1976] trunk/gtools
Brought to you by:
warnes
|
From: <wa...@us...> - 2015-04-28 04:27:06
|
Revision: 1976
http://sourceforge.net/p/r-gregmisc/code/1976
Author: warnes
Date: 2015-04-28 04:27:04 +0000 (Tue, 28 Apr 2015)
Log Message:
-----------
Changes to mixedsort():
- Hands off objects that are not character vectors to the default sort.
- Add 'decreasing', 'na.last', and 'blank.last' arguments.
Modified Paths:
--------------
trunk/gtools/R/mixedsort.R
trunk/gtools/man/mixedsort.Rd
Modified: trunk/gtools/R/mixedsort.R
===================================================================
--- trunk/gtools/R/mixedsort.R 2015-04-28 04:16:56 UTC (rev 1975)
+++ trunk/gtools/R/mixedsort.R 2015-04-28 04:27:04 UTC (rev 1976)
@@ -1,8 +1,6 @@
-# $Id$
-
mixedsort <- function(x, decreasing=FALSE, na.last=TRUE, blank.last=FALSE)
{
- ord <- mixedorder(x, decreasing=decreasing, na.last=na.last,
+ svn ord <- mixedorder(x, decreasing=decreasing, na.last=na.last,
blank.last=blank.last)
x[ord]
}
@@ -116,5 +114,3 @@
return(retval)
}
-
-
Modified: trunk/gtools/man/mixedsort.Rd
===================================================================
--- trunk/gtools/man/mixedsort.Rd 2015-04-28 04:16:56 UTC (rev 1975)
+++ trunk/gtools/man/mixedsort.Rd 2015-04-28 04:27:04 UTC (rev 1976)
@@ -1,5 +1,3 @@
-% $Id$
-%
\name{mixedsort}
\alias{mixedsort}
\alias{mixedorder}
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|