<div id="readability-page-1" class="page"><article><div><div><div><h2 id="27ca">R and Interactive tables</h2><div><a rel="noopener follow" href="/?source=post_page-----fb67dc92dc45--------------------------------"><div aria-hidden="false"><p><img alt="Jinhwan Kim" src="https://miro.medium.com/v2/resize:fill:88:88/1*vU_fccC8YOReY6tGTxackA.jpeg" width="44" height="44" loading="lazy" data-testid="authorPhoto"></p></div></a></div></div><p id="6920">R. is a programming language with strengths in statistical analysis, but it also has strengths in tables and visualisation.</p><div id="becc"><p>In recent years, R has been used to solve more and more problems, as techniques such as <strong>Shiny</strong>, <strong>webR</strong>, and <strong>wasm</strong> are being explored to make it possible to perform analyses online.</p><p> In this article, I’ll show you how to use some R packages to <strong>create interactive tables</strong> in R.</p></div><p id="4c46">The main purpose of a table is to <strong>present data in a way that is easy to understand</strong>, but it also requires some context for the data.</p><p id="242f">For example, when presenting “<em>drug data</em>” in a table, a reader with an understanding of drugs will get different things from the table than a reader without an “<em>understanding of drugs</em>”.</p><p id="405a">For this reason, rather than using specific data, this <strong>table showcase uses a “minesweeper game”</strong> that is more accessible to a broader audience.</p></div><div><h2 id="1571">Minesweeper</h2><figure><figcaption><em>Image from minesweeper.online</em></figcaption></figure><p id="45dd">Most of you probably understand this game, but here’s a quick explanation.</p><div id="b303"><p><strong>Minesweeper</strong> is a puzzle game where you find safe spaces on a grid-like board while avoiding hidden mines. When you click on a square, a number is displayed showing how many of the eight neighbouring squares contain mines.</p><p> In other words, Minesweeper is a pretty good candidate for the aforementioned table interactions because it has a <strong>UI that uses a grid (table)</strong> and an <strong>interaction called “clicking”</strong>.</p></div><p id="ae41">This Minesweeper project additionally includes “game” logic and sharing the results to the web using Shiny, but I won’t go into that as there are many better articles on the subject.</p></div><div><h2 id="c6c3">Results</h2><p id="3803">The resulting Shiny application is shown in the following image, and can be accessed and viewed via this <a href="https://jhkim.shinyapps.io/mine-tables/" rel="noopener ugc nofollow" target="_blank">URL</a>.</p><figure></figure><p id="23d1">The main points of using tables here are twofold.</p><ol><li id="67f3">rendering the <strong>table results using HTML</strong> (you can express more than just text in a table !)</li><li id="2a27">Interact with the user <strong>using Javascript on top of the HTML content</strong>.</li></ol><p id="17cb">In other words, if you do these two things well, <strong>you can use R’s table packages as standalone web pages</strong> (utilising HTML, CSS, and JS).</p><p id="4760">Additionally. The reason for using three different tables (<a href="https://github.com/rstudio/DT" rel="noopener ugc nofollow" target="_blank">DT</a>, <a href="https://github.com/glin/reactable" rel="noopener ugc nofollow" target="_blank">reactable</a>, and <a href="https://github.com/rstudio/gt/" rel="noopener ugc nofollow" target="_blank">gt</a>) is to show that although there is not much difference in functionality.</p><p id="3b16">But when using tables in R, you may need to use a specific table package depending on your needs, so you can implement the interaction as shown in the example not only with one table but also with various table packages.</p><blockquote><p id="acf1"><em>I personally prefer </em><strong><em>reactable</em></strong><em>, sometimes use </em><strong><em>DT</em></strong><em> for compatibility with existing work, and have recently been using </em><strong><em>gt</em></strong><em> for the Clinical part of my work.</em></p></blockquote></div><div><h2 id="a53a">Reactable</h2><p id="23d6">The reactable is responsible for the <strong>grid</strong> in minesweeper.</p><p id="cea5">In other words, it takes in the <strong>user’s click</strong>, calculates which cell was clicked, how many mines are in the cell and its neighbors, and returns the result to populate the clicked cell with a value. Here, the resulting number is represented using color (HTML).</p><p id="55f9">Excluding the game logic part, which is the part that counts the number of mines in neighboring cells, the simplified code for the logic looks like this. (I intentionally removed code that is not essential part)</p><pre><span id="0d12">reactable(<br>  board_df,<br>  onClick = JS("function(rowInfo, column) { <br>  Shiny.setInputValue('cell_click', {<br>    row: rowInfo.index + 1,<br>    column: column.id }); }"<br>  )<br>)  </span></pre><p id="cad0">The main point is to use the <code>onClick</code> parameter of the reactable and a JS function to pass the position of the clicked cell to the (<code>rowInfo.index,</code> <code>column</code>) shinyEvent.</p><p id="f281">You should use <code>rowInfo.index + 1</code> because Javascript starts indexing from 0 and R starts from 1.</p><p id="be6b">Although not reactable, Shiny’s <code>cell_click</code> logic that handles the above values can be simplified as follows</p><pre><span id="0899">observeEvent(input$cell_click, {<br>  click &lt;- input$cell_click<br>  row &lt;- click$row<br>  col &lt;- click$col<br>  ....<br>})</span></pre><p id="5804">Then we can use <code>defaultColDef(html = TRUE)</code> to render the HTML result to all columns of the reactable.</p><p id="fa68">This can later be used to render the result in HTML like the code below.</p><pre><span id="86b8">color_text &lt;- function(value, revealed) {<br>  if (!revealed) {<br>    return("")<br>  }<br>  if (value == -1) {<br>    return('&lt;span style="color: red;"&gt;💣&lt;/span&gt;')<br>  }<br>  colors &lt;- c("blue", "green", "red", "purple", "orange", "brown", "cyan", "magenta")<br>  color &lt;- if (value == 0) "lightgrey" else colors[value]<br>  sprintf('&lt;span style="color: %s; font-size: 2em;"&gt;%s&lt;/span&gt;', color, value)<br>}</span></pre></div><div><h2 id="f1e1">DT</h2><p id="08f3">Next is DT.</p><div id="46c6"><p>Like reactable, DT can render HTML results and interact with the user using JavaScript. However, since the table for minesweeper already uses reactable, we used DT to implement a <strong>“button that opens a new window so you can see the code for this project”</strong>.</p><p> The main code is shown below.</p></div><pre><span id="2ec7">output$about.dt &lt;- renderDataTable({<br>  datatable(<br>    data.frame(c('&lt;button <br>                      type="button" <br>                      class="btn btn-primary" <br>                      style="width:100%"<br>                      onclick="window.open(`https://github.com/jhk0530/mine.tables`)"<br>                      &gt;See code&lt;/button&gt;')),<br>      escape = FALSE,<br>      caption = htmltools::tags$caption(<br>        "Table 3: Code Button with DT"<br>      )<br>    )<br>})</span></pre><p id="96b5">I’ve implemented one button (HTML) using a data.frame, with onclick inside it, and modified it to render the HTML directly using <code>escape = FALSE</code>.</p><p id="49b6">The caption has nothing to do with what the button does, but without it, it doesn’t look much different from a regular shiny actionbutton, so I deliberately included it to show that it’s made with DT (even though it’s made with DT!).</p></div><div><h2 id="a03c">gt</h2><pre><span id="80dc">output$document.gt &lt;- render_gt({<br>  data.frame(intToUtf8(160)) |&gt;<br>    gt() |&gt;<br>    tab_header(<br>      title = gt::html(<br>      '&lt;button type="button" <br>      class="btn btn-primary" <br>      style="width:100%" <br>      onclick="Shiny.setInputValue(`foo`, {priority: `event`});"&gt;<br>      Documents<br>      &lt;/button&gt;')<br>    ) |&gt;<br>    tab_options(<br>      column_labels.hidden = TRUE<br>    ) |&gt;<br>    tab_style(<br>      style = cell_borders(sides = "all", weight = px(0)),<br>      locations = cells_body()<br>    ) |&gt;<br>    tab_footnote("Table 4: Document button with gt")<br>})<p>observeEvent(input$foo, {<br>  shinyjs::runjs('window.open("https://jhk0530.github.io/mine.tables/")')<br>})</p></span></pre><p id="5777">Finally, the gt part.</p><p id="4126">I’ve implemented a simple button for gt as well, but gt is a little different from DT and reactable. <em>*Please refer to the official manual for details.</em></p><div id="1b20"><p>Similarly, I rendered the code that creates an event in <code>tab_header</code> and shiny using <code>html</code> functions, and additionally marked the logic of the shiny code that interacts with the button.</p><p> To do this, we added the <code>runjs</code> function of <code>shinyjs</code> package to execute the javascript code.</p></div></div><div><h2 id="e941">Extra</h2><div id="1b5d"><p>Of course, in addition to the table, the project also implements other features that I briefly mentioned earlier, such as how to use <strong>Shiny</strong>, how to use <a href="https://cicerone.john-coene.com/" rel="noopener ugc nofollow" target="_blank"><strong>cicerone</strong></a> to put guides in Shiny applications, and even how to use Google’s LLM, <a href="https://github.com/jhk0530/gemini.R" rel="noopener ugc nofollow" target="_blank">gemini</a>, to solve minesweeper with artificial intelligence, but I won’t go into those in this article.</p><p> Additionally, this project is for <strong>Posit’s table contest 2024</strong>, and you can find the <a href="https://github.com/jhk0530/mine.tables" rel="noopener ugc nofollow" target="_blank">code</a> and <a href="https://forum.posit.co/t/minesweeper-with-tables-and-gemini-table-contest/187968/1" rel="noopener ugc nofollow" target="_blank">documentation</a> used in the project, as well as another explanatory <a href="https://jhk0530.github.io/mine.tables/" rel="noopener ugc nofollow" target="_blank">article</a>, at the respective links.</p><p> If you have any questions regarding the project, please feel free to contact me.</p></div><p id="1a7e">Thanks !</p></div></div></article></div>

Stories by Jinhwan Kim on Medium

R and Interactive tables
R. is a programming language with strengths in statistical analysis, but it also has strengths in tables and visualisation.
In recent years, R has been used to solve more and more problems, as techniques such as Shiny, webR, and wasm are being explored to make it possible to perform analyses online.
 In this article, I’ll show you how to use some R packages to create interactive tables in R.
The main purpose of a table is to present data in a way that is easy to understand, but it also requires some context for the data.
For example, when presenting “drug data” in a table, a reader with an understanding of drugs will get different things from the table than a reader without an “understanding of drugs”.
For this reason, rather than using specific data, this table showcase uses a “minesweeper game” that is more accessible to a broader audience.
Minesweeper
Most of you probably understand this game, but here’s a quick explanation.
Minesweeper is a puzzle game where you find safe spaces on a grid-like board while avoiding hidden mines. When you click on a square, a number is displayed showing how many of the eight neighbouring squares contain mines.
 In other words, Minesweeper is a pretty good candidate for the aforementioned table interactions because it has a UI that uses a grid (table) and an interaction called “clicking”.
This Minesweeper project additionally includes “game” logic and sharing the results to the web using Shiny, but I won’t go into that as there are many better articles on the subject.
Results
The resulting Shiny application is shown in the following image, and can be accessed and viewed via this URL.
The main points of using tables here are twofold.
rendering the table results using HTML (you can express more than just text in a table !)
Interact with the user using Javascript on top of the HTML content.
In other words, if you do these two things well, you can use R’s table packages as standalone web pages (utilising HTML, CSS, and JS).
Additionally. The reason for using three different tables (DT, reactable, and gt) is to show that although there is not much difference in functionality.
But when using tables in R, you may need to use a specific table package depending on your needs, so you can implement the interaction as shown in the example not only with one table but also with various table packages.
I personally prefer reactable, sometimes use DT for compatibility with existing work, and have recently been using gt for the Clinical part of my work.
Reactable
The reactable is responsible for the grid in minesweeper.
In other words, it takes in the user’s click, calculates which cell was clicked, how many mines are in the cell and its neighbors, and returns the result to populate the clicked cell with a value. Here, the resulting number is represented using color (HTML).
Excluding the game logic part, which is the part that counts the number of mines in neighboring cells, the simplified code for the logic looks like this. (I intentionally removed code that is not essential part)
reactable(
  board_df,
  onClick = JS("function(rowInfo, column) { 
  Shiny.setInputValue('cell_click', {
    row: rowInfo.index + 1,
    column: column.id }); }"
  )
)  
The main point is to use the onClick parameter of the reactable and a JS function to pass the position of the clicked cell to the (rowInfo.index, column) shinyEvent.
You should use rowInfo.index + 1 because Javascript starts indexing from 0 and R starts from 1.
Although not reactable, Shiny’s cell_click logic that handles the above values can be simplified as follows
observeEvent(input$cell_click, {
  click <- input$cell_click
  row <- click$row
  col <- click$col
  ....
})
Then we can use defaultColDef(html = TRUE) to render the HTML result to all columns of the reactable.
This can later be used to render the result in HTML like the code below.
color_text <- function(value, revealed) {
  if (!revealed) {
    return("")
  }
  if (value == -1) {
    return('<span style="color: red;">💣</span>')
  }
  colors <- c("blue", "green", "red", "purple", "orange", "brown", "cyan", "magenta")
  color <- if (value == 0) "lightgrey" else colors[value]
  sprintf('<span style="color: %s; font-size: 2em;">%s</span>', color, value)
}
DT
Next is DT.
Like reactable, DT can render HTML results and interact with the user using JavaScript. However, since the table for minesweeper already uses reactable, we used DT to implement a “button that opens a new window so you can see the code for this project”.
 The main code is shown below.
output$about.dt <- renderDataTable({
  datatable(
    data.frame(c('<button 
                      type="button" 
                      class="btn btn-primary" 
                      style="width:100%"
                      onclick="window.open(`https://github.com/jhk0530/mine.tables`)"
                      >See code</button>')),
      escape = FALSE,
      caption = htmltools::tags$caption(
        "Table 3: Code Button with DT"
      )
    )
})
I’ve implemented one button (HTML) using a data.frame, with onclick inside it, and modified it to render the HTML directly using escape = FALSE.
The caption has nothing to do with what the button does, but without it, it doesn’t look much different from a regular shiny actionbutton, so I deliberately included it to show that it’s made with DT (even though it’s made with DT!).
gt
output$document.gt <- render_gt({
  data.frame(intToUtf8(160)) |>
    gt() |>
    tab_header(
      title = gt::html(
      '<button type="button" 
      class="btn btn-primary" 
      style="width:100%" 
      onclick="Shiny.setInputValue(`foo`, {priority: `event`});">
      Documents
      </button>')
    ) |>
    tab_options(
      column_labels.hidden = TRUE
    ) |>
    tab_style(
      style = cell_borders(sides = "all", weight = px(0)),
      locations = cells_body()
    ) |>
    tab_footnote("Table 4: Document button with gt")
})
observeEvent(input$foo, {
  shinyjs::runjs('window.open("https://jhk0530.github.io/mine.tables/")')
})
Finally, the gt part.
I’ve implemented a simple button for gt as well, but gt is a little different from DT and reactable. *Please refer to the official manual for details.
Similarly, I rendered the code that creates an event in tab_header and shiny using html functions, and additionally marked the logic of the shiny code that interacts with the button.
 To do this, we added the runjs function of shinyjs package to execute the javascript code.
Extra
Of course, in addition to the table, the project also implements other features that I briefly mentioned earlier, such as how to use Shiny, how to use cicerone to put guides in Shiny applications, and even how to use Google’s LLM, gemini, to solve minesweeper with artificial intelligence, but I won’t go into those in this article.
 Additionally, this project is for Posit’s table contest 2024, and you can find the code and documentation used in the project, as well as another explanatory article, at the respective links.
 If you have any questions regarding the project, please feel free to contact me.
Thanks !

Build Minesweeper with Reactable and Shiny

댓글