return a valid response temporarily

2026-04-07 03:00:20 -04:00 · 2014-09-12 10:27:50 -05:00
parent 31a5bee228
commit 67ab5fbc8a
1 changed files with 1 additions and 1 deletions
--- a/R/shiny.R
+++ b/R/shiny.R
@@ -586,7 +586,7 @@ ShinySession <- R6Class(
      if (matches[2] == 'uploadie' && identical(req$REQUEST_METHOD, "POST")) {
        id <- URLdecode(matches[3])
        browser()
-        .input$set(id, Math.runif(1))
+        return(httpResponse(200, 'text/plain', 'OK'))
      }

      if (matches[2] == 'download') {