set package description

DESCRIPTION

@@ -1,10 +1,14 @@
 Package: runthat
 Type: Package
-Title: What the package does (short line)
+Title: This is GUI test runner based on shiny and testthat.
 Version: 1.0
 Date: 2013-11-14
-Author: Who wrote it
+Authors@R: c(person("Amine", "Gassem", role = c("aut", "cre"),
+                     email = "contact@ag-study.com"),
+              person("Najmeddine", "Nouri", role = c("aut", "cre"),
+              email = "najm.no@gmail.com"))
+Author: Amine GASSEM and Najmeddine NOURI
 Imports: shiny,testthat
-Maintainer: Who to complain to <yourfault@somewhere.net>
+Maintainer: Amine GASSEM <contact@ag-study.com> and Najmeddine NOURI <najm.no@gmail.com> 
 Description: More about what it does (maybe more than one line)
-License: What license is it under?
+License: GPL  + file LICENSE

NAMESPACE

@@ -1,5 +1,5 @@
 import(shiny)
 import(testthat)
-export(test_launcher)
+export(runthat)
 export(HtmlReporter)
 exportClasses(HtmlReporter)

R/launcher.R

@@ -1,4 +1,4 @@
 
-test_launcher <- function ()
+runthat <- function ()
 	shiny::runApp(system.file('shinyapp', 
 														package='runthat'))

R/reporter-html.R

@@ -30,27 +30,14 @@ HtmlReporter <- setRefClass("HtmlReporter", contains = "Reporter",
 																output <- "<table>"
 																lapply(results[[context]],function(result){
 
-																	output <<- paste(output,paste('<tr>' ,
+																	output <- paste(output,paste('<tr>' ,
 																		    '<td> ',result$test,'</td>',
 																		    '<td> ',ifelse(result$passed,"OK","NO"),'</td>',
 																	     '</tr>',sep='\n'),sep='\n')
 
 																})
 																output <- paste(output,"</table>",sep="\n")
 																render <<- function()output
-# 																lapply(results[[context]],function(result){
-# 																	if (result$passed) {
-# 																		cat(colourise(".", fg = "light green"))
-# 																	} else {
-# 																		failed <<- TRUE
-# 																		cat(paste0("labels: ",length(labels), '\n'))
-# 																		cat(paste0("test: ",test, '\n'))
-# 																		cat(paste0("passed: ",result$passed, ', '))
-# 																		cat(paste0("error: ",result$error, '\n'))
-# 																		cat(paste0("message:\n", result$message ,'\n'))
-# 																		cat(paste0("elapsed time :", result$time,' seconds\n'))
-# 																		
-# 																	}
 															}
 														)
 )

man/runthat-package.Rd

@@ -0,0 +1,35 @@
+\name{runthat-package}
+\alias{runthat-package}
+\alias{runthat}
+\docType{package}
+\title{
+This is GUI test runner based on shiny and testthat.
+}
+\description{
+runthat make tests more handy and visual.
+}
+\details{
+\tabular{ll}{
+Package: \tab runthat\cr
+Type: \tab Package\cr
+Version: \tab 1.0\cr
+Date: \tab 2013-11-14\cr
+License: \tab  GPL + file LICENSE\cr
+}
+You need just to install runthat and call runthat().
+
+This will launch the main GUI interface.
+You can give it : 
+your files, directory or packages for tests.
+You can also chosse some tests to run.
+}
+\author{
+Amine GASSEM <contact@ag-study.com> 
+and Najmeddine NOURI <najm.no@gmail.com> 
+}
+
+
+\examples{
+library(runthat)
+runthat()
+}