我有一个闪亮的应用程序,可以通过一个简单的.bat文件开启,在后台执行R和脚本run.r。该应用程序广泛使用包
因此,我的
DT
来呈现所有表格。我的问题是,如果我从Rstudio运行应用程序,则显示所有表格,但如果我使用.bat文件执行应用程序,则它根本不显示表格。我已经尝试了4次,这是第一次出现这种情况,我不知道问题出在哪里。我拥有CRAN可用的最新版本的DT
包。因此,我的
server.r
如下:server <- function(input, output,session) {
observeEvent(input$run,{
TablasVaR <- function(mat,DT = T){
mat_tbl <- data.frame(Activos = rownames(mat),Porcentaje = mat[,"Porcentaje"],
VaR = mat[,"Nivel"])
tabla <- datatable(mat_tbl, escape = T,rownames = FALSE,
selection = list(target = 'row'),
options = list(dom = 'tip', paging = TRUE))%>%
formatStyle(1:ncol(mat_tbl),fontSize = '100%')%>%
formatCurrency(3,digits = 0)%>%
formatPercentage(2,digits = 1)
if(DT){
return(tabla)
} else{
return(mat_tbl)
}
}
matr <- data.frame(Porcentaje=rnorm(19),Nivel = rnorm(19))
output$table <- renderDataTable({TablasVaR(matr)})
})
session$onSessionEnded(function() {
stopApp()
})
}
the ui.r
is
ui <- fluidPage(
sidebarLayout(
sidebarPanel(),
wellPanel(style = "background-color: #ffffff;",
bsButton("run","run1",block=F, style="default"),
fluidRow(column(4,align="center",offset = 4,
dataTableOutput("table"))))
))
run.r
是什么:
librerias <- 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()))) > 0){
install.packages(setdiff(librerias, rownames(installed.packages())))
}
invisible(sapply(librerias, require, character.only = TRUE))
CAMINO <<- "D:/Users/aandr/Documents/Ejemplo/"
runApp(CAMINO, launch.browser=TRUE)
而 .bat 文件包含以下内容:
"C:\Program Files\R\R-3.5.1\bin\R.exe" CMD BATCH "run.r"
如果我从run.r
中运行shiny应用程序,则会显示DT
,但如果我从.bat文件运行它,则不会显示。
要使其运行,您需要将server.r、ui.r、run.r和.bat文件保存在同一个文件夹中。