make running the test easier

Author: cpsievert

169-prerender-resources/app/app.R

@@ -1,8 +1,15 @@
 library(shiny)
 
 ui <- fluidPage(
-  "If you see this app and 'hello' in the JS console, then this test passed",
-  tags$script(src = "js/log-app.js")
+  "Below is a test for behavior described ",
+  a("here", href = "https://github.com/rstudio/rmarkdown/pull/1631"),
+  br(),
+  span(
+    id = "test-message",
+    style = "color: red",
+    "Test failed :("
+  ),
+  tags$script(src = "js/run-test.js")
 )
 
 server <- function(input, output) {}

169-prerender-resources/app/www/js/log-app.js

@@ -0,0 +1,3 @@
+$("#test-message")
+  .text("Test passed :)")
+  .css("color", "green");