Разделите длинный столбец слов на несколько столбцов внутри htmlOutput - PullRequest
Новая
       7

Разделите длинный столбец слов на несколько столбцов внутри htmlOutput

0 голосов
/ 25 января 2019

У меня есть Shinydashboard, который включает 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/>')) 
  })
})
...