- 已编辑
问题描述
因为我的树莓派 3B+ 是 arm 架构，因此无法直接安装 shiny server，只好求助于 docker，直接拉取一般的 shiny-server 镜像是不行的，找来找去，最后发现 hvalev/shiny-server-arm 镜像是可以的，部署后自带的那个 shinyApp 示例是可以运行的。
我最近整了个项目，汇总 n 个人的 .xlsx 文件后自动生成 .docx 文档，代码放在 code1.R 里；但是同事不喜欢看代码，还是喜欢有 UI 界面那种点点点模式，所以我又利用 shinydashboard 做了一个 shinyApp，代码放在 code2.R 里。code1.R 里的代码我无论是直接在树莓派里运行还是在 root 权限下的容器里，命令行模式下都是可以运行的，code2.R 我在本地的 Ubuntu 20.04 上是正常运行的，可是放在 shiny-server 下，运行 docker 容器后，浏览器里总是出问题，点击编织文档按钮就提示 “Disconnected from the server. Reload”。检查了下 shinyApp 运行日志，内容如下：
Listening on http://127.0.0.1:33933
sh: 1: /usr/local/shiny-server/ext/pandoc/pandoc: Exec format error
Warning in system(paste(shQuote(path), "--version"), intern = TRUE) :
运行命令''/usr/local/shiny-server/ext/pandoc/pandoc' --version'的状态是2
Warning: Error in [[: 下标出界
[No stack trace available]我的代码
library(shiny)
library(shinydashboard)
ui = dashboardPage(
dashboardHeader(
title = "文档自动化",
titleWidth = 260
),
dashboardSidebar(
width = 260,
collapsed = FALSE,
sidebarMenu(
menuItem(
"开始使用",
tabName = "start",
icon = icon("rocket")
)
)
),
dashboardBody(
tabItems(
tabItem(
tabName = "start",
fluidPage(
sidebarLayout(
sidebarPanel(
dateRangeInput("period", "定义工作期间:", weekstart = 1)
),
mainPanel(
fluidPage(
actionButton(
"button2", "编织文档", width = "300px",
icon = icon("feather"),
class = "btn-primary btn-md"
),
tableOutput("gendocx")
)
)
)
)
)
)
)
)
server = function(input, output, session) {
observeEvent(input$button2,{
rmarkdown::render(input = "report.Rmd")
output$gendocx <- renderTable(
{
if (file.exists(report.docx)) {
print("文档已编织完成，可以下载了。")
} else {
print("请检查参数设置，正确导入数据。")
}
},
colnames = FALSE
)
})
}
shinyApp(ui = ui, server = server)其中 report.Rmd 就是 R Markdown 自动的生成 docx 文档的示例文档。
我的树莓派系统环境
R version 4.1.2 (2021-11-01)
Platform: aarch64-unknown-linux-gnu (64-bit)
Running under: Ubuntu 22.04.1 LTS
Locale:
LC_CTYPE=zh_CN.UTF-8 LC_NUMERIC=C
LC_TIME=zh_CN.UTF-8 LC_COLLATE=zh_CN.UTF-8
LC_MONETARY=zh_CN.UTF-8 LC_MESSAGES=zh_CN.UTF-8
LC_PAPER=zh_CN.UTF-8 LC_NAME=C
LC_ADDRESS=C LC_TELEPHONE=C
LC_MEASUREMENT=zh_CN.UTF-8 LC_IDENTIFICATION=C
Package version:
base64enc_0.1.3 bslib_0.4.0 cachem_1.0.6 digest_0.6.29
evaluate_0.16 fastmap_1.1.0 fs_1.5.2 glue_1.6.2
graphics_4.1.2 grDevices_4.1.2 highr_0.9 htmltools_0.5.3
jquerylib_0.1.4 jsonlite_1.8.0 knitr_1.40 magrittr_2.0.3
memoise_2.0.1 methods_4.1.2 R6_2.5.1 rappdirs_0.3.3
rlang_1.0.4 rmarkdown_2.16 sass_0.4.2 stats_4.1.2
stringi_1.7.8 stringr_1.4.1 tinytex_0.41 tools_4.1.2
utils_4.1.2 xfun_0.32 yaml_2.3.5
Pandoc version: 2.9.2.1docker 拉取的 shiny-server-arm 系统环境
sudo docker exec -it 3f0aef9cdda0 bashR version 4.2.1 (2022-06-23)
Platform: aarch64-unknown-linux-gnu (64-bit)
Running under: Debian GNU/Linux 10 (buster)
Locale:
LC_CTYPE=zh_CN.UTF-8 LC_NUMERIC=C LC_TIME=zh_CN.UTF-8
LC_COLLATE=zh_CN.UTF-8 LC_MONETARY=zh_CN.UTF-8 LC_MESSAGES=C
LC_PAPER=C LC_NAME=C LC_ADDRESS=C
LC_TELEPHONE=C LC_MEASUREMENT=C LC_IDENTIFICATION=C
Package version:
base64enc_0.1.3 bslib_0.3.1 digest_0.6.29 evaluate_0.16
fastmap_1.1.0 fs_1.5.2 glue_1.6.2 graphics_4.2.1
grDevices_4.2.1 highr_0.9 htmltools_0.5.2 jquerylib_0.1.4
jsonlite_1.8.0 knitr_1.40 magrittr_2.0.3 methods_4.2.1
R6_2.5.1 rappdirs_0.3.3 rlang_1.0.2 rmarkdown_2.16
sass_0.4.1 stats_4.2.1 stringi_1.7.8 stringr_1.4.1
tinytex_0.41 tools_4.2.1 utils_4.2.1 xfun_0.32
yaml_2.3.5
Pandoc version: 2.2.1