Скрыть или показать таблицу во всплывающих окнах R и Shiny

Question

Привет всем

Я хотел бы добавить кнопку во всплывающем окне, вы можете нажать на нее и показать или скрыть таблицу. Я пробовал много способов, но это невозможно. Я получаю только кнопку и таблицу, но когда я нажимаю на кнопку, ничего не происходит ...

Я следовал примеру , но это было бесполезно ...

Прежде чем я забуду это, я работаю с R и Shiny, чтобы создать карту о коронавирусе моего региона.

Это код, который я использую:

boton.popup<-c("<button onclick='myFunction()'>Mostrar tabla</button>")

script.popup<-c("<script>
                      function myFunction() {
                        var x = document.getElementById('tabla');
                        if (x.style.display === 'none') {
                          x.style.display = 'block';
                        } else {
                          x.style.display = 'none';
                        }
                      }
                    </script>")

def.popup<-paste("<h4 style='text-align:center;'>Información</h4>","<br/>",
                         "<b>Municipio:</b>",n_casos@data$MUNICIPIO,"<br/>","<br/>",
                         "<button onclick='myFunction()'>Mostrar tabla</button>","<br/>",
                         "<div id='myDIV' style:'visibility: hidden'>",
                         "<table class='table' id='tabla'><tr>
                         <td>Nº de casos detectados</td>
                         <td>",n_casos@data$num_casos,"</td>
                         </tr>
                         <tr>
                         <td>Proporción respecto al total de infectados detectados (%)</td>
                         <td>",round(n_casos@data$num_casos*100/temp$Total2,2),"</td>
                         </tr>
                         <tr>
                         <td>Proporción de población del municipio infectada detectada (%) </td>
                         <td>",round(n_casos@data$num_casos*100/n_casos@data$POBLACION,2),"</td>
                         </table>",
                         "</div>",
                         script.popup)

Спасибо много