title: DT tables not shown in shiny
body: <p>I have a shiny app that opens with a simple .bat file that executes R and the script run.r in the background. The shiny use the package <code>DT</code> extensively to render all the tables. The problem i'm having is that if i run the shiny from Rstudio run app it shows all the tables but if I execute the shiny with the .bat file it just doesn't show theme. I have done this like 4 times and it is the first time it happens and I don't know the problem. I have the latest version of the pacakges of the <code>DT</code> available in CRAN, </p>
  
  <p>So my <code>server.r</code> is :</p>
  
  <pre><code>server &lt;- function(input, output,session) {
    observeEvent(input$run,{
  
  TablasVaR &lt;- function(mat,DT = T){
        mat_tbl &lt;- data.frame(Activos = rownames(mat),Porcentaje = mat[,"Porcentaje"],
                              VaR = mat[,"Nivel"])
  
        tabla &lt;- datatable(mat_tbl, escape = T,rownames = FALSE, 
                           selection = list(target = 'row'),
                           options = list(dom = 'tip', paging = TRUE))%&gt;%
          formatStyle(1:ncol(mat_tbl),fontSize = '100%')%&gt;%
          formatCurrency(3,digits = 0)%&gt;%
          formatPercentage(2,digits = 1)
        if(DT){
          return(tabla)
        } else{
          return(mat_tbl)
        }
  
      }
  
      matr &lt;- data.frame(Porcentaje=rnorm(19),Nivel = rnorm(19))
  
  
  
    output$table &lt;- renderDataTable({TablasVaR(matr)})
    })
    session$onSessionEnded(function() {
      stopApp()
    })  
  }
  </code></pre>
  
  <p>the <code>ui.r</code> is</p>
  
  <pre><code>ui &lt;- fluidPage(
    sidebarLayout(
      sidebarPanel(),
      wellPanel(style = "background-color: #ffffff;",
                bsButton("run","run1",block=F, style="default"),
                fluidRow(column(4,align="center",offset = 4,
                                dataTableOutput("table"))))
    ))
  </code></pre>
  
  <p>the <code>run.r</code> is:</p>
  
  <pre><code>librerias &lt;- c("openxlsx","ggplot2","scales","rugarch","zoo","data.table","stringr",
                 "DT","plotly","lubridate","knitr","gridExtra","grid","shinyBS",
                 "rmarkdown","nloptr","shiny")
  if(length(setdiff(librerias, rownames(installed.packages()))) &gt; 0){
    install.packages(setdiff(librerias, rownames(installed.packages())))
  }
  invisible(sapply(librerias, require, character.only = TRUE))
  CAMINO &lt;&lt;- "D:/Users/aandr/Documents/Ejemplo/"
  runApp(CAMINO, launch.browser=TRUE)
  </code></pre>
  
  <p>and the .bat file contains:</p>
  
  <pre><code>"C:\Program Files\R\R-3.5.1\bin\R.exe" CMD BATCH "run.r"
  </code></pre>
  
  <p>if I run the shiny app from the <code>run.r</code> the <code>DT</code> is display, but if I run it from the .bat file it wont.
  To make it run you will need to save the server.r, ui.r, run.r and .bat in the same folder.</p>