R/R Shiny：无法在 R 中的 writeLines 之后插入换行符

如何解决R/R Shiny：无法在 R 中的 writeLines 之后插入换行符

我想在新行中打印 writeLines 的内容，但我无法在我的 Shiny 应用程序中打印。附上相关的服务器代码。 框 中的文本显示出来就好像它是连接在一起的，而不是在新行中。有人可以帮我吗？

更新的可重现示例

shinyUI(dashboardPage( skin = "black",dashboardHeader(title = "Fruits",titleWidth = 450),dashboardSidebar(width=250,tags$head(
                         tags$style(HTML("
                      .sidebar { height: 90vh; overflow-y: auto; font-size: 17px;}
                      " )
                         )
                       ),sidebarMenu(
                         
                         menuItem("Fruits",tabName = "Fruits"),fileInput("file","Upload file (.xlsx)",multiple = TRUE,accept = c(".xlsx")),uIoUtput("selectfile"),)),dashboardBody(
                         tabItems(
                           
                           tabItem(tabName = "Fruits",fluidPage(
                                     
                                     uIoUtput("tb")
                                     
                                     
                                   )
                                   
                           )))))


shinyServer(function(input,output,session)
{
  fruits <- reactive({
    req(input$file)
    inFile <- input$file
    if(is.null(inFile))
      return(NULL)
    
    fruits<-read_excel(paste(inFile$datapath,".xlsx",sep=""),sheet = 1)
    
  })
  
  data <- reactive({
    data<-data.frame(fruits())
  })
  
  
  output$text1<- renderPrint({
    for(i in 1:length(data()$fruit_column)){
      writeLines(paste("Fruit",i,"is",data()[i,fruit_column]))
    }
  })
  
  output$tb <- renderUI({
    if(is.null(input$file)) {return()}
    else
      tabsetPanel(
        
        tabPanel("Tab 1",Box( title = "Fruit Log",status = "primary",solidHeader = TRUE,collapsible = TRUE,textoutput("text1")))
      )
  })
  })

shinyApp(ui,server)

这应该可以让我大致了解我创建的应用程序，尽管这个可重现的示例可能有错误