R Shiny 中的乳胶和（长）文本 selectInput/selectizeInput

Question

在你关注我重复的帖子之前，请听我说完：我已经偶然发现了这样的帖子：latex in shiny selectInput

超级有用！然而，主要问题是我只是不想要希腊字母……我想要单词和希腊字母……但是，它也很长，而且它没有按照我想要的方式呈现！！在这篇文章中继续深入了解我的意思。

下面是一些示例测试代码：

library(shiny)

ui <- shinyUI(
  fluidPage(
    tags$head(
      tags$link(rel="stylesheet", 
                href="https://cdn.jsdelivr.net/npm/[email protected]/dist/katex.min.css", integrity="sha384-9tPv11A+glH/on/wEu99NVwDPwkMQESOocs/ZGXPoIiLE8MU/qkqUcZ3zzL+6DuH", 
                crossorigin="anonymous"),
      tags$script(src="https://cdn.jsdelivr.net/npm/[email protected]/dist/katex.min.js", integrity="sha384-U8Vrjwb8fuHMt6ewaCy8uqeUXv4oitYACKdB0VziCerzt011iQ/0TqlSlv8MReCm", 
                  crossorigin="anonymous")
    ),
    selectizeInput(
      inputId = "test_id", 
      label = "test_label", 
      choices = list("\\text{hahaha } \\omega \\text{ hahaha insert more text please help me...}" = 1,
                     "\\text{hahaha } \\beta \\text{ hahaha}" = 2),
      options = list(render = I("
      {
        item: function(item, escape) { 
                var html = katex.renderToString(item.label);
                return '<div>' + html + '</div>'; 
              },
        option: function(item, escape) { 
                  var html = katex.renderToString(item.label);
                  return '<div>' + html + '</div>'; 
                }
      }")
      )
    )
  )
)

server <- function(input, output, session){  
  # server side code here...
}

shinyApp(ui = ui, server = server)

请注意，当您加载应用程序时，它看起来像这样：

你可以看到它被稍微切断了！！ （不，我不想增加侧边栏布局的宽度。）总结一下我想要两件事：

1. 句子中剩余的词不要被截断
2. 将文本的格式更改为R Shiny中的基本字体。即，与我刚刚使用 ext{} 的上述解决方案不同，我更喜欢：

非常感谢任何能提供帮助的人！

编辑：我意识到我可以通过发送垃圾邮件来修复 1.“ ewline”结束时（让它按照我的意愿包装），但我觉得可能有更好的解决方案。