2019-10-03T06:22:13.698857+00:00 shinyapps[1276684]: Server version: 1.7.8-7 2019-10-03T06:22:13.698859+00:00 shinyapps[1276684]: LANG: C.UTF-8 2019-10-03T06:22:13.698897+00:00 shinyapps[1276684]: R version: 3.6.0 2019-10-03T06:22:13.698899+00:00 shinyapps[1276684]: shiny version: 1.3.2 2019-10-03T06:22:13.698900+00:00 shinyapps[1276684]: httpuv version: 1.5.1 2019-10-03T06:22:13.698926+00:00 shinyapps[1276684]: rmarkdown version: (none) 2019-10-03T06:22:13.698928+00:00 shinyapps[1276684]: knitr version: (none) 2019-10-03T06:22:13.698934+00:00 shinyapps[1276684]: jsonlite version: 1.6 2019-10-03T06:22:13.698986+00:00 shinyapps[1276684]: htmltools version: 0.3.6 2019-10-03T06:22:13.698976+00:00 shinyapps[1276684]: RJSONIO version: (none) 2019-10-03T06:22:13.699184+00:00 shinyapps[1276684]: Using pandoc at /opt/connect/ext/pandoc2 2019-10-03T06:22:13.843402+00:00 shinyapps[1276684]: Using jsonlite for JSON processing 2019-10-03T06:22:13.848903+00:00 shinyapps[1276684]: 2019-10-03T06:22:13.874521+00:00 shinyapps[1276684]: _ 2019-10-03T06:22:13.874523+00:00 shinyapps[1276684]: platform x86_64-pc-linux-gnu 2019-10-03T06:22:13.848905+00:00 shinyapps[1276684]: Starting R with process ID: '23' 2019-10-03T06:22:13.874525+00:00 shinyapps[1276684]: os linux-gnu 2019-10-03T06:22:13.874524+00:00 shinyapps[1276684]: arch x86_64 2019-10-03T06:22:13.874526+00:00 shinyapps[1276684]: system x86_64, linux-gnu 2019-10-03T06:22:13.874528+00:00 shinyapps[1276684]: status 2019-10-03T06:22:13.874529+00:00 shinyapps[1276684]: major 3 2019-10-03T06:22:13.874544+00:00 shinyapps[1276684]: minor 6.0 2019-10-03T06:22:13.874546+00:00 shinyapps[1276684]: month 04 2019-10-03T06:22:13.874551+00:00 shinyapps[1276684]: version.string R version 3.6.0 (2019-04-26) 2019-10-03T06:22:13.874549+00:00 shinyapps[1276684]: language R 2019-10-03T06:22:13.874552+00:00 shinyapps[1276684]: nickname Planting of a Tree 2019-10-03T06:22:13.874545+00:00 shinyapps[1276684]: year 2019 2019-10-03T06:22:13.874547+00:00 shinyapps[1276684]: day 26 2019-10-03T06:22:13.874548+00:00 shinyapps[1276684]: svn rev 76424 2019-10-03T06:22:13.874755+00:00 shinyapps[1276684]: sysname 2019-10-03T06:22:13.874756+00:00 shinyapps[1276684]: "Linux" 2019-10-03T06:22:13.874758+00:00 shinyapps[1276684]: release 2019-10-03T06:22:13.874759+00:00 shinyapps[1276684]: "4.4.0-1092-aws" 2019-10-03T06:22:13.874766+00:00 shinyapps[1276684]: "#103-Ubuntu SMP Tue Aug 27 10:21:48 UTC 2019" 2019-10-03T06:22:13.874784+00:00 shinyapps[1276684]: nodename 2019-10-03T06:22:13.874765+00:00 shinyapps[1276684]: version 2019-10-03T06:22:13.874787+00:00 shinyapps[1276684]: machine 2019-10-03T06:22:13.874789+00:00 shinyapps[1276684]: login 2019-10-03T06:22:13.874786+00:00 shinyapps[1276684]: "80a42e32e149" 2019-10-03T06:22:13.874788+00:00 shinyapps[1276684]: "x86_64" 2019-10-03T06:22:13.874792+00:00 shinyapps[1276684]: user 2019-10-03T06:22:13.874794+00:00 shinyapps[1276684]: effective_user 2019-10-03T06:22:13.874791+00:00 shinyapps[1276684]: "unknown" 2019-10-03T06:22:13.874793+00:00 shinyapps[1276684]: "shiny" 2019-10-03T06:22:13.874795+00:00 shinyapps[1276684]: "shiny" 2019-10-03T06:22:14.252829+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.252832+00:00 shinyapps[1276684]: Attaching package: ‘dplyr’ 2019-10-03T06:22:14.252834+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.253836+00:00 shinyapps[1276684]: The following objects are masked from ‘package:stats’: 2019-10-03T06:22:14.254196+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.323649+00:00 shinyapps[1276684]: Loading required package: StanHeaders 2019-10-03T06:22:14.253839+00:00 shinyapps[1276684]: filter, lag 2019-10-03T06:22:14.253840+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.254192+00:00 shinyapps[1276684]: The following objects are masked from ‘package:base’: 2019-10-03T06:22:14.254193+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.254195+00:00 shinyapps[1276684]: intersect, setdiff, setequal, union 2019-10-03T06:22:14.253838+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.612570+00:00 shinyapps[1276684]: rstan (Version 2.19.2, GitRev: 2e1f913d3ca3) 2019-10-03T06:22:14.612724+00:00 shinyapps[1276684]: For execution on a local, multicore CPU with excess RAM we recommend calling 2019-10-03T06:22:14.612726+00:00 shinyapps[1276684]: options(mc.cores = parallel::detectCores()). 2019-10-03T06:22:14.612727+00:00 shinyapps[1276684]: To avoid recompilation of unchanged Stan programs, we recommend calling 2019-10-03T06:22:14.612729+00:00 shinyapps[1276684]: rstan_options(auto_write = TRUE) 2019-10-03T06:22:14.614335+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.614338+00:00 shinyapps[1276684]: Attaching package: ‘rstan’ 2019-10-03T06:22:14.614340+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.614711+00:00 shinyapps[1276684]: The following object is masked from ‘package:tidyr’: 2019-10-03T06:22:14.614713+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.614715+00:00 shinyapps[1276684]: extract 2019-10-03T06:22:14.614716+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.654444+00:00 shinyapps[1276684]: 2019-10-03T06:22:14.654447+00:00 shinyapps[1276684]: Listening on http://127.0.0.1:41112 2019-10-03T06:22:23.711499+00:00 shinyapps[1276684]: 2019-10-03T06:22:23.711502+00:00 shinyapps[1276684]: *** caught illegal operation *** 2019-10-03T06:22:23.711503+00:00 shinyapps[1276684]: address 0x7f1a791f9351, cause 'illegal operand' 2019-10-03T06:22:23.719879+00:00 shinyapps[1276684]: 2019-10-03T06:22:23.719881+00:00 shinyapps[1276684]: Traceback: 2019-10-03T06:22:23.719883+00:00 shinyapps[1276684]: 1: dyn.load(libLFile) 2019-10-03T06:22:23.719884+00:00 shinyapps[1276684]: 2: cxxfun_from_dso_bin(object) 2019-10-03T06:22:23.719886+00:00 shinyapps[1276684]: 4: grab_cxxfun(object@dso) 2019-10-03T06:22:23.719885+00:00 shinyapps[1276684]: 3: .local(object, ...) 2019-10-03T06:22:23.719888+00:00 shinyapps[1276684]: 5: grab_cxxfun(object@dso) 2019-10-03T06:22:23.719890+00:00 shinyapps[1276684]: 7: object@mk_cppmodule(object) 2019-10-03T06:22:23.719889+00:00 shinyapps[1276684]: 6: prep_call_sampler(object) 2019-10-03T06:22:23.719913+00:00 shinyapps[1276684]: 8: .local(object, ...) 2019-10-03T06:22:23.719918+00:00 shinyapps[1276684]: 10: sampling(stan_model, data = c(data_stan(), list(y = c(1, 1), N = 2, y_sigma = 1)), chains = 1, iter = input$iter, warmup = as.integer(input$warmup/100 * input$iter), control = list(metric = "diag_e")) 2019-10-03T06:22:23.719916+00:00 shinyapps[1276684]: 9: sampling(stan_model, data = c(data_stan(), list(y = c(1, 1), N = 2, y_sigma = 1)), chains = 1, iter = input$iter, warmup = as.integer(input$warmup/100 * input$iter), control = list(metric = "diag_e")) 2019-10-03T06:22:23.719920+00:00 shinyapps[1276684]: 12: eval(lhs, parent, parent) 2019-10-03T06:22:23.719921+00:00 shinyapps[1276684]: 13: sampling(stan_model, data = c(data_stan(), list(y = c(1, 1), N = 2, y_sigma = 1)), chains = 1, iter = input$iter, warmup = as.integer(input$warmup/100 * input$iter), control = list(metric = "diag_e")) %>% samples2plot() %>% mutate(type = "Joint prior") 2019-10-03T06:22:23.719919+00:00 shinyapps[1276684]: 11: eval(lhs, parent, parent) 2019-10-03T06:22:23.719923+00:00 shinyapps[1276684]: 14: ``(...) 2019-10-03T06:22:23.719924+00:00 shinyapps[1276684]: 15: ..stacktraceon..(``(...)) 2019-10-03T06:22:23.719926+00:00 shinyapps[1276684]: 16: .func() 2019-10-03T06:22:23.719927+00:00 shinyapps[1276684]: 17: withVisible(.func()) 2019-10-03T06:22:23.719940+00:00 shinyapps[1276684]: 18: withCallingHandlers({ .error <<- FALSE withVisible(.func())}, error = function(cond) { .value <<- cond .error <<- TRUE .visible <<- FALSE}) 2019-10-03T06:22:23.719941+00:00 shinyapps[1276684]: 19: contextFunc() 2019-10-03T06:22:23.719942+00:00 shinyapps[1276684]: 20: env$runWith(self, func) 2019-10-03T06:22:23.719943+00:00 shinyapps[1276684]: 21: force(expr) 2019-10-03T06:22:23.719944+00:00 shinyapps[1276684]: 22: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.719946+00:00 shinyapps[1276684]: 23: promises::with_promise_domain(createVarPromiseDomain(.globals, "domain", domain), expr) 2019-10-03T06:22:23.719947+00:00 shinyapps[1276684]: 24: withReactiveDomain(.domain, { env <- .getReactiveEnvironment() rLog$enter(.reactId, id, .reactType, .domain) on.exit(rLog$exit(.reactId, id, .reactType, .domain), add = TRUE) env$runWith(self, func)}) 2019-10-03T06:22:23.719961+00:00 shinyapps[1276684]: 25: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.719963+00:00 shinyapps[1276684]: 26: promises::with_promise_domain(reactivePromiseDomain(), { withReactiveDomain(.domain, { env <- .getReactiveEnvironment() rLog$enter(.reactId, id, .reactType, .domain) on.exit(rLog$exit(.reactId, id, .reactType, .domain), add = TRUE) env$runWith(self, func) })}) 2019-10-03T06:22:23.719971+00:00 shinyapps[1276684]: 27: ctx$run(function() { result <- withCallingHandlers({ .error <<- FALSE withVisible(.func()) }, error = function(cond) { .value <<- cond .error <<- TRUE .visible <<- FALSE }) .value <<- result$value .visible <<- result$visible}) 2019-10-03T06:22:23.719977+00:00 shinyapps[1276684]: 28: self$.updateValue() 2019-10-03T06:22:23.719987+00:00 shinyapps[1276684]: 29: ..stacktraceoff..(self$.updateValue()) 2019-10-03T06:22:23.719989+00:00 shinyapps[1276684]: 31: dots_values(...) 2019-10-03T06:22:23.720008+00:00 shinyapps[1276684]: 36: `_fseq`(`_lhs`) 2019-10-03T06:22:23.720026+00:00 shinyapps[1276684]: 38: eval(quote(`_fseq`(`_lhs`)), env, env) 2019-10-03T06:22:23.720009+00:00 shinyapps[1276684]: 37: eval(quote(`_fseq`(`_lhs`)), env, env) 2019-10-03T06:22:23.720027+00:00 shinyapps[1276684]: 39: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env)) 2019-10-03T06:22:23.720041+00:00 shinyapps[1276684]: 41: renderPlot(...) 2019-10-03T06:22:23.719988+00:00 shinyapps[1276684]: 30: samples_joint_prior() 2019-10-03T06:22:23.720037+00:00 shinyapps[1276684]: 40: samples_input_prior() %>% bind_rows(samples_joint_prior()) %>% bind_rows(samples_posterior()) 2019-10-03T06:22:23.719997+00:00 shinyapps[1276684]: 33: bind_rows(., samples_joint_prior()) 2019-10-03T06:22:23.720044+00:00 shinyapps[1276684]: 43: func() 2019-10-03T06:22:23.719996+00:00 shinyapps[1276684]: 32: flatten_bindable(dots_values(...)) 2019-10-03T06:22:23.720043+00:00 shinyapps[1276684]: 42: ..stacktraceon..(renderPlot(...)) 2019-10-03T06:22:23.720085+00:00 shinyapps[1276684]: 52: tryCatchList(expr, classes, parentenv, handlers) 2019-10-03T06:22:23.719998+00:00 shinyapps[1276684]: 34: function_list[[i]](value) 2019-10-03T06:22:23.720045+00:00 shinyapps[1276684]: 44: force(expr) 2019-10-03T06:22:23.720006+00:00 shinyapps[1276684]: 35: freduce(value, `_function_list`) 2019-10-03T06:22:23.720046+00:00 shinyapps[1276684]: 45: withVisible(force(expr)) 2019-10-03T06:22:23.720047+00:00 shinyapps[1276684]: 46: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.720058+00:00 shinyapps[1276684]: 48: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.720056+00:00 shinyapps[1276684]: 47: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720074+00:00 shinyapps[1276684]: 49: captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) }}) 2019-10-03T06:22:23.720084+00:00 shinyapps[1276684]: 51: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 2019-10-03T06:22:23.720076+00:00 shinyapps[1276684]: 50: doTryCatch(return(expr), name, parentenv, handler) 2019-10-03T06:22:23.720123+00:00 shinyapps[1276684]: 53: tryCatch({ captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) } })}, error = function(e) { if (!is.null(catch)) catch(e) else stop(e)}, finally = if (runFinally && !is.null(finally)) finally()) 2019-10-03T06:22:23.720165+00:00 shinyapps[1276684]: 56: force(expr) 2019-10-03T06:22:23.720227+00:00 shinyapps[1276684]: 66: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 2019-10-03T06:22:23.720178+00:00 shinyapps[1276684]: 58: promises::with_promise_domain(domain, { hybrid_chain(func(), function(value, .visible) { if (.visible) { print.ggplot <- custom_print.ggplot utils::capture.output({ result <- ..stacktraceon..(print(value)) }) result } else { NULL } }, function(value) { list(plotResult = value, recordedPlot = grDevices::recordPlot(), coordmap = getCoordmap(value, width * pixelratio, height * pixelratio, res * pixelratio), pixelratio = pixelratio, res = res) })}) 2019-10-03T06:22:23.720256+00:00 shinyapps[1276684]: 68: tryCatch({ captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) } })}, error = function(e) { if (!is.null(catch)) catch(e) else stop(e)}, finally = if (runFinally && !is.null(finally)) finally()) 2019-10-03T06:22:23.720166+00:00 shinyapps[1276684]: 57: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720229+00:00 shinyapps[1276684]: 67: tryCatchList(expr, classes, parentenv, handlers) 2019-10-03T06:22:23.720184+00:00 shinyapps[1276684]: 59: force(expr) 2019-10-03T06:22:23.720261+00:00 shinyapps[1276684]: 69: do() 2019-10-03T06:22:23.720187+00:00 shinyapps[1276684]: 61: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.720198+00:00 shinyapps[1276684]: 62: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720299+00:00 shinyapps[1276684]: 72: withVisible(force(expr)) 2019-10-03T06:22:23.720139+00:00 shinyapps[1276684]: 54: do() 2019-10-03T06:22:23.720221+00:00 shinyapps[1276684]: 64: captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) }}) 2019-10-03T06:22:23.720302+00:00 shinyapps[1276684]: 74: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720164+00:00 shinyapps[1276684]: 55: hybrid_chain(func(), function(value, .visible) { if (.visible) { print.ggplot <- custom_print.ggplot utils::capture.output({ result <- ..stacktraceon..(print(value)) }) result } else { NULL }}, function(value) { list(plotResult = value, recordedPlot = grDevices::recordPlot(), coordmap = getCoordmap(value, width * pixelratio, height * pixelratio, res * pixelratio), pixelratio = pixelratio, res = res)}) 2019-10-03T06:22:23.720222+00:00 shinyapps[1276684]: 65: doTryCatch(return(expr), name, parentenv, handler) 2019-10-03T06:22:23.720312+00:00 shinyapps[1276684]: 75: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.720330+00:00 shinyapps[1276684]: 76: captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) }}) 2019-10-03T06:22:23.720338+00:00 shinyapps[1276684]: 78: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 2019-10-03T06:22:23.720332+00:00 shinyapps[1276684]: 77: doTryCatch(return(expr), name, parentenv, handler) 2019-10-03T06:22:23.720340+00:00 shinyapps[1276684]: 79: tryCatchList(expr, classes, parentenv, handlers) 2019-10-03T06:22:23.720298+00:00 shinyapps[1276684]: 71: force(expr) 2019-10-03T06:22:23.720375+00:00 shinyapps[1276684]: 81: do() 2019-10-03T06:22:23.720418+00:00 shinyapps[1276684]: 82: hybrid_chain(hybrid_chain(promises::with_promise_domain(domain, { hybrid_chain(func(), function(value, .visible) { if (.visible) { print.ggplot <- custom_print.ggplot utils::capture.output({ result <- ..stacktraceon..(print(value)) }) result } else { NULL } }, function(value) { list(plotResult = value, recordedPlot = grDevices::recordPlot(), coordmap = getCoordmap(value, width * pixelratio, height * pixelratio, res * pixelratio), pixelratio = pixelratio, res = res) }) }), finally = function() { grDevices::dev.off(device)}), function(result) { result$img <- dropNulls(list(src = session$fileUrl(name, outfile, contentType = "image/png"), width = width, height = height, coordmap = result$coordmap, error = attr(result$coordmap, "error", exact = TRUE))) result}, finally = function() { unlink(outfile)}) 2019-10-03T06:22:23.720185+00:00 shinyapps[1276684]: 60: withVisible(force(expr)) 2019-10-03T06:22:23.720288+00:00 shinyapps[1276684]: 70: hybrid_chain(promises::with_promise_domain(domain, { hybrid_chain(func(), function(value, .visible) { if (.visible) { print.ggplot <- custom_print.ggplot utils::capture.output({ result <- ..stacktraceon..(print(value)) }) result } else { NULL } }, function(value) { list(plotResult = value, recordedPlot = grDevices::recordPlot(), coordmap = getCoordmap(value, width * pixelratio, height * pixelratio, res * pixelratio), pixelratio = pixelratio, res = res) })}), finally = function() { grDevices::dev.off(device)}) 2019-10-03T06:22:23.720370+00:00 shinyapps[1276684]: 80: tryCatch({ captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) } })}, error = function(e) { if (!is.null(catch)) catch(e) else stop(e)}, finally = if (runFinally && !is.null(finally)) finally()) 2019-10-03T06:22:23.720200+00:00 shinyapps[1276684]: 63: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.720301+00:00 shinyapps[1276684]: 73: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.720428+00:00 shinyapps[1276684]: 83: drawPlot(name = "distPlot", session = , func = function (...) { if (..stacktraceon) ..stacktraceon..(renderPlot(...)) else renderPlot(...)}, width = 894L, height = 400L, pixelratio = 0.899999976158142, res = 72) 2019-10-03T06:22:23.720486+00:00 shinyapps[1276684]: 93: tryCatchList(expr, classes, parentenv, handlers) 2019-10-03T06:22:23.720436+00:00 shinyapps[1276684]: 86: withVisible(force(expr)) 2019-10-03T06:22:23.720445+00:00 shinyapps[1276684]: 88: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720443+00:00 shinyapps[1276684]: 87: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.720549+00:00 shinyapps[1276684]: 97: ``(...) 2019-10-03T06:22:23.720450+00:00 shinyapps[1276684]: 89: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.720479+00:00 shinyapps[1276684]: 91: doTryCatch(return(expr), name, parentenv, handler) 2019-10-03T06:22:23.720430+00:00 shinyapps[1276684]: 84: do.call("drawPlot", c(list(name = outputName, session = session, func = func, width = dims$width, height = dims$height, pixelratio = pixelratio, res = res), args)) 2019-10-03T06:22:23.720520+00:00 shinyapps[1276684]: 94: tryCatch({ captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) } })}, error = function(e) { if (!is.null(catch)) catch(e) else stop(e)}, finally = if (runFinally && !is.null(finally)) finally()) 2019-10-03T06:22:23.720597+00:00 shinyapps[1276684]: 104: force(expr) 2019-10-03T06:22:23.720434+00:00 shinyapps[1276684]: 85: force(expr) 2019-10-03T06:22:23.720521+00:00 shinyapps[1276684]: 95: do() 2019-10-03T06:22:23.720599+00:00 shinyapps[1276684]: 105: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720547+00:00 shinyapps[1276684]: 96: hybrid_chain({ dims <- if (execOnResize) getDims() else isolate(getDims()) pixelratio <- session$clientData$pixelratio %OR% 1 do.call("drawPlot", c(list(name = outputName, session = session, func = func, width = dims$width, height = dims$height, pixelratio = pixelratio, res = res), args))}, catch = function(reason) { getDims() stop(reason)}) 2019-10-03T06:22:23.720600+00:00 shinyapps[1276684]: 106: promises::with_promise_domain(createVarPromiseDomain(.globals, "domain", domain), expr) 2019-10-03T06:22:23.720577+00:00 shinyapps[1276684]: 98: ..stacktraceon..(``(...)) 2019-10-03T06:22:23.720605+00:00 shinyapps[1276684]: 108: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720604+00:00 shinyapps[1276684]: 107: withReactiveDomain(.domain, { env <- .getReactiveEnvironment() rLog$enter(.reactId, id, .reactType, .domain) on.exit(rLog$exit(.reactId, id, .reactType, .domain), add = TRUE) env$runWith(self, func)}) 2019-10-03T06:22:23.720578+00:00 shinyapps[1276684]: 99: .func() 2019-10-03T06:22:23.720611+00:00 shinyapps[1276684]: 109: promises::with_promise_domain(reactivePromiseDomain(), { withReactiveDomain(.domain, { env <- .getReactiveEnvironment() rLog$enter(.reactId, id, .reactType, .domain) on.exit(rLog$exit(.reactId, id, .reactType, .domain), add = TRUE) env$runWith(self, func) })}) 2019-10-03T06:22:23.720581+00:00 shinyapps[1276684]: 101: withCallingHandlers({ .error <<- FALSE withVisible(.func())}, error = function(cond) { .value <<- cond .error <<- TRUE .visible <<- FALSE}) 2019-10-03T06:22:23.720626+00:00 shinyapps[1276684]: 111: self$.updateValue() 2019-10-03T06:22:23.720477+00:00 shinyapps[1276684]: 90: captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) }}) 2019-10-03T06:22:23.720579+00:00 shinyapps[1276684]: 100: withVisible(.func()) 2019-10-03T06:22:23.720625+00:00 shinyapps[1276684]: 110: ctx$run(function() { result <- withCallingHandlers({ .error <<- FALSE withVisible(.func()) }, error = function(cond) { .value <<- cond .error <<- TRUE .visible <<- FALSE }) .value <<- result$value .visible <<- result$visible}) 2019-10-03T06:22:23.720583+00:00 shinyapps[1276684]: 103: env$runWith(self, func) 2019-10-03T06:22:23.720632+00:00 shinyapps[1276684]: 113: drawReactive() 2019-10-03T06:22:23.720484+00:00 shinyapps[1276684]: 92: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 2019-10-03T06:22:23.720582+00:00 shinyapps[1276684]: 102: contextFunc() 2019-10-03T06:22:23.720627+00:00 shinyapps[1276684]: 112: ..stacktraceoff..(self$.updateValue()) 2019-10-03T06:22:23.720681+00:00 shinyapps[1276684]: 122: tryCatchList(expr, classes, parentenv, handlers) 2019-10-03T06:22:23.720648+00:00 shinyapps[1276684]: 116: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.720734+00:00 shinyapps[1276684]: 126: origRenderFunc(...) 2019-10-03T06:22:23.720651+00:00 shinyapps[1276684]: 118: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.720745+00:00 shinyapps[1276684]: 128: ..stacktraceon..(`output$distPlot`(...)) 2019-10-03T06:22:23.720649+00:00 shinyapps[1276684]: 117: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720744+00:00 shinyapps[1276684]: 127: `output$distPlot`(...) 2019-10-03T06:22:23.720633+00:00 shinyapps[1276684]: 114: force(expr) 2019-10-03T06:22:23.720722+00:00 shinyapps[1276684]: 124: do() 2019-10-03T06:22:23.720761+00:00 shinyapps[1276684]: 134: captureStackTraces(expr) 2019-10-03T06:22:23.720634+00:00 shinyapps[1276684]: 115: withVisible(force(expr)) 2019-10-03T06:22:23.720733+00:00 shinyapps[1276684]: 125: hybrid_chain(drawReactive(), function(result) { dims <- getDims() pixelratio <- session$clientData$pixelratio %OR% 1 result <- do.call("resizeSavedPlot", c(list(name, shinysession, result, dims$width, dims$height, pixelratio, res), args)) result$img}) 2019-10-03T06:22:23.720772+00:00 shinyapps[1276684]: 135: withCallingHandlers(captureStackTraces(expr), error = function(e) { if (inherits(e, "shiny.silent.error")) return() handle <- getOption("shiny.error") if (is.function(handle)) handle()}) 2019-10-03T06:22:23.720675+00:00 shinyapps[1276684]: 120: doTryCatch(return(expr), name, parentenv, handler) 2019-10-03T06:22:23.720748+00:00 shinyapps[1276684]: 130: func() 2019-10-03T06:22:23.720715+00:00 shinyapps[1276684]: 123: tryCatch({ captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) } })}, error = function(e) { if (!is.null(catch)) catch(e) else stop(e)}, finally = if (runFinally && !is.null(finally)) finally()) 2019-10-03T06:22:23.720759+00:00 shinyapps[1276684]: 133: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.720781+00:00 shinyapps[1276684]: 136: shinyCallingHandlers(func()) 2019-10-03T06:22:23.720795+00:00 shinyapps[1276684]: 137: force(expr) 2019-10-03T06:22:23.720670+00:00 shinyapps[1276684]: 119: captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) }}) 2019-10-03T06:22:23.720746+00:00 shinyapps[1276684]: 129: orig(name = name, shinysession = self) 2019-10-03T06:22:23.720676+00:00 shinyapps[1276684]: 121: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 2019-10-03T06:22:23.720753+00:00 shinyapps[1276684]: 131: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.720809+00:00 shinyapps[1276684]: 141: force(expr) 2019-10-03T06:22:23.720826+00:00 shinyapps[1276684]: 144: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720807+00:00 shinyapps[1276684]: 140: private$withCurrentOutput(name, { shinyCallingHandlers(func())}) 2019-10-03T06:22:23.720755+00:00 shinyapps[1276684]: 132: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720823+00:00 shinyapps[1276684]: 142: withVisible(force(expr)) 2019-10-03T06:22:23.720853+00:00 shinyapps[1276684]: 146: captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) }}) 2019-10-03T06:22:23.720954+00:00 shinyapps[1276684]: 156: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720796+00:00 shinyapps[1276684]: 138: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720869+00:00 shinyapps[1276684]: 148: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 2019-10-03T06:22:23.720868+00:00 shinyapps[1276684]: 147: doTryCatch(return(expr), name, parentenv, handler) 2019-10-03T06:22:23.720797+00:00 shinyapps[1276684]: 139: promises::with_promise_domain(createVarPromiseDomain(private, "currentOutputName", name), expr) 2019-10-03T06:22:23.720873+00:00 shinyapps[1276684]: 149: tryCatchList(expr, classes, parentenv, handlers) 2019-10-03T06:22:23.720909+00:00 shinyapps[1276684]: 151: do() 2019-10-03T06:22:23.720947+00:00 shinyapps[1276684]: 154: withVisible(force(expr)) 2019-10-03T06:22:23.720827+00:00 shinyapps[1276684]: 145: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.720953+00:00 shinyapps[1276684]: 155: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.720897+00:00 shinyapps[1276684]: 150: tryCatch({ captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) } })}, error = function(e) { if (!is.null(catch)) catch(e) else stop(e)}, finally = if (runFinally && !is.null(finally)) finally()) 2019-10-03T06:22:23.720989+00:00 shinyapps[1276684]: 160: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 2019-10-03T06:22:23.720825+00:00 shinyapps[1276684]: 143: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.720946+00:00 shinyapps[1276684]: 153: force(expr) 2019-10-03T06:22:23.720983+00:00 shinyapps[1276684]: 158: captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) }}) 2019-10-03T06:22:23.721114+00:00 shinyapps[1276684]: 168: force(expr) 2019-10-03T06:22:23.720960+00:00 shinyapps[1276684]: 157: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.721113+00:00 shinyapps[1276684]: 167: env$runWith(self, func) 2019-10-03T06:22:23.721141+00:00 shinyapps[1276684]: 177: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.720991+00:00 shinyapps[1276684]: 161: tryCatchList(expr, classes, parentenv, handlers) 2019-10-03T06:22:23.721119+00:00 shinyapps[1276684]: 171: withReactiveDomain(.domain, { env <- .getReactiveEnvironment() rLog$enter(.reactId, id, .reactType, .domain) on.exit(rLog$exit(.reactId, id, .reactType, .domain), add = TRUE) env$runWith(self, func)}) 2019-10-03T06:22:23.721090+00:00 shinyapps[1276684]: 164: hybrid_chain(hybrid_chain({ private$withCurrentOutput(name, { shinyCallingHandlers(func()) })}, catch = function(cond) { if (inherits(cond, "shiny.custom.error")) { if (isTRUE(getOption("show.error.messages"))) printError(cond) structure(list(), class = "try-error", condition = cond) } else if (inherits(cond, "shiny.output.cancel")) { structure(list(), class = "cancel-output") } else if (inherits(cond, "shiny.silent.error")) { structure(list(), class = "try-error", condition = cond) } else { if (isTRUE(getOption("show.error.messages"))) printError(cond) if (getOption("shiny.sanitize.errors", FALSE)) { cond <- simpleError(paste("An error has occurred. Check your", "logs or contact the app author for", "clarification.")) } invisible(structure(list(), class = "try-error", condition = cond)) }}), function(value) { self$requestFlush() private$sendMessage(recalculating = list(name = name, status = "recalculated")) if (inherits(value, "cancel-output")) { return() } private$invalidatedOutputErrors$remove(name) private$invalidatedOutputValues$remove(name) if (inherits(value, "try-error")) { cond <- attr(value, "condition") type <- setdiff(class(cond), c("simpleError", "error", "condition")) private$invalidatedOutputErrors$set(name, list(message = cond$message, call = utils::capture.output(print(cond$call)), type = if (length(type)) type)) } else private$invalidatedOutputValues$set(name, value)}) 2019-10-03T06:22:23.721127+00:00 shinyapps[1276684]: 174: ctx$run(.func) 2019-10-03T06:22:23.721091+00:00 shinyapps[1276684]: 165: ``(...) 2019-10-03T06:22:23.721139+00:00 shinyapps[1276684]: 175: run() 2019-10-03T06:22:23.721117+00:00 shinyapps[1276684]: 170: promises::with_promise_domain(createVarPromiseDomain(.globals, "domain", domain), expr) 2019-10-03T06:22:23.721159+00:00 shinyapps[1276684]: 180: withCallingHandlers(captureStackTraces(expr), error = function(e) { if (inherits(e, "shiny.silent.error")) return() handle <- getOption("shiny.error") if (is.function(handle)) handle()}) 2019-10-03T06:22:23.720939+00:00 shinyapps[1276684]: 152: hybrid_chain({ private$withCurrentOutput(name, { shinyCallingHandlers(func()) })}, catch = function(cond) { if (inherits(cond, "shiny.custom.error")) { if (isTRUE(getOption("show.error.messages"))) printError(cond) structure(list(), class = "try-error", condition = cond) } else if (inherits(cond, "shiny.output.cancel")) { structure(list(), class = "cancel-output") } else if (inherits(cond, "shiny.silent.error")) { structure(list(), class = "try-error", condition = cond) } else { if (isTRUE(getOption("show.error.messages"))) printError(cond) if (getOption("shiny.sanitize.errors", FALSE)) { cond <- simpleError(paste("An error has occurred. Check your", "logs or contact the app author for", "clarification.")) } invisible(structure(list(), class = "try-error", condition = cond)) }}) 2019-10-03T06:22:23.721025+00:00 shinyapps[1276684]: 162: tryCatch({ captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) } })}, error = function(e) { if (!is.null(catch)) catch(e) else stop(e)}, finally = if (runFinally && !is.null(finally)) finally()) 2019-10-03T06:22:23.721030+00:00 shinyapps[1276684]: 163: do() 2019-10-03T06:22:23.721126+00:00 shinyapps[1276684]: 173: promises::with_promise_domain(reactivePromiseDomain(), { withReactiveDomain(.domain, { env <- .getReactiveEnvironment() rLog$enter(.reactId, id, .reactType, .domain) on.exit(rLog$exit(.reactId, id, .reactType, .domain), add = TRUE) env$runWith(self, func) })}) 2019-10-03T06:22:23.721112+00:00 shinyapps[1276684]: 166: contextFunc() 2019-10-03T06:22:23.721140+00:00 shinyapps[1276684]: 176: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.721160+00:00 shinyapps[1276684]: 181: shinyCallingHandlers(run()) 2019-10-03T06:22:23.721124+00:00 shinyapps[1276684]: 172: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.721165+00:00 shinyapps[1276684]: 182: force(expr) 2019-10-03T06:22:23.720985+00:00 shinyapps[1276684]: 159: doTryCatch(return(expr), name, parentenv, handler) 2019-10-03T06:22:23.721116+00:00 shinyapps[1276684]: 169: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.721148+00:00 shinyapps[1276684]: 179: captureStackTraces(expr) 2019-10-03T06:22:23.721245+00:00 shinyapps[1276684]: 191: tryCatch({ captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) } })}, error = function(e) { if (!is.null(catch)) catch(e) else stop(e)}, finally = if (runFinally && !is.null(finally)) finally()) 2019-10-03T06:22:23.721215+00:00 shinyapps[1276684]: 190: tryCatchList(expr, classes, parentenv, handlers) 2019-10-03T06:22:23.721199+00:00 shinyapps[1276684]: 187: captureStackTraces({ result <- withVisible(force(expr)) if (promises::is.promising(result$value)) { p <- promise_chain(setVisible(result), ..., catch = catch, finally = finally) runFinally <- FALSE p } else { result <- Reduce(function(v, func) { if (".visible" %in% names(formals(func))) { withVisible(func(v$value, .visible = v$visible)) } else { withVisible(func(v$value)) } }, list(...), result) setVisible(result) }}) 2019-10-03T06:22:23.721280+00:00 shinyapps[1276684]: 197: ctx$executeFlushCallbacks() 2019-10-03T06:22:23.721167+00:00 shinyapps[1276684]: 184: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.721264+00:00 shinyapps[1276684]: 194: flushCallback() 2019-10-03T06:22:23.721177+00:00 shinyapps[1276684]: 185: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.721274+00:00 shinyapps[1276684]: 195: FUN(X[[i]], ...) 2019-10-03T06:22:23.721338+00:00 shinyapps[1276684]: 205: captureStackTraces({ while (!.globals$stopped) { ..stacktracefloor..(serviceApp()) Sys.sleep(0.001) }}) 2019-10-03T06:22:23.721166+00:00 shinyapps[1276684]: 183: withVisible(force(expr)) 2019-10-03T06:22:23.721260+00:00 shinyapps[1276684]: 193: hybrid_chain({ if (!.destroyed) { shinyCallingHandlers(run()) }}, catch = function(e) { if (inherits(e, "shiny.silent.error")) { return() } printError(e) if (!is.null(.domain)) { .domain$unhandledError(e) }}, finally = .domain$decrementBusyCount) 2019-10-03T06:22:23.721314+00:00 shinyapps[1276684]: 203: globals$domain$wrapSync(expr) 2019-10-03T06:22:23.721147+00:00 shinyapps[1276684]: 178: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.721205+00:00 shinyapps[1276684]: 188: doTryCatch(return(expr), name, parentenv, handler) 2019-10-03T06:22:23.721178+00:00 shinyapps[1276684]: 186: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.721275+00:00 shinyapps[1276684]: 196: lapply(.flushCallbacks, function(flushCallback) { flushCallback()}) 2019-10-03T06:22:23.721311+00:00 shinyapps[1276684]: 201: ..stacktracefloor..(serviceApp()) 2019-10-03T06:22:23.721783+00:00 shinyapps[1276684]: 211: tryCatchList(expr, classes, parentenv, handlers) 2019-10-03T06:22:23.721290+00:00 shinyapps[1276684]: 200: serviceApp() 2019-10-03T06:22:23.721214+00:00 shinyapps[1276684]: 189: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 2019-10-03T06:22:23.721289+00:00 shinyapps[1276684]: 199: flushReact() 2019-10-03T06:22:23.721343+00:00 shinyapps[1276684]: 209: doTryCatch(return(expr), name, parentenv, handler) 2019-10-03T06:22:23.721339+00:00 shinyapps[1276684]: 206: ..stacktraceoff..(captureStackTraces({ while (!.globals$stopped) { ..stacktracefloor..(serviceApp()) Sys.sleep(0.001) }})) 2019-10-03T06:22:23.722008+00:00 shinyapps[1276684]: 216: eval(expr, p) 2019-10-03T06:22:23.721344+00:00 shinyapps[1276684]: 210: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 2019-10-03T06:22:23.721340+00:00 shinyapps[1276684]: 207: runApp(config$AppDir, host = config$Host, port = port, launch.browser = FALSE, workerId = config$WorkerId) 2019-10-03T06:22:23.721316+00:00 shinyapps[1276684]: 204: promises::with_promise_domain(createStackTracePromiseDomain(), expr) 2019-10-03T06:22:23.721982+00:00 shinyapps[1276684]: 214: eval(quote({ if (identical(.Platform$OS.type, "unix")) { whoami <- system("whoami", intern = TRUE) if (identical(whoami, "root")) { stop("Attempted to run application as whoami=", whoami, "; USER=", Sys.getenv("USER")) } } fd <- file("stdin") d <- read.dcf(fd) close(fd) config <- as.list(structure(as.vector(d), names = colnames(d))) expectedFields <- c("ConnectDir", "Version", "InstalledRVersion", "BundleRVersion", "AppDir", "BookmarkDir", "Host", "Port", "SharedSecret", "WorkerId", "AppMode", "HTMLInclude", "IgnorePackrat", "ErrorSanitization", "TraceFlushReact", "Reconnect", "ReconnectMs", "DisabledProtocols", "TransportDebugging", "ForcePandocVersion", "MinimumPandoc2RMarkdownVersion", "InstalledPythonVersion") missingFields <- setdiff(expectedFields, names(config)) unexpectedFields <- setdiff(names(config), expectedFields) if (length(missingFields) != 0 || length(unexpectedFields) != 0) { fmt <- "Unexpected configuration; missing fields: %s; unexpected fields: %s" stop(sprintf(fmt, paste0(missingFields, collapse = ", "), paste0(unexpectedFields, collapse = ", "))) } PRODUCT_NAME <- "RStudio Connect" MIN_R_VERSION <- "2.15.1" MIN_SHINY_VERSION <- "0.7.0" MIN_RMARKDOWN_VERSION <- "0.1.90" MIN_KNITR_VERSION <- "1.5.32" MIN_SHINY_RMARKDOWN_VERSION <- "0.9.1.9005" source(file = file.path(config$ConnectDir, "R", "connect.R"), local = TRUE) connect$printOS(config) connect$enforceMinimumRVersion(MIN_R_VERSION) if (config$IgnorePackrat != "true") { connect$enforceInstalledRVersion(config$InstalledRVersion) connect$enforceAssumedRVersion(config$BundleRVersion) connect$enforcePackratHealth() connect$configureAppLibDir(config$AppDir) } connect$enforceInstalledPython(config$InstalledPythonVersion) packages <- c("shiny", "httpuv", "rmarkdown", "knitr", "jsonlite", "RJSONIO", "htmltools") versions <- connect$getVersions(packages) cat(paste("Server version: ", config$Version, "\n", sep = "")) connect$printEnvironment() connect$printVersions(packages, versions) connect$checkReticulatePython() connect$enforcePackageVersion("shiny", MIN_SHINY_VERSION, versions$shiny) if (identical(config$AppMode, "shinyrmd")) { connect$enforcePackageVersion("rmarkdown", MIN_RMARKDOWN_VERSION, versions$rmarkdown) connect$enforceDependentPackageVersion("shiny", MIN_SHINY_RMARKDOWN_VERSION, versions$shiny, "rmarkdown") connect$enforceDependentPackageVersion("knitr", MIN_KNITR_VERSION, versions$knitr, "rmarkdown") } connect$configurePandoc(config, versions) connect$configureBrowseURL() connect$fixupCrossPackageReferences() library(shiny) Sys.setenv(SHINY_PORT = config$Port, SHINY_SERVER_VERSION = config$Version) options(shiny.sanitize.errors = (config$ErrorSanitization == "true")) options(shiny.sharedSecret = config$SharedSecret) if (exists("setServerInfo", envir = asNamespace("shiny"))) { shiny:::setServerInfo(shinyServer = TRUE, version = config$Version, edition = "Connect") } helpers <- connect$configureShinyHelpers(versions) shinyFilter <- connect$configureShinyFilter(config, helpers, versions) options(shiny.http.response.filter = shinyFilter) connect$configureShinyBookmarking(config$BookmarkDir) port <- suppressWarnings(as.integer(config$Port)) if (is.na(port)) { port <- config$Port attr(port, "mask") <- strtoi("0077", 8) } cat(paste("\nStarting R with process ID: '", Sys.getpid(), "'\n", sep = "")) if (config$TraceFlushReact == "true") { assign(".shiny__stdout", stdout(), envir = globalenv()) } connect$retry(function() { if (identical(config$AppMode, "shiny")) { if ("host" %in% names(formals(shiny::runApp))) { runApp(config$AppDir, host = config$Host, port = port, launch.browser = FALSE, workerId = config$WorkerId) } else { runApp(config$AppDir, port = port, launch.browser = FALSE, workerId = config$WorkerId) } } else if (identical(config$AppMode, "shinyrmd")) { library(rmarkdown) shiny_args <- list(port = port, launch.browser = FALSE, workerId = config$WorkerId) if ("host" %in% names(formals(shiny::runApp))) { shiny_args[["host"]] = config$Host } rmarkdown::run(file = NULL, dir = config$AppDir, shiny_args = shiny_args, render_args = if (compareVersion("1.7", versions$rmarkdown) <= 0) list(envir = globalenv()), auto_reload = FALSE) } else { stop(paste("Unclear Shiny mode:", config$AppMode)) } }, isRetryable = function(e) { e$message == "Failed to create server" }, delay = function(iter) { (iter - 1) * 0.5 }) invisible(environment())}), new.env()) 2019-10-03T06:22:23.722006+00:00 shinyapps[1276684]: 215: eval(quote({ if (identical(.Platform$OS.type, "unix")) { whoami <- system("whoami", intern = TRUE) if (identical(whoami, "root")) { stop("Attempted to run application as whoami=", whoami, "; USER=", Sys.getenv("USER")) } } fd <- file("stdin") d <- read.dcf(fd) close(fd) config <- as.list(structure(as.vector(d), names = colnames(d))) expectedFields <- c("ConnectDir", "Version", "InstalledRVersion", "BundleRVersion", "AppDir", "BookmarkDir", "Host", "Port", "SharedSecret", "WorkerId", "AppMode", "HTMLInclude", "IgnorePackrat", "ErrorSanitization", "TraceFlushReact", "Reconnect", "ReconnectMs", "DisabledProtocols", "TransportDebugging", "ForcePandocVersion", "MinimumPandoc2RMarkdownVersion", "InstalledPythonVersion") missingFields <- setdiff(expectedFields, names(config)) unexpectedFields <- setdiff(names(config), expectedFields) if (length(missingFields) != 0 || length(unexpectedFields) != 0) { fmt <- "Unexpected configuration; missing fields: %s; unexpected fields: %s" stop(sprintf(fmt, paste0(missingFields, collapse = ", "), paste0(unexpectedFields, collapse = ", "))) } PRODUCT_NAME <- "RStudio Connect" MIN_R_VERSION <- "2.15.1" MIN_SHINY_VERSION <- "0.7.0" MIN_RMARKDOWN_VERSION <- "0.1.90" MIN_KNITR_VERSION <- "1.5.32" MIN_SHINY_RMARKDOWN_VERSION <- "0.9.1.9005" source(file = file.path(config$ConnectDir, "R", "connect.R"), local = TRUE) connect$printOS(config) connect$enforceMinimumRVersion(MIN_R_VERSION) if (config$IgnorePackrat != "true") { connect$enforceInstalledRVersion(config$InstalledRVersion) connect$enforceAssumedRVersion(config$BundleRVersion) connect$enforcePackratHealth() connect$configureAppLibDir(config$AppDir) } connect$enforceInstalledPython(config$InstalledPythonVersion) packages <- c("shiny", "httpuv", "rmarkdown", "knitr", "jsonlite", "RJSONIO", "htmltools") versions <- connect$getVersions(packages) cat(paste("Server version: ", config$Version, "\n", sep = "")) connect$printEnvironment() connect$printVersions(packages, versions) connect$checkReticulatePython() connect$enforcePackageVersion("shiny", MIN_SHINY_VERSION, versions$shiny) if (identical(config$AppMode, "shinyrmd")) { connect$enforcePackageVersion("rmarkdown", MIN_RMARKDOWN_VERSION, versions$rmarkdown) connect$enforceDependentPackageVersion("shiny", MIN_SHINY_RMARKDOWN_VERSION, versions$shiny, "rmarkdown") connect$enforceDependentPackageVersion("knitr", MIN_KNITR_VERSION, versions$knitr, "rmarkdown") } connect$configurePandoc(config, versions) connect$configureBrowseURL() connect$fixupCrossPackageReferences() library(shiny) Sys.setenv(SHINY_PORT = config$Port, SHINY_SERVER_VERSION = config$Version) options(shiny.sanitize.errors = (config$ErrorSanitization == "true")) options(shiny.sharedSecret = config$SharedSecret) if (exists("setServerInfo", envir = asNamespace("shiny"))) { shiny:::setServerInfo(shinyServer = TRUE, version = config$Version, edition = "Connect") } helpers <- connect$configureShinyHelpers(versions) shinyFilter <- connect$configureShinyFilter(config, helpers, versions) options(shiny.http.response.filter = shinyFilter) connect$configureShinyBookmarking(config$BookmarkDir) port <- suppressWarnings(as.integer(config$Port)) if (is.na(port)) { port <- config$Port attr(port, "mask") <- strtoi("0077", 8) } cat(paste("\nStarting R with process ID: '", Sys.getpid(), "'\n", sep = "")) if (config$TraceFlushReact == "true") { assign(".shiny__stdout", stdout(), envir = globalenv()) } connect$retry(function() { if (identical(config$AppMode, "shiny")) { if ("host" %in% names(formals(shiny::runApp))) { runApp(config$AppDir, host = config$Host, port = port, launch.browser = FALSE, workerId = config$WorkerId) } else { runApp(config$AppDir, port = port, launch.browser = FALSE, workerId = config$WorkerId) } } else if (identical(config$AppMode, "shinyrmd")) { library(rmarkdown) shiny_args <- list(port = port, launch.browser = FALSE, workerId = config$WorkerId) if ("host" %in% names(formals(shiny::runApp))) { shiny_args[["host"]] = config$Host } rmarkdown::run(file = NULL, dir = config$AppDir, shiny_args = shiny_args, render_args = if (compareVersion("1.7", versions$rmarkdown) <= 0) list(envir = globalenv()), auto_reload = FALSE) } else { stop(paste("Unclear Shiny mode:", config$AppMode)) } }, isRetryable = function(e) { e$message == "Failed to create server" }, delay = function(iter) { (iter - 1) * 0.5 }) invisible(environment())}), new.env()) 2019-10-03T06:22:23.721281+00:00 shinyapps[1276684]: 198: .getReactiveEnvironment()$flush() 2019-10-03T06:22:23.721342+00:00 shinyapps[1276684]: 208: fn() 2019-10-03T06:22:23.722011+00:00 shinyapps[1276684]: 218: eval.parent(substitute(eval(quote(expr), envir))) 2019-10-03T06:22:23.721254+00:00 shinyapps[1276684]: 192: do() 2019-10-03T06:22:23.721313+00:00 shinyapps[1276684]: 202: withCallingHandlers(expr, error = doCaptureStack) 2019-10-03T06:22:23.721806+00:00 shinyapps[1276684]: 212: tryCatch({ return(fn())}, error = function(e) { err <- e if (i < n && isRetryable(err)) { sleepytime <- delay(i) cat(paste0("Retrying after ", sleepytime, "s delay due to error: ", err$message, "\n", sep = "")) Sys.sleep(sleepytime) } else { stop(err$message) }}) 2019-10-03T06:22:23.722025+00:00 shinyapps[1276684]: An irrecoverable exception occurred. R is aborting now ... 2019-10-03T06:22:23.722024+00:00 shinyapps[1276684]: 219: local({ if (identical(.Platform$OS.type, "unix")) { whoami <- system("whoami", intern = TRUE) if (identical(whoami, "root")) { stop("Attempted to run application as whoami=", whoami, "; USER=", Sys.getenv("USER")) } } fd <- file("stdin") d <- read.dcf(fd) close(fd) config <- as.list(structure(as.vector(d), names = colnames(d))) expectedFields <- c("ConnectDir", "Version", "InstalledRVersion", "BundleRVersion", "AppDir", "BookmarkDir", "Host", "Port", "SharedSecret", "WorkerId", "AppMode", "HTMLInclude", "IgnorePackrat", "ErrorSanitization", "TraceFlushReact", "Reconnect", "ReconnectMs", "DisabledProtocols", "TransportDebugging", "ForcePandocVersion", "MinimumPandoc2RMarkdownVersion", "InstalledPythonVersion") missingFields <- setdiff(expectedFields, names(config)) unexpectedFields <- setdiff(names(config), expectedFields) if (length(missingFields) != 0 || length(unexpectedFields) != 0) { fmt <- "Unexpected configuration; missing fields: %s; unexpected fields: %s" stop(sprintf(fmt, paste0(missingFields, collapse = ", "), paste0(unexpectedFields, collapse = ", "))) } PRODUCT_NAME <- "RStudio Connect" MIN_R_VERSION <- "2.15.1" MIN_SHINY_VERSION <- "0.7.0" MIN_RMARKDOWN_VERSION <- "0.1.90" MIN_KNITR_VERSION <- "1.5.32" MIN_SHINY_RMARKDOWN_VERSION <- "0.9.1.9005" source(file = file.path(config$ConnectDir, "R", "connect.R"), local = TRUE) connect$printOS(config) connect$enforceMinimumRVersion(MIN_R_VERSION) if (config$IgnorePackrat != "true") { connect$enforceInstalledRVersion(config$InstalledRVersion) connect$enforceAssumedRVersion(config$BundleRVersion) connect$enforcePackratHealth() connect$configureAppLibDir(config$AppDir) } connect$enforceInstalledPython(config$InstalledPythonVersion) packages <- c("shiny", "httpuv", "rmarkdown", "knitr", "jsonlite", "RJSONIO", "htmltools") versions <- connect$getVersions(packages) cat(paste("Server version: ", config$Version, "\n", sep = "")) connect$printEnvironment() connect$printVersions(packages, versions) connect$checkReticulatePython() connect$enforcePackageVersion("shiny", MIN_SHINY_VERSION, versions$shiny) if (identical(config$AppMode, "shinyrmd")) { connect$enforcePackageVersion("rmarkdown", MIN_RMARKDOWN_VERSION, versions$rmarkdown) connect$enforceDependentPackageVersion("shiny", MIN_SHINY_RMARKDOWN_VERSION, versions$shiny, "rmarkdown") connect$enforceDependentPackageVersion("knitr", MIN_KNITR_VERSION, versions$knitr, "rmarkdown") } connect$configurePandoc(config, versions) connect$configureBrowseURL() connect$fixupCrossPackageReferences() library(shiny) Sys.setenv(SHINY_PORT = config$Port, SHINY_SERVER_VERSION = config$Version) options(shiny.sanitize.errors = (config$ErrorSanitization == "true")) options(shiny.sharedSecret = config$SharedSecret) if (exists("setServerInfo", envir = asNamespace("shiny"))) { shiny:::setServerInfo(shinyServer = TRUE, version = config$Version, edition = "Connect") } helpers <- connect$configureShinyHelpers(versions) shinyFilter <- connect$configureShinyFilter(config, helpers, versions) options(shiny.http.response.filter = shinyFilter) connect$configureShinyBookmarking(config$BookmarkDir) port <- suppressWarnings(as.integer(config$Port)) if (is.na(port)) { port <- config$Port attr(port, "mask") <- strtoi("0077", 8) } cat(paste("\nStarting R with process ID: '", Sys.getpid(), "'\n", sep = "")) if (config$TraceFlushReact == "true") { assign(".shiny__stdout", stdout(), envir = globalenv()) } connect$retry(function() { if (identical(config$AppMode, "shiny")) { if ("host" %in% names(formals(shiny::runApp))) { runApp(config$AppDir, host = config$Host, port = port, launch.browser = FALSE, workerId = config$WorkerId) } else { runApp(config$AppDir, port = port, launch.browser = FALSE, workerId = config$WorkerId) } } else if (identical(config$AppMode, "shinyrmd")) { library(rmarkdown) shiny_args <- list(port = port, launch.browser = FALSE, workerId = config$WorkerId) if ("host" %in% names(formals(shiny::runApp))) { shiny_args[["host"]] = config$Host } rmarkdown::run(file = NULL, dir = config$AppDir, shiny_args = shiny_args, render_args = if (compareVersion("1.7", versions$rmarkdown) <= 0) list(envir = globalenv()), auto_reload = FALSE) } else { stop(paste("Unclear Shiny mode:", config$AppMode)) } }, isRetryable = function(e) { e$message == "Failed to create server" }, delay = function(iter) { (iter - 1) * 0.5 }) invisible(environment())}) 2019-10-03T06:22:23.722009+00:00 shinyapps[1276684]: 217: eval(expr, p) 2019-10-03T06:22:23.721916+00:00 shinyapps[1276684]: 213: connect$retry(function() { if (identical(config$AppMode, "shiny")) { if ("host" %in% names(formals(shiny::runApp))) { runApp(config$AppDir, host = config$Host, port = port, launch.browser = FALSE, workerId = config$WorkerId) } else { runApp(config$AppDir, port = port, launch.browser = FALSE, workerId = config$WorkerId) } } else if (identical(config$AppMode, "shinyrmd")) { library(rmarkdown) shiny_args <- list(port = port, launch.browser = FALSE, workerId = config$WorkerId) if ("host" %in% names(formals(shiny::runApp))) { shiny_args[["host"]] = config$Host } rmarkdown::run(file = NULL, dir = config$AppDir, shiny_args = shiny_args, render_args = if (compareVersion("1.7", versions$rmarkdown) <= 0) list(envir = globalenv()), auto_reload = FALSE) } else { stop(paste("Unclear Shiny mode:", config$AppMode)) }}, isRetryable = function(e) { e$message == "Failed to create server"}, delay = function(iter) { (iter - 1) * 0.5})