闪亮 - “应用程序无法启动：正常退出，代码 137，信号 9SIGKILL”

问题描述

你好。

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

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

我查看了这个，it mentioned 在闪亮上没有足够的内存，免费订阅有 1GB 的限制。所以我把我的数据减少到 0.8GB 以下，我把我在闪亮的所有东西都注释掉了，除了这段代码：

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",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",width=4),tabBox(tabPanel("Term Structure",highchartOutput("termstr")),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)

我只是想在本地加载这段代码中的价格图表输出，但即使这样也没有加载。据我所知，我低于实例大小......发生了什么/如何解决？

解决方法

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

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

r r shiny shinydashboard