Ршиные колонны перекрываются с рисунком

Question

У меня проблемы с RShiny при изменении размера браузера. Я заметил, что есть несколько похожих тем, но это те слова, которые можно решить с помощью ввода переносных слов. Однако моя картинка и куча слов.

Когда браузер большой

При изменении размера

###codes above

output$img1 <-renderUI({
if(input$Category == "Cleanser"){
  img(width = 175, height = 175, src = "Cleansers.png", style = "margin-left:15px; margin-top:10px")
}

### rest of codes

  output$text1<-renderUI({
summary<-read_excel(paste0("Summary/",input$Category,".xlsx"),sheet = 1)
summary$Price<-as.integer(summary$Price)
dat<-calcul()
product=paste(dat[input$table1_cell_clicked$row,1])
w1=which(summary$`Product Name`==product)

###relevant part###
fluidRow(tags$head(tags$style(
  "body { word-wrap: break-word; }"
)),
  column(2,uiOutput("img1",inline = T))
  ,column(9,h3("Description",style = 'margin-left:10px'),
  p(summary$Description[w1], style = "margin-left:10px"))     
)
})

Я использовал liquidRow () для создания столбцов, я пытался использовать перенос слов, но он все еще не работает. Кто-нибудь может мне помочь ? Большое спасибо!