Default to index.Rmd

rstudio · Apr 17, 2014 · d6f626d · d6f626d
1 parent d5b76ed
commit d6f626d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/SockJSAdapter.R b/R/SockJSAdapter.R
@@ -146,7 +146,9 @@ if (identical(mode, "shiny")){
   }
   library(rmarkdown)
 
-  rmarkdown::run(Sys.getenv('SHINY_APP'), 
+  # TODO: this should point to whatever Rmd doc is specified in the URL.
+  # TODO: don't presume (case-sensitive) "index.Rmd", find the real file.
+  rmarkdown::run(file.path(Sys.getenv('SHINY_APP'), "index.Rmd"), 
     shiny_args=list(port=port,launch.browser=FALSE))
 } else{
   stop(paste("Unclear Shiny mode:", mode))