fix runExample for #44 and add alias viewExample. might need to remov…

…e runExample as it conflicts with shiny.
ramnathv · Apr 26, 2013 · 8a4abf0 · 8a4abf0
1 parent f114714
commit 8a4abf0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/publish.R b/R/publish.R
@@ -20,9 +20,9 @@ publish_.rpubs <- function(files, description, ...){
 #    repo = 'rCharts_polycharts_standalone', 
 #   filename = 'bar_athletes.R'
 # )
-runExample <- function(repo, username, ref = 'master', filename){
+viewExample <- runExample <- function(repo, username, ref = 'master', filename){
   require(downloader)
-  tf <- tempfile(pattern = '*.R')
+  tf <- tempfile(pattern = '.R')
   url <- sprintf('https://raw.github.com/%s/%s/%s/%s',
     username, repo, ref, filename)
   download(url, tf)