Question

我可以在R脚本中读取stdin：

$ echo "some text" | Rscript script.R

注意：使用Docker和rocker/r-base图像可以运行：

$ echo "some text" | docker run --rm -i \
    -v $(pwd):/usr/src/app rocker/r-base \
    bash -c 'Rscript /usr/src/app/script.R'

sript.R ：

f <- file("stdin")
i <- readLines(f)
close(f)
cat(i)

现在我想在闪亮中重现这种行为：

$ echo "some text" | shiny-server

注意：或使用rocker/shiny的docker：

$ docker run --rm -it -p 80:3838 -v $(pwd):/srv/shiny-server/ rocker/shiny bash
# and then run in the container
$ echo "some text" | shiny-server

app.R ：

library(shiny)
ui <- pageWithSidebar(
    headerPanel("example"),
    sidebarPanel(),
    mainPanel(textOutput("my_stdin"))
)

server <- function(input, output, session) {
    output$my_stdin <- renderText({
        f <- file("stdin")
        i <- readLines(f)
        close(f)
        i
    })
}
shinyApp(ui, server)

为什么没有闪亮的输出？

实际的szenario正在从$ nc -u -l 1.2.3.4 1234读取流数据，但上面的简单示例也说明了我的问题。

如何从闪亮的stdin中读取？

0 个答案: