如何在闪亮的数据表中扩展包装的文本

Question

我有一个Shiny应用程序，其中文本太长而被截断。单击时是否可以“打开”（扩展）此文本？这是我的可复制示例：

datatable(iris[c(1:20, 51:60, 101:120), ], options = list(columnDefs = list(list(
  targets = 5,
  render = JS(
    "function(data, type, row, meta) {",
    "return type === 'display' && data.length > 6 ?",
    "'<span title=\"' + data + '\">' + data.substr(0, 6) + '...</span>' : data;",
    "}")
))), callback = JS('table.page(3).draw(false);'))

Answer 1

这是根据我之前的回答的一种方法。请注意，如果您在浏览器中打开表，则 details_open.png 可以使用，但在“ RStudio查看器”中不可用，并且会显示为问号。

    protected override void OnCreateControl()
    {
        base.OnCreateControl();
        SetStyle(ControlStyles.UserPaint, true);
    }

使用列名

LinearLayout
|
+-EditText
|
+-LinearLayout
| |
| +-EditText
+-EditText
|
+-LinearLayout
| |
| +-LinearLayout
| | |
| | +-EditText
| +-EditText