shiny给标签加属性

在开发shiny工具过程中遇到一个问题，想让文本输入框中的内容不换行，
查找到，需要在textarea标签中加上warp='off'属性

右边 wrap=off

尝试一textAreaInput失败

尝试使用tagAppendAttributes 函数加属性，但好像加到div上去了，
翻阅textAreaInput的参数，也没有wrap参数。

>  textAreaInput('inputtext',label = '输入数据', height = 300,value = 'longtetx') %>%
+       shiny::tagAppendAttributes(wrap="off")

  输入数据
  longtetx

尝试二tags$textarea可行

使用tags手动写组件，并加上相应的属性，其实也可以用HTML('code')，使用文本的方式写html代码。还有记住id属性就可以了。

>tags$div(class="form-group shiny-input-container",tags$label(`for`="inputtext",'输入数据'),
+        tags$textarea(id="inputtext",class="form-control",wrap="off",style=" height: 300px;",'longtext'))

  输入数据
  longtext

尝试三JS比较繁琐

尝试过使用js,但也只能在加载页面，或掉用JS的时候有效。使用比较麻烦

shinyjs::run_js('document.getElementsByTagName("textarea")[0].setAttribute("wrap", "off");')

最新可视化工具箱 20190529，
http://qplot.cn/toolbox/