[R-gregmisc-users] SF.net SVN: r-gregmisc:[1915] trunk/gtools/R/keywords.R

[<wa...@us...>]

Revision: 1915
          http://sourceforge.net/p/r-gregmisc/code/1915
Author:   warnes
Date:     2015-04-06 21:44:02 +0000 (Mon, 06 Apr 2015)
Log Message:
-----------
Implement fix to keywords() needed for R-3.4.1, as suggested by Kurt
Hornik.

Modified Paths:
--------------
    trunk/gtools/R/keywords.R

Modified: trunk/gtools/R/keywords.R
===================================================================
--- trunk/gtools/R/keywords.R	2015-04-06 21:40:03 UTC (rev 1914)
+++ trunk/gtools/R/keywords.R	2015-04-06 21:44:02 UTC (rev 1915)
@@ -32,7 +32,11 @@
 
           item <- paste("^",topic,"$", sep="")
 
-          topics <- function(k) help.search(keyword=k)$matches[,"topic"]
+          topics <- function(k)
+              {
+                   matches <- help.search(keyword=k)$matches
+                   matches[ , match("topic", tolower(colnames(matches)))]
+              }
           matches <- lapply(kw, topics)
           names(matches) <- kw
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.