[Gsdesign-commits] r356 - in pkg/gsDesign: . R

[noreply at r-forge.r-project.org]

Author: keaven
Date: 2013-09-02 21:21:20 +0200 (Mon, 02 Sep 2013)
New Revision: 356

Modified:
   pkg/gsDesign/DESCRIPTION
   pkg/gsDesign/R/gsMethods.R
Log:
Minor fix to help summary.gsDesign wrap results

Modified: pkg/gsDesign/DESCRIPTION
===================================================================
--- pkg/gsDesign/DESCRIPTION	2013-09-02 11:58:37 UTC (rev 355)
+++ pkg/gsDesign/DESCRIPTION	2013-09-02 19:21:20 UTC (rev 356)
@@ -3,7 +3,7 @@
 Title: Group Sequential Design
 Author: Keaven Anderson 
 Maintainer: Keaven Anderson <keaven_anderson at merck.com>
-Depends: ggplot2, xtable
+Depends: ggplot2, xtable, stringr
 Suggests: knitr
 VignetteBuilder: knitr 
 Description: gsDesign is a package that derives group sequential designs and describes their properties.

Modified: pkg/gsDesign/R/gsMethods.R
===================================================================
--- pkg/gsDesign/R/gsMethods.R	2013-09-02 11:58:37 UTC (rev 355)
+++ pkg/gsDesign/R/gsMethods.R	2013-09-02 19:21:20 UTC (rev 356)
@@ -86,7 +86,7 @@
     print(y)
   invisible(x)
 }
-"summary.gsDesign" <- function(object, information=FALSE, ...){
+"summary.gsDesign" <- function(object, information=FALSE,...){
   out <- NULL
   if (object$test.type == 1){
     out<- paste(out,"One-sided group sequential design with ",sep="")
@@ -134,7 +134,8 @@
     }
   }
   out <- paste(out,".",sep="")
-  return(out)
+  cat(str_wrap(out,...))
+  invisible(out)
 }
 "print.gsDesign" <- function(x, ...)
 {