R Under development (unstable) (2023-10-28 r85429 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(htmlTable)
> 
> interactiveTable(matrix(c("asdsadadadas",
+                           "DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD"), ncol = 2),
+                  minimized.columns = 2)
<table class='gmisc_table' style='border-collapse: collapse; margin-top: 1em; margin-bottom: 1em;' >
<tbody>
<tr style='border-top: 2px solid grey;'>
<td style='border-top: 2px solid grey; border-bottom: 2px solid grey; text-align: center;'>asdsadadadas</td>
<td style='border-top: 2px solid grey; border-bottom: 2px solid grey; text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span></td>
</tr>
</tbody>
</table><script type = "text/javascript" language = "javascript"> $(document).ready(function(){
  $(".gmisc_table td .hidden").map(function(index, el){
     el.parentNode.style["original-color"] = el.parentNode.style["background-color"];
     el.parentNode.style["background-color"] = "#DDD";
  });

  getSelected = function(){
    var t = '';
    if(window.getSelection){
      t = window.getSelection();
    }else if(document.getSelection){
      t = document.getSelection();
    }else if(document.selection){
      t = document.selection.createRange().text;
    }
    return t.toString();
  };

  $(".gmisc_table td").map(function(index, el){
    this.style.cursor = "pointer";
    el.onmouseup =  function(e){
      if (getSelected().length > 0)
        return;

      var hidden = this.getElementsByClassName("hidden");
      if (hidden.length > 0){
        this.innerHTML = hidden[0].textContent;
        this.style["background-color"] = this.style["original-color"];

      }else{
        $(this).append("<span class='hidden' style='display: none'>" +
                       this.innerHTML + "</span>");

        this.childNodes[0].data = this.childNodes[0].data.substr(0, 20) + "... ";
        this.style["original-color"] = this.style["background-color"];
        this.style["background-color"] = "#DDD";
      }
    };
  });
});
 </script>> 
> interactiveTable(matrix(c("asdsadadadas",
+                           "DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD"),
+                         ncol = 2,
+                         nrow = 10),
+                  minimized.columns = 2,
+                  button = TRUE)
<table class='gmisc_table' style='border-collapse: collapse; margin-top: 1em; margin-bottom: 1em;' >
<tbody>
<tr style='border-top: 2px solid grey;'>
<td style='border-top: 2px solid grey; text-align: center;'>asdsadadadas</td>
<td style='border-top: 2px solid grey; text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
<tr>
<td style='text-align: center;'>asdsadadadas</td>
<td style='text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
<tr>
<td style='text-align: center;'>asdsadadadas</td>
<td style='text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
<tr>
<td style='text-align: center;'>asdsadadadas</td>
<td style='text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
<tr>
<td style='text-align: center;'>asdsadadadas</td>
<td style='text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='border-bottom: 2px solid grey; text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='border-bottom: 2px solid grey; text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
</tbody>
</table><script type = "text/javascript" language = "javascript"> $(document).ready(function(){
  // Placeholder for button
  btn = "<div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>- </div>";

  // Ad the button to each element
  $(".gmisc_table td").map(function(index, el){
    if (el.innerHTML.length > 20 && el.getElementsByClassName("btn").length == 0)
      el.innerHTML += btn;
  })

  $(".gmisc_table td .btn").map(function(index, el){
    el.onclick =  function(e){
      var hidden = this.parentNode.getElementsByClassName("hidden");
      if (this.textContent === "+"){
        this.parentNode.childNodes[0].data = hidden[0].textContent;
        this.textContent = "-";
      }else{
        $(this.parentNode).append("<span class='hidden' style='display: none'>" + this.parentNode.childNodes[0].data + "</span>")
        this.parentNode.childNodes[0].data = this.parentNode.textContent.substr(0, 20) + "... ";
        this.textContent = "+";
      }
    }
  })
})
 </script>> 
> 
> knitr::knit_print(interactiveTable(matrix(c("asdsadadadas",
+                                             "DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD"),
+                                           ncol = 2,
+                                           nrow = 10),
+                                    minimized.columns = 2))
[1] "<table class='gmisc_table' style='border-collapse: collapse; margin-top: 1em; margin-bottom: 1em;' >\n<tbody>\n<tr style='border-top: 2px solid grey;'>\n<td style='border-top: 2px solid grey; text-align: center;'>asdsadadadas</td>\n<td style='border-top: 2px solid grey; text-align: center;'>asdsadadadas</td>\n</tr>\n<tr>\n<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>\n<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span></td>\n</tr>\n<tr>\n<td style='text-align: center;'>asdsadadadas</td>\n<td style='text-align: center;'>asdsadadadas</td>\n</tr>\n<tr>\n<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>\n<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span></td>\n</tr>\n<tr>\n<td style='text-align: center;'>asdsadadadas</td>\n<td style='text-align: center;'>asdsadadadas</td>\n</tr>\n<tr>\n<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>\n<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span></td>\n</tr>\n<tr>\n<td style='text-align: center;'>asdsadadadas</td>\n<td style='text-align: center;'>asdsadadadas</td>\n</tr>\n<tr>\n<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>\n<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span></td>\n</tr>\n<tr>\n<td style='text-align: center;'>asdsadadadas</td>\n<td style='text-align: center;'>asdsadadadas</td>\n</tr>\n<tr>\n<td style='border-bottom: 2px solid grey; text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>\n<td style='border-bottom: 2px solid grey; text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span></td>\n</tr>\n</tbody>\n</table> $(document).ready(function(){\n  $(\".gmisc_table td .hidden\").map(function(index, el){\n     el.parentNode.style[\"original-color\"] = el.parentNode.style[\"background-color\"];\n     el.parentNode.style[\"background-color\"] = \"#DDD\";\n  });\n\n  getSelected = function(){\n    var t = '';\n    if(window.getSelection){\n      t = window.getSelection();\n    }else if(document.getSelection){\n      t = document.getSelection();\n    }else if(document.selection){\n      t = document.selection.createRange().text;\n    }\n    return t.toString();\n  };\n\n  $(\".gmisc_table td\").map(function(index, el){\n    this.style.cursor = \"pointer\";\n    el.onmouseup =  function(e){\n      if (getSelected().length > 0)\n        return;\n\n      var hidden = this.getElementsByClassName(\"hidden\");\n      if (hidden.length > 0){\n        this.innerHTML = hidden[0].textContent;\n        this.style[\"background-color\"] = this.style[\"original-color\"];\n\n      }else{\n        $(this).append(\"<span class='hidden' style='display: none'>\" +\n                       this.innerHTML + \"</span>\");\n\n        this.childNodes[0].data = this.childNodes[0].data.substr(0, 20) + \"... \";\n        this.style[\"original-color\"] = this.style[\"background-color\"];\n        this.style[\"background-color\"] = \"#DDD\";\n      }\n    };\n  });\n});\n"
attr(,"class")
[1] "knit_asis"
attr(,"knit_cacheable")
[1] NA
> 
> htmlTable:::print.interactiveTable(
+   interactiveTable(matrix(c("asdsadadadas",
+                             "DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD"),
+                           ncol = 2,
+                           nrow = 10),
+                    minimized.columns = 2,
+                    button = TRUE))
<table class='gmisc_table' style='border-collapse: collapse; margin-top: 1em; margin-bottom: 1em;' >
<tbody>
<tr style='border-top: 2px solid grey;'>
<td style='border-top: 2px solid grey; text-align: center;'>asdsadadadas</td>
<td style='border-top: 2px solid grey; text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
<tr>
<td style='text-align: center;'>asdsadadadas</td>
<td style='text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
<tr>
<td style='text-align: center;'>asdsadadadas</td>
<td style='text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
<tr>
<td style='text-align: center;'>asdsadadadas</td>
<td style='text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
<tr>
<td style='text-align: center;'>asdsadadadas</td>
<td style='text-align: center;'>asdsadadadas</td>
</tr>
<tr>
<td style='border-bottom: 2px solid grey; text-align: center;'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</td>
<td style='border-bottom: 2px solid grey; text-align: center;'>DSASDS  asd as dasd ...  <span class='hidden' style='display: none'>DSASDS  asd as dasd ad ads dasd dsa ADSADASDASD</span> <div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>+ </div></td>
</tr>
</tbody>
</table><script type = "text/javascript" language = "javascript"> $(document).ready(function(){
  // Placeholder for button
  btn = "<div class='btn' style='background-color: #ccc; border: 1px solid #999; float: right; font-size: 0.5em; height: 1.8em; margin: 2px; padding: 0.1em; position: relative; text-align: center; top: 0; width: 1.8em;'>- </div>";

  // Ad the button to each element
  $(".gmisc_table td").map(function(index, el){
    if (el.innerHTML.length > 20 && el.getElementsByClassName("btn").length == 0)
      el.innerHTML += btn;
  })

  $(".gmisc_table td .btn").map(function(index, el){
    el.onclick =  function(e){
      var hidden = this.parentNode.getElementsByClassName("hidden");
      if (this.textContent === "+"){
        this.parentNode.childNodes[0].data = hidden[0].textContent;
        this.textContent = "-";
      }else{
        $(this.parentNode).append("<span class='hidden' style='display: none'>" + this.parentNode.childNodes[0].data + "</span>")
        this.parentNode.childNodes[0].data = this.parentNode.textContent.substr(0, 20) + "... ";
        this.textContent = "+";
      }
    }
  })
})
 </script>> 
> proc.time()
   user  system elapsed 
   0.53    0.09    0.62