Skip to content

Commit

Permalink
ready for CRAN
Browse files Browse the repository at this point in the history
  • Loading branch information
sachsmc committed Nov 26, 2014
1 parent 7f1b3aa commit 23e7c5d
Show file tree
Hide file tree
Showing 4 changed files with 12 additions and 8 deletions.
1 change: 1 addition & 0 deletions .Rbuildignore
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
^\.travis\.yml$
^.*\.Rproj$
^\.Rproj\.user$
^cran-comments\.md$
1 change: 1 addition & 0 deletions cran-comments.md
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
This is a new submission to CRAN. I agree to the terms and found no notes or errors on CRAN CHECK.
3 changes: 1 addition & 2 deletions readme.md
Original file line number Diff line number Diff line change
Expand Up @@ -11,8 +11,7 @@ The [rclinicaltrials](http://github.com/sachsmc/rclinicaltrials) package is in e

### Installation

The package is not currently available on
[CRAN](http://cran.r-project.org). To install, use
To install from github, use
`devtools::install_github()`, as follows:

```{r, eval = FALSE}
Expand Down
15 changes: 9 additions & 6 deletions vignettes/basics.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@ date: "`r Sys.Date()`"
output:
rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{examples}
%\VignetteIndexEntry{basics}
%\VignetteEngine{knitr::rmarkdown}
%\usepackage[utf8]{inputenc}
\usepackage[utf8]{inputenc}
---

## R interface to clinicaltrials.gov
Expand All @@ -16,8 +16,7 @@ vignette: >

### Installation

The package is not currently available on
[CRAN](http://cran.r-project.org). To install, use
To install the latest version from github, use
`devtools::install_github()`, as follows:

```{r, eval = FALSE}
Expand Down Expand Up @@ -106,13 +105,17 @@ dates$year <- sapply(strsplit(paste(dates$start_date), " "), function(d) as.nume
counts <- merge(gender_counts, dates, by = "nct_id")
```

```{r fig, fig.width = 6, fig.height = 5}
```{r fig}
library(ggplot2)
cts <- ddply(counts, ~ year + subtitle, summarize, count = sum(count))
colnames(cts)[2] <- "Gender"
ggplot(cts, aes(x = year, y = cumsum(count), color = Gender)) +
p <- ggplot(cts, aes(x = year, y = cumsum(count), color = Gender)) +
geom_line() + geom_point() +
labs(title = "Cumulative enrollment into Phase III, \n interventional trials in Melanoma, by gender") +
scale_y_continuous("Cumulative Enrollment") +
scale_x_continuous(breaks = 2000:2012)
```

```{r plo, fig.width = 6, fig.height = 5}
#p
```

0 comments on commit 23e7c5d

Please sign in to comment.