title: R Shiny: Displays all tests at once after checking the checkboxes
body: <p>I am trying to make a R Shiny App, which will print 3 statistical tests simultaneous, after the checkboxes were selected.
  The problem is the app is printing just one output, and the other ones &quot;are not founded&quot;.<a href="https://i.stack.imgur.com/hfyeR.png" rel="nofollow noreferrer">Like can be seen here</a></p>
  <p>I tried with</p>
  <pre><code>if(input$Stattest=='PP' | input$Stattest==1)
  </code></pre>
  <p>but..it doesn't work.</p>
  <p>My code is:</p>
  <pre><code> output$Stattest = renderUI({
       checkboxGroupInput(&quot;Stattest&quot;, &quot;Choose test for stationarity&quot;, choices = c(&quot;ADF&quot;,&quot;PP&quot;,&quot;KPSS-TREND&quot;))
    })
  adf &lt;- reactive({
      if(is.na(input$Stattest)){
        return(NULL)}
  
       if(input$Stattest=='ADF'){
         d=list()
         c=list(df_sel()[[print(input$y)]],df_sel()[[print(input$x1)]],df_sel()[[print(input$x2)]])
         for (i in 1:3){
           d[[i]]=adf.test(c[[i]])
         }
             }
      d
      })
  
    output$ADF=renderPrint({
      adf()
    })
  
   pp &lt;- reactive({
  
      if(is.na(input$Stattest)){
        return(NULL)}
  
      if(input$Stattest=='PP' | input$Stattest==1){
        ptest=list()
        d=list(df_sel()[[print(input$y)]],df_sel()[[print(input$x1)]],df_sel()[[print(input$x2)]])
        for (i in 1:3){
          ptest[[i]]=pp.test(d[[i]])
        }
  
      }
      ptest
    })
  
  
    output$PP=renderPrint({
      pp()
    })
  </code></pre>
  <p>The main &quot;problem&quot; is that I need to create this <code>reactive</code> functions, because all of these tests will be printed in a pdf-report.
  Any idea how could I make it work?</p>
  <p>Thanks in advance.</p>