Is there an upper limit of code in R

[MathieuVandamme]

Hi all

I am working on a Shiny app for some time. I have an file upload and tabs in the UI and calculations in the server. When I add an extra tab, my file upload don't seems to work any more, I checked multiple times, but it don't work. I can select an local file on my pc, but after that, it don't seems to respond anymore. When I remove the last tabPanel, it works fine, but I don't see the problem. Is there a possibility that R code is starting to get to big? I have only 300 lines of code, or is there not such thing? I don't get an error.

library(shiny)
library(lubridate)
library(tidyverse)
library(ggplot2)
library(shinythemes)
library(celestial)
library(data.table)

options(shiny.maxRequestSize=30*1024^2)



ui = navbarPage(theme = shinytheme("superhero"),
                title = "Interactive data analyse tool RDK",
                tabPanel("Data upload & bio", icon = icon("fa-duotone fa-file-import"),
                         sidebarLayout(
                           sidebarPanel(
                             fileInput("import", "Choose TXT/CSV File", accept = c("text/csv",
                                                                                   "text/comma-separated-values,text/plain",
                                                                                   ".csv"))
                           ),
                           mainPanel(
                             h1("Origin and goal of this project.")
                           )
                         )),
                navbarMenu("Sample distribution over 24h",
                           tabPanel("Distribution based on TEST", icon = icon("fa-duotone fa-flask-vial"),
                                    sidebarLayout(
                                      sidebarPanel(
                                        selectInput("test", "Test:", choices = NULL)),
                                      mainPanel(
                                        plotOutput("barplot1")))),
                           tabPanel("Distribution based on SYSTEM", icon = icon("fa-duotone fa-microscope"),
                                    sidebarLayout(
                                      sidebarPanel(
                                        selectInput("system", "System:", choices = NULL)),
                                      mainPanel(
                                        plotOutput("barplot2")))),
                           tabPanel("Distribution based on LOCATION", icon = icon("fa-duotone fa-building-flag"),
                                    sidebarLayout(
                                      sidebarPanel(
                                        selectInput("location", "Location:", choices = NULL)),
                                      mainPanel(
                                        plotOutput("barplot3")))),
                           tabPanel("Distribution based on VALIDATED BY", icon = icon("fa-duotone fa-user-check"),
                                    sidebarLayout(
                                      sidebarPanel(
                                        selectInput("validation", "Validated by:", choices = NULL)),
                                      mainPanel(
                                        plotOutput("barplot4"))))),
                
                 navbarMenu("Statistics TAT",         
                     tabPanel("Overall TAT", icon = icon("fa-duotone fa-calculator"),
                         sidebarLayout(
                           sidebarPanel(
                             h3("Statistical values"),
                             p("The mean TAT is:"),
                             tableOutput("mean_overall"),
                             p("The quantiles expressed in minutes:"),
                             tableOutput("quantiles_overall")),
                           
                           mainPanel(
                             h3("Statistical plot"),
                             plotOutput("barplot5")))),
                     tabPanel("TAT per TEST", icon = icon("fa-duotone fa-flask-vial"),
                              sidebarLayout(
                                sidebarPanel(
                                  h3("Statistical values"),
                                  p("The mean TAT is:"),
                                  tableOutput("mean_overall"),
                                  p("The quantiles expressed in minutes:"),
                                  tableOutput("quantiles_overall")),
                                
                                mainPanel(
                                  h3("Statistical plot"),
                                  plotOutput("barplot5")))))
)

Thanks in advance!

[andresrcs]

@MathieuVandamme

Is there a possibility that R code is starting to get to big? I have only 300 lines of code, or is there not such thing? I don't get an error.

No, there is no such limit, could you prepare a reproducible example (reprex) illustrating your issue? Please have a look at these resources, to see how to create one for a shiny app

Chapter 5 Workflow | Mastering Shiny

Shiny debugging and reprex guide

Shiny issues can be challenging to resolve relative to other problems with your code or statistical methods. Shiny apps are often large, complex projects with interacting files. When seeking help from others it is considered polite to: First, do your best to work through RStudio's debugging tools to diagnose your issue on your own. Often those shiny logs and tracebacks are useful to others trying to help out. Second, strive to minimize the effort required to replicate your issue. You can do this with a reproducible example ("reprex"). Shiny Debugging Errors in Shiny code can be difficult to track down. If you don't know where your problem is coming from, you can track it down with some o…

[MathieuVandamme]

Hi all

Thank you for the response. When I wrote it line by line, it worked. but coping the previous tabPanel didn't worked. Strange!

Best regards