tonywu1999 authored on 21/05/2025 18:15:41
• GitHub committed on 21/05/2025 18:15:41
| ... | ... |
@@ -11,7 +11,10 @@ |
| 11 | 11 |
#' NA |
| 12 | 12 |
#' |
| 13 | 13 |
server <- function(input, output, session) {
|
| 14 |
- options(shiny.maxRequestSize=10000*1024^2) |
|
| 14 |
+ isWebServer <- Sys.getenv("SHINY_ENV", "development") == "production"
|
|
| 15 |
+ if (isWebServer) {
|
|
| 16 |
+ options(shiny.maxRequestSize=250*1024^2) |
|
| 17 |
+ } |
|
| 15 | 18 |
session$allowReconnect(TRUE) |
| 16 | 19 |
observe({
|
| 17 | 20 |
toggleClass(condition = TRUE, |