use reactlog::reactlog_add_shiny_resource_paths

DESCRIPTION

@@ -86,7 +86,7 @@ Suggests:
     markdown,
     rmarkdown,
     ggplot2,
-    reactlog (>= 0.0.0.9000),
+    reactlog (>= 0.0.0.9001),
     magrittr
 URL: http://shiny.rstudio.com
 BugReports: https://github.com/rstudio/shiny/issues

R/middleware-shiny.R

@@ -25,15 +25,11 @@ reactLogHandler <- function(req) {
 
     sessionToken <- parseQueryString(req$QUERY_STRING)$s
 
+    # `renderReactLog` will check/throw if reactlog doesn't exist
     reactlogFile <- renderReactLog(sessionToken)
 
     # add asset path after reactlog has been calculated (makes sure package exists)
-    if (!hasResourcePath("reactlogAsset")) {
-      addResourcePath(
-        "reactlogAsset",
-        system.file("reactlogAsset", package = "reactlog")
-      )
-    }
+    reactlog::reactlog_add_shiny_resource_paths()
 
     return(httpResponse(
       status = 200,

R/server.R

@@ -72,9 +72,6 @@ addResourcePath <- function(prefix, directoryPath) {
   )
 }
 
-hasResourcePath <- function(prefix) {
-  !is.null(.globals$resources[[prefix]])
-}
 
 resourcePathHandler <- function(req) {
   if (!identical(req$REQUEST_METHOD, 'GET'))