[Sciviews-commits] r172 - in pkg/svIDE: . R man
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Aug 10 14:08:53 CEST 2009
Author: phgrosjean
Date: 2009-08-10 14:08:52 +0200 (Mon, 10 Aug 2009)
New Revision: 172
Removed:
pkg/svIDE/R/TinnR.R
pkg/svIDE/man/TinnR.Rd
Modified:
pkg/svIDE/DESCRIPTION
pkg/svIDE/NAMESPACE
pkg/svIDE/NEWS
Log:
Elimination of Tinn-R functions from svIDE
Modified: pkg/svIDE/DESCRIPTION
===================================================================
--- pkg/svIDE/DESCRIPTION 2009-08-07 09:08:36 UTC (rev 171)
+++ pkg/svIDE/DESCRIPTION 2009-08-10 12:08:52 UTC (rev 172)
@@ -3,8 +3,8 @@
Imports: utils
Depends: R (>= 2.6.0), tcltk, svMisc
Description: Function for the GUI API to interact with external IDE/code editors
-Version: 0.9-45
-Date: 2009-01-22
+Version: 0.9-46
+Date: 2009-08-10
Author: Philippe Grosjean
Maintainer: Philippe Grosjean <phgrosjean at sciviews.org>
License: GPL (>= 2)
Modified: pkg/svIDE/NAMESPACE
===================================================================
--- pkg/svIDE/NAMESPACE 2009-08-07 09:08:36 UTC (rev 171)
+++ pkg/svIDE/NAMESPACE 2009-08-10 12:08:52 UTC (rev 172)
@@ -7,6 +7,4 @@
guiCallTip,
guiComplete,
guiDDEInstall,
- Source,
- trObjList,
- trObjSearch)
+ Source)
Modified: pkg/svIDE/NEWS
===================================================================
--- pkg/svIDE/NEWS 2009-08-07 09:08:36 UTC (rev 171)
+++ pkg/svIDE/NEWS 2009-08-10 12:08:52 UTC (rev 172)
@@ -1,5 +1,10 @@
= svIDE News
+== Changes in svIDE 0.9-46
+* the trXXX() functions for Tinn-R are eliminated (they are now in their own
+ tinnr package).
+
+
== Changes in svIDE 0.9-45
* svIDE is no longer linker to Tinn-R (there is now a separate tinn-r package).
The trXXX() functions are left here in case someone still uses them.
Deleted: pkg/svIDE/R/TinnR.R
===================================================================
--- pkg/svIDE/R/TinnR.R 2009-08-07 09:08:36 UTC (rev 171)
+++ pkg/svIDE/R/TinnR.R 2009-08-10 12:08:52 UTC (rev 172)
@@ -1,67 +0,0 @@
-# Specific functions for Tinn-R (adapted by J.-C. Faria from functions in svGUI
-# made by Ph. Grosjean)
-# Note: to avoid duplication in code, core process is now moved into objSearch()
-# and objList() in the svMisc package
-
-"trObjSearch" <-
-function (path = NULL)
-{
- res <- objSearch(sep = "\n", compare = FALSE)
- if (is.null(path)) {
- return(data.frame(search.. = strsplit(res, "\n")[[1]]))
- } else {
- cat("search..\n", res, "\n", sep = "", file = path)
- }
-}
-
-"trObjList" <-
-function (id = "default", envir = ".GlobalEnv", all.names = TRUE,
- pattern = "", group = "", path = NULL)
-{
- # Get data
- res <- objList(id = id, envir = envir, all.names = all.names,
- pattern = pattern, compare = FALSE)
-
- if (length(res) == 1 && res == "") {
- res <- data.frame("", "", "", "", stringsAsFactors = FALSE)
- } else {
- res <- data.frame(t(data.frame(strsplit(res, "\t"))),
- stringsAsFactors = FALSE)[ , -5]
- }
- colnames(res) <- c("Name", "Dim", "Group", "Class")
- rownames(res) <- NULL
-
- # Group conversion
- GrpTable <- c(
- "vector", "vector", "vector", "vector",
- "vector", "vector", "vector", "data.frame",
- "list", "function", "other", "other",
- "other", "other")
- names(GrpTable) <- c(
- "numeric", "complex", "character", "logical",
- "factor", "DateTime", "raw", "data.frame",
- "list", "function", "NULL", "language",
- "S3", "S4")
- NewGroup <- GrpTable[res$Group]
- NewGroup[res$Class == "matrix"] <- "matrix"
- NewGroup[res$Class == "array"] <- "array"
- NewGroup[res$Class == "table"] <- "table"
- res$Group <- NewGroup
-
- # Filter according to group
- if (group != "") {
- if (group == "data") {
- res <- res[NewGroup != "function", ]
- } else {
- res <- res[NewGroup == group, ]
- }
- }
-
- # Final result
- if (is.null(path)) {
- return(res)
- } else {
- write.table(res, file = path, row.names = FALSE, quote = FALSE,
- sep = "\t")
- }
-}
Deleted: pkg/svIDE/man/TinnR.Rd
===================================================================
--- pkg/svIDE/man/TinnR.Rd 2009-08-07 09:08:36 UTC (rev 171)
+++ pkg/svIDE/man/TinnR.Rd 2009-08-10 12:08:52 UTC (rev 172)
@@ -1,48 +0,0 @@
-\name{TinnR}
-\alias{trObjSearch}
-\alias{trObjList}
-
-\title{ Function for the Tinn-R object browser }
-\description{
- These functions provide features required to implement the Tinn-R object browser.
-}
-\usage{
-trObjSearch(path = NULL)
-trObjList(id = "default", envir = .GlobalEnv, all.names = TRUE,
- pattern = "", group = "", path = NULL)
-}
-
-\arguments{
- \item{path}{ The path where to write a temporary file with the requested information }
- \item{id}{ The id of the object browser (you can run several ones concurrently) }
- \item{envir}{ An environment, its name or position in the search path }
- \item{all.names}{ Do we display all names (including hidden variables starting with '.')? }
- \item{pattern}{ A pattern to match for selecting variables }
- \item{group}{ The group to which variables belong }
-}
-\details{
- \code{trObjSearch} list search paths.
- \code{guiObjList} lists objects in a given environment.
- These functions are not intended to be called directly by the end-user. They
- are used internally by Tinn-R to get data for its own R objects explorer. Note
- that, for Tinn-R to be able to run these commands and to communicate with R,
- you have to load the svIDE package. You must also activate one, or both
- communcation means: sockets, by loading the svSocket package, or DDE, by
- starting the \code{guiDDEInstall()} function from the svIDE package (you can
- activate both as well). Finally, you need also functions from the svIO package.
- The best way to get R operational to communicate with Tinn-R from start is to
- add the following commands to '/etc/profile.site' in the R install directory:
- \code{library(svIDE); library(svSocket); library(svIO); guiDDEInstall()}
-}
-\value{
- Either nothing if \code{path} is not null (data are written in a file given
- by \code{path}), or a data frame with the results.
-}
-
-\author{Jose Claudio Faria (\email{joseclaudio.faria at terra.com.br}) &
- Philippe Grosjean (\email{phgrosjean at sciviews.org})}
-
-\seealso{ \code{\link{guiDDEInstall}}, \code{\link[svMisc]{obsSearch}},
- \code{\link[svMisc]{obsList}} }
-
-\keyword{misc}
More information about the Sciviews-commits
mailing list