运行 OpenShift Online 上使用自定义图像的 Shiny 应用程序

Run Shiny applications on OpenShift Online using custom images

我是 OpenShift 的新手,目前正在使用 OpenShift 在线探索其功能。我创建了一个简单的 R Shiny 应用程序并创建了以下 Docker 文件以在 OpenShift 中构建自定义图像。

# Base image https://hub.docker.com/u/rocker/
FROM rocker/shiny:latest

# expose port
EXPOSE 3838

# system libraries of general use
## install debian packages
RUN apt-get update -qq && apt-get -y --no-install-recommends install \
    libxml2-dev \
    libcairo2-dev \
    libsqlite3-dev \
    libmariadbd-dev \
    libpq-dev \
    libssh2-1-dev \
    unixodbc-dev \
    libcurl4-openssl-dev \
    libssl-dev

## update system libraries
RUN apt-get update && \
    apt-get upgrade -y && \
    apt-get clean

# copy necessary files
## app folder
RUN mkdir -p /srv/shiny-server/soker
COPY docker.Rproj /srv/shiny-server/soker
COPY server.R /srv/shiny-server/soker
COPY ui.R /srv/shiny-server/soker
COPY renv.lock /srv/shiny-server/soker
COPY server.R /srv/shiny-server/soker
COPY renv  /srv/shiny-server/soker/renv

# install renv & restore packages
RUN Rscript -e 'install.packages("renv")'
RUN Rscript -e 'renv::consent(provided = TRUE)'
RUN Rscript -e 'renv::restore()'

RUN chown -R shiny /srv/shiny-server/
RUN chown -R shiny /var/lib/shiny-server/

# Run as a non-root user
USER 997

# run app on container start
CMD ["R", "-e", "shiny::runApp( '/srv/shiny-server/soker',host = '0.0.0.0', port = 3838)"]

此 Docker 文件与以下 server.R 和 ui.R 文件位于源文件夹中。

server.R

server <- function(input, output) {
  
  output$distPlot <- renderPlot({
    
    x    <- faithful$waiting
    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    
    hist(x, breaks = bins, col = "#75AADB", border = "white",
         xlab = "Waiting time to next eruption (in mins)",
         main = "Histogram of waiting times")
    
  })
  
}

ui.R

library(shiny)
ui <- fluidPage(
  titlePanel("Hello Shiny!"),
  sidebarLayout(
    sidebarPanel(
      sliderInput(inputId = "bins",
                  label = "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),
    mainPanel(
      plotOutput(outputId = "distPlot")
    )
  )
)

并且使用 OpenShift CLI,我 运行 使用以下命令干 运行。

oc new-app <repository> \
    --source-secret <secret> --name newapp --strategy=docker --dry-run -o json

即使我在 Docker 文件中公开了端口 3838,输出也没有显示端口 3838。

"spec": {
                       "containers": [
                            {
                                "name": "newapp",
                                "image": "newapp:latest",
                                "ports": [
                                    {
                                        "containerPort": 8080,
                                        "protocol": "TCP"
                                    },
                                    {
                                        "containerPort": 8443,
                                        "protocol": "TCP"
                                    }
                                ],
                                "resources": {}
                            }
                        ]
                    }
                }
            },

我是不是漏掉了什么?如何将端口 3838 添加为容器的默认端口?我在本地环境中使用 Docker 运行 这个,我可以通过输入 localhost:3838.

来访问闪亮的应用程序

为了让 OpenShift 识别暴露的端口,我相信您需要在 Dockerfile

上的 LABEL 中表达这一点
LABEL io.openshift.expose-services="8080:http"

来源:https://github.com/sclorg/s2i-python-container/blob/master/3.9/Dockerfile.fedora#L33