将一长串单词分成htmlOutput内部的更多列

Question

我有一个闪亮的仪表板，其中包括一个box，并在此box内包含一列由htmlOutput()创建的单词。我想知道是否可以将这一长列分成3列文本，它们将在box内彼此相邻。

#ui.R
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    title = "Enrollment Projections for Fall 2019",
    titleWidth = 500),
  dashboardSidebar(),
  dashboardBody(
      box(background = "light-blue",          
          htmlOutput("dt1"),
          tags$head(tags$style("#dt1{color: black;
                               font-size: 17px;}")),
          height = 375,width =3))      
    )
#SERVER.R
server <- shinyServer(function(input, output, session) {
  output$dt1<-renderUI({
   str1<-"asddadd"
   str2<-"asddadd"
   str3<-"asddadd"
   str4<-"asddadd"
   str5<-"asddadd"
   str6<-"asddadd"
   str7<-"asddadd"
   str8<-"asddadd"
   str9<-"asddadd"
   str10<-"asddadd"
   str11<-"asddadd"
   str12<-"asddadd"
   str13<-"asddadd"
      HTML(paste(str1, str2,str3,str4,str5,str6,str7,str8,
                 str9,str10,str11,str12,str13, sep = '<br/>')) 
  })
})