闪亮 - “应用程序启动失败：正常退出，代码为 137，信号 9 (SIGKILL)”

Question

你好

我正在开发一个闪亮的应用程序，一切都很好，直到我从自启动该应用程序以来一直使用的相同数据中添加了另一个可视化。当时，数据不到 1.5gb，但该应用程序在本地运行前几张图时运行良好。

在本地运行应用程序时我没有收到任何错误，但是当我尝试发布它时出现错误：“应用程序无法启动：正常退出，代码为 137 , 信号 9 (SIGKILL)”。

我调查了一下 shiny 上没有足够的内存，免费订阅有 1gb 的限制。所以我将我的数据减少到不到 0.8gb，并且我注释掉了除了这段代码之外我在 shiny 上的所有内容：

library(DT)
library(TTR)
library(dplyr)
library(derivmkts)
library(fresh)
library(highcharter)
library(lubridate)
library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(tidyverse)
library(vroom)

tickers = vroom("tickers.csv",delim=",",col_types=cols()) 
termdf = vroom("termdf.csv",delim=",",col_types=cols())

#----------------------------------------------------------------------------#

ui <- {dashboardPage(
  dashboardHeader(title=""),
  dashboardSidebar(sidebarMenu(pickerInput(inputId="name",label="",choices=tickers,options=list('live-search'=T,size=6),width="100%"),
                               menuItem("Dashboard",tabName="db"),
                               menuItem("Relative Value",tabName="rv"),
                               menuItem("Earnings",tabName="er"),
                               menuItem("Calculator",tabName="calc"))),
  dashboardBody(
    tabItems(tabItem(tabName="db",
                     fluidRow(box(status="primary",DT::dataTableOutput("scan1"),width=12,collapsible=T)),
                     fluidRow(
                       tabBox(
                         tabPanel("Price Chart",highchartOutput("pxchart"))),
                       tabBox(
                         tabPanel("Volatility",highchartOutput("volchart")),
                         tabPanel("Skew",highchartOutput("skewchart")),
                         tabPanel("Contango",highchartOutput("conchart")))),
                     fluidRow(tabBox(tabPanel("Volatility Cone",highchartOutput("volcone"))),
                              tabBox(tabPanel("Option Volume",highchartOutput("ovchart")))),
                     fluidRow(tabBox(tabPanel("Skew Structure",highchartOutput("skewchart")),width=4),
                              tabBox(tabPanel("Term Structure",highchartOutput("termstr")),width=4),
                              tabBox(tabPanel("IV30 Spot Correlation",highchartOutput("ivpxchart")),width=4))))))
}

#----------------------------------------------------------------------------#

server <- function(input, output) {
  t0 = reactive({
    x = input$name
    x
  })
  output$pxchart = renderHighchart({
    t1 = t0()
    x1 = termdf %>% filter(ticker==t1)
    x2 = xts::xts(x1$priorCls,ymd(x1$tradeDate))
    
    highchart(type="stock") %>%
      hc_add_series(x2,type="line",name="Close Price") %>%
      hc_legend(enabled=T) %>%
      hc_rangeSelector(selected = 4) %>% 
      hc_add_theme(hc_theme_flatdark())
  })
}

#----------------------------------------------------------------------------#

shinyApp(ui = ui, server = server)

我只是想在本地这段代码中加载价格图表输出，但即便如此也无法加载。据我所知，我低于实例大小...这是什么happening/how 这可以修复吗？

Answer 1

当您寻求此类帮助时，您应该尝试提供一个可重现的示例。您给出的示例不可重现，因为它使用本地 csv 文件。

看起来您有两个具有相同 ID "skewchart" 的输出。不允许使用相同 ID 的两个输出，这将导致您的 UI 失败，因为它会生成无效的 HTML.

闪亮 - “应用程序启动失败：正常退出，代码为 137，信号 9 (SIGKILL)”

shiny - “The application failed to start: exited normally with code 137, signal 9 (SIGKILL)”

r

shiny

shinydashboard