How to output my uploaded text in Shiny in R at the position of the screenshot? I would like to position a long text on the right side of this Shiny app, as shown on the screenshot below.
    library(quanteda)
    library(shiny)
    library(tm)
    library(tidytext)
    library(tidyverse)
    library(shinydashboard)
    library(shinythemes)
    
    
    war &lt;- readLines(&quot;war.txt&quot;)
    
    war_corpus &lt;- corpus(war)
    
    sentences &lt;- tokens(war_corpus,what=&quot;sentence&quot;)
    
    make_sentences &lt;- function(word) {
      grep(word,sentences,value=TRUE)}
    
    make_sentences(&quot;prince&quot;)
    
    ui&lt;- shinyUI(fluidPage(
  
  # Application title
  mainPanel(
    img(src='image.jpg', align = &quot;right&quot;),
    
    #titlePanel(title=div(img(src=&quot;image.jpg&quot;))),
    
    fluidRow(HTML(&quot;&lt;strong&gt; Search Bar&quot;)),
    #fluidRow(HTML(&quot; &lt;strong&gt;Date: 06-29-2020&lt;/strong&gt;&quot;) ),
    
    fluidRow(
      br(),
      p(&quot;User Name : &quot;)),
    br(),
    br(),
    
    fluidRow(HTML(&quot;&lt;strong&gt;Enter a word.Click \&quot;Next words\&quot; after&lt;/strong&gt;&quot;) ),
    fluidRow( p(&quot;\n&quot;) ),
    
    # Sidebar layout
    sidebarLayout(
      
      sidebarPanel(
        textInput(&quot;inputString&quot;,&quot;Enter a word here&quot;,value = &quot; &quot;),
        submitButton(&quot;Next words&quot;)
      ),
      
      mainPanel(
        h4(&quot;Are you looking for this ?&quot;),
        tags$style(&quot;#mytext {white-space: pre-line;}&quot;),
        verbatimTextOutput(&quot;mytext&quot;)
        
      )
    )
  )))


    server &lt;- function(input, output, session) {
      output$mytext &lt;- renderPrint({
        
        sentences &lt;- make_sentences(input$inputString)
        length(sentences)
        cat(paste0(1:length(sentences),&quot;  &quot;,sentences,sep= '\n'))
      })
    }
       


here is the rcloud link of the project to experiment with : https://rstudio.cloud/project/1497912
In your code you use the Sidebar layout which allows only two columns, instead you should use the grid layout to position your elements where you want them, see https://shiny.rstudio.com/articles/layout-guide.html.
You probably need something like this (not tested):
ui&lt;- shinyUI(fluidPage(
  fluidRow(
    column(3,
      # content left 
    ),
    column(5,
      # content centre
    ),
    column(4,
      # content right
    )
  )
)