title: How to remove [1] in text output from renderPrint in shiny without using renderText
body: <p>I've got a shiny app that prints the <code>aov()</code> result from the file the user put as input. However, it there are fewer than 2 categories, it should output a sentence giving some feedback. This is the code for this specific output:</p>
  <pre><code>output$aovResults &lt;- renderPrint({
      if(is.null(tabForm()))
        return(NULL)
      if(length(input$categoriesAOV) &lt; 2)
        return(&quot;You should probably select more categories...&quot;)
      summary(aov(Value ~ Treatment, tabForm()[tabForm()$Treatment == input$categoriesAOV,]))
    })
  </code></pre>
  <p>(For a minimal reproducible example, you should just create the <code>ui</code> with <code>fluidPage()</code>, add the <code>verbatimTextOutput(&quot;aovResults&quot;)</code> and so on.)</p>
  <p>The table <code>tabForm()</code> is just a formated reactive version of the inputed file. The problem is that, while it works fine without the second <code>if()</code> statement,  this is what I get when there are fewer that 2 categories selected (oh, by the way, <code>input$categoriesAOV</code> is a selection of which categories to use):
  <a href="https://i.stack.imgur.com/BXq02.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/BXq02.png" alt="enter image description here" /></a></p>
  <p>I'm sorry I can't actually provide a complete minimal reproducible example, but my full code is over 700 lines long, with a lot of that being toward working with <code>tabForm()</code>. This is the most relevant ui, though:</p>
  <pre><code>tabPanel(title = &quot;One-Way ANOVA&quot;,
           h1(&quot;One-Way ANOVA&quot;),
           fluidRow(
             column(6,
                    p(&quot;This test is to be used when you want to test if 3 or more averages are different.&quot;),
                    p(textOutput(&quot;shouldDoANOVA&quot;)),
                    p(&quot;Now let's do your One-Way ANOVA.&quot;),
                    checkboxGroupInput(&quot;categoriesAOV&quot;, label = &quot;You don't have to compare all of them; it can be just a section.&quot;, choices = c(&quot;Please&quot;, &quot;You should enter some data.&quot;))
             ),
             column(6,
                    wellPanel(
                      h3(&quot;Your results&quot;),
                      verbatimTextOutput(&quot;aovResults&quot;)
                    )
             )
           )
  )
  </code></pre>
  <p>(It is inside a navbarMenu).</p>
  <p>The reason I keep saying it has to be <code>renderPrint()</code> is because <code>renderText()</code> doesn't work in the case it actually does print the <code>aov()</code> results:</p>
  <p><a href="https://i.stack.imgur.com/8PtyK.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/8PtyK.png" alt="enter image description here" /></a></p>
  <p>The bottom line is: how can I get the output to be <code>&quot;You should probably select more categories...&quot;</code> instead of <code>[1] &quot;You should probably select more categories...&quot;</code>?</p>