Поместите вставленные значения в одну строку внутри ячейки

Question

Ниже у меня блестящее приложение, которое отображает таблицу со столбцом со значками в качестве последнего столбца. Я хочу скопировать и вставить значки из последнего столбца в первый, как я, но в той же строке со значением, которое уже существует там, а не под ним.

library(shiny)
library(shinydashboard)
FCB<-c(5,6,4,6,8)
TWI<-c(3,5,2,3,5)
IN<-c(2,1,1,1,1)
DF1<-data.frame(FCB,TWI,IN)

FCB<-c(0,0,1,2,4)
TWI<-c(1,2,3,4,5)
IN<-c(1,3,4,5,6)
DF2<-data.frame(FCB,TWI,IN)

number_compare <- data.frame(replicate(2, sample(1:100, 10, rep=TRUE)))
DF1$direction <- ifelse(
  DF1$FCB < DF2$FCB,
  paste("<p>&#8593;</p>"),
  paste("<p>&#8595;</p>")
)
for(i in 1:nrow(DF1)){
  DF1[i,1]<-paste(DF1[i,1],DF1[i,4],sep="")
}
sidebar <- dashboardSidebar()

body <- dashboardBody(
  fluidRow(box(width = 12, solidHeader = TRUE,
               tableOutput("example_table"))
  )
)

ui <- dashboardPage(dashboardHeader(title = "Example"),
                    sidebar,
                    body
)


server <- function(input, output) {
  output$example_table <- renderTable(DF1, sanitize.text.function = function(x) x)
}

shinyApp(ui, server)