做了个股票行情实时更新的shinyapp，在本地可以正常运行，但部署到shinyapp.io后无法正常显示，具体代码如下：
global.R:

pacman::p_load(data.table,stringr,dplyr,Tushare,lubridate,mongolite,DT,
               future.apply,zoo,haven,readxl,foreign,rlist,XML,RCurl,jsonlite,
               ggplot2,shiny)

options(encoding = "UTF-8")

#涨停股票数据
getstockdat<-function(database,bk){
  todays=Sys.Date()
  tradeate<-as.Date(ifelse(weekdays(todays)=="星期六",todays-1,ifelse(week(todays)=="星期日",todays-2,todays)))|>
    format("%Y%m%d")
  zturl=paste0("https://push2ex.eastmoney.com/",database,"?cb=callbackdata4&ut=7eea3edcaed734bea9cbfc24409ed989&dpt=wz.ztzt&Pageindex=0&pagesize=1000&sort=",bk,"%3Aasc&date=",tradeate,"&_=1675429626825")
  dat<-zturl|>
    getURI()|>
    str_extract("(?<=\\().+?(?=\\))")|>
    fromJSON(flatten=T)
  return(dat)
}

gettim<-function(){
  Sys.setenv(TZ = "Asia/Shanghai")
  times<-format(now(tzone = "Asia/Shanghai"), "%H:%M:%S")
  if(nchar(times)<8){
    tims<-paste0("0",times)
  }else{
    tims<-times
  }
  return(tims)
}

deltime<-function(tdat){
  tdat<-ifelse(nchar(tdat)==5,paste0("0",tdat),tdat)
  return(gsub('^(\\d{2})(\\d{2})(\\d{2})$', '\\1:\\2:\\3', tdat))
}

sprinfs<-function(x){
  return(sprintf("%.2f",x))
}

ztdata<-function(){
  zturl=getstockdat("getTopicZTPool",'fbt')
  if(is.null(zturl$data)){
    ztdata<-NULL
  }else{
    ztdata<-zturl$data$pool|>
      mutate(p=p/100,
             zdp=zdp/100,
             amount=paste0(sprinfs(amount/100000000),"亿"),
             ltsz=paste0(sprinfs(ltsz/100000000),"亿"),
             tshare=paste0(sprinfs(tshare/100000000),"亿"),
             hs=hs/100,
             fund=paste0(sprinfs(fund/100000000),"亿"),
             lbc=paste0(lbc,"连板"),
             zbc=paste0(zbc,"次"),
             zttj=paste0(zttj.days,"/",zttj.ct),
             fbt=deltime(fbt),
             lbt=deltime(lbt)
      )|>
      select(c,n,zdp,p,amount,ltsz,tshare,hs,fund,fbt,lbt,zbc,zttj,lbc,hybk)|>
      arrange(fbt)|>
      datatable(options = list(
        columnDefs = list(list(className = 'dt-center', targets = "_all"))
      ),
      colnames = c("代码","名称","涨跌幅","最新价","成交额","流通市值","总市值",
                   "换手率","封板资金","首次封板时间","最后封板时间","炸板次数",
                   "涨停统计","连板数","所属行业"))|>
      formatPercentage(columns=c("zdp","hs"),2)|>
      formatStyle(columns=c("zdp","ztp"),valueColumns = "zdp",color=styleInterval(0, c('green','red' )), textAlign = 'center')|>
      formatStyle(columns=1:15, textAlign = 'center')
    

  }
  
  
  return(ztdata)
}


#昨日涨停表现
zrztdat<-function(){
  zrzt<-getstockdat("getYesterdayZTPool",'zs')
  
  if(is.null(zrzt$data)){
    ysztdat<-zrzt$data$pool
  }else{
    ysztdat<-zrzt$data$pool|>
      mutate(p=p/1000,
             zdp=zdp/100,
             zf=zf/100,
             zs=zs/100,
             ztp=ztp/1000,
             amount=paste0(sprinfs(amount/100000000),"亿"),
             ltsz=paste0(sprinfs(ltsz/100000000),"亿"),
             tshare=paste0(sprinfs(tshare/100000000),"亿"),
             hs=hs/100,
             ylbc=paste0(ylbc,"连板"),
             zttj=paste0(zttj.ct,"/",zttj.days),
             yfbt=deltime(yfbt)
      )|>
      select(c,n,zdp,p,ztp,amount,ltsz,tshare,hs,zs,zf,yfbt,zttj,ylbc,hybk)|>
      arrange(desc(zs))|>
      datatable(options = list(
        columnDefs = list(list(className = 'dt-center', targets = "_all"))
      ),
      colnames = c("代码","名称","涨跌幅","最新价","涨停价","成交额","流通市值","总市值",
                      "换手率","涨速","振幅","昨日封板时间",
                      "涨停统计","连板数","所属行业"))|>
      formatPercentage(columns=c("zdp","hs","zs","zf"),2)|>
      formatStyle(columns=c("p","ztp"),valueColumns = "zdp",color=styleInterval(0, c('green','red' )), textAlign = 'center')|>
      formatStyle(columns=c("zdp","zs","zf"),color=styleInterval(0, c('green','red' )), textAlign = 'center')|>
      formatStyle(columns=1:15, textAlign = 'center')
  }
  
  return(ysztdat)
}



##强势股

qsdata<-function(){
  qsurl=getstockdat("getTopicQSPool",'zdp')
  
  if(is.null(qsurl$data)){
    qsda<-qsurl$data$pool
  }else{
    qsda<-qsurl$data$pool|>
      mutate(p=p/1000,
             zdp=zdp/100,
             zs=zs/100,
             ztp=ztp/1000,
             amount=paste0(sprinfs(amount/100000000),"亿"),
             ltsz=paste0(sprinfs(ltsz/100000000),"亿"),
             tshare=paste0(sprinfs(tshare/100000000),"亿"),
             hs=hs/100,
             nh=factor(nh,labels = c("否","是")),
             zttj=paste0(zttj.ct,"/",zttj.days),
             cc=ifelse(cc==1,"60日新高",ifelse(cc==2,"近期多次涨停","60日新高且近期多次涨停")))|>
      select(c,n,zdp,p,ztp,amount,ltsz,tshare,hs,zs,nh,lb,zttj,cc,hybk)|>
      arrange(desc(zdp))|>
      datatable(options = list(
          columnDefs = list(list(className = 'dt-center', targets = "_all"))
        ),
        colnames =c("代码","名称","涨跌幅","最新价","涨停价","成交额","流通市值","总市值",
                   "换手率","涨速","是否新高","量比",
                   "涨停统计","入选理由","所属行业") )|>
      formatPercentage(columns=c("zdp","hs","zs"),2)|>
      formatStyle(columns=c("p","ztp"),valueColumns = "zdp",color=styleInterval(0, c('green','red' )), textAlign = 'center')|>
      formatStyle(columns=c("zdp","zs"),color=styleInterval(0, c('green','red' )), textAlign = 'center')|>
      formatStyle(columns=1:15, textAlign = 'center')
    
  }

  return(qsda)
}



##炸板股

zbztdat<-function(){
  zbzt<-getstockdat("getTopicZBPool",'fbt')
  if(!is.null(zbzt$data$pool)){
    zbztdata<-zbzt$data$pool|>
      mutate(p=p/1000,
             zdp=zdp/100,
             zf=zf/100,
             zs=zs/100,
             ztp=ztp/1000,
             amount=paste0(sprinfs(amount/100000000),"亿"),
             ltsz=paste0(sprinfs(ltsz/100000000),"亿"),
             tshare=paste0(sprinfs(tshare/100000000),"亿"),
             hs=hs/100,
             zbc=paste0(zbc,"次"),
             zttj=paste0(zttj.ct,"/",zttj.days),
             fbt=deltime(fbt)
      )|>
      select(c,n,zdp,p,ztp,amount,ltsz,tshare,hs,zs,fbt,zbc,zttj,zf,hybk)|>
      arrange(fbt)|>
      datatable(options = list(
        columnDefs = list(list(className = 'dt-center', targets = "_all"))
      ),
      colnames = c("代码","名称","涨跌幅","最新价","涨停价","成交额","流通市值","总市值",
                   "换手率","涨速","首次封板时间","炸板次数",
                   "涨停统计","振幅","所属行业"))|>
      formatPercentage(columns=c("zdp","hs","zs","zf"),2)|>
      formatStyle(columns=c("p","ztp"),valueColumns = "zdp",color=styleInterval(0, c('green','red' )), textAlign = 'center')|>
      formatStyle(columns=c("zdp","zs","zf"),color=styleInterval(0, c('green','red' )), textAlign = 'center')|>
      formatStyle(columns=1:15, textAlign = 'center')
  }else{
    zbztdata<-zbzt$data$pool
  }

  return(zbztdata)
}



##跌停表现
dtdat<-function(){
  dtzt<-getstockdat("getTopicDTPool",'fund')
  if(!is.null(dtzt$data)){
    dtdata<-dtzt$data$pool|>
      arrange(fund)|>
      mutate(p=p/1000,
             zdp=zdp/100,
             amount=paste0(sprinfs(amount/100000000),"亿"),
             ltsz=paste0(sprinfs(ltsz/100000000),"亿"),
             tshare=paste0(sprinfs(tshare/100000000),"亿"),
             fba=paste0(sprinfs(fba/100000000),"亿"),
             fund=paste0(sprinfs(fund/10000),"万"),
             hs=hs/100,
             days=paste0(days,"天"),
             oc=paste0(oc,"次"),
             lbt=deltime(lbt)
      )|>
      select(c,n,zdp,p,amount,ltsz,tshare,pe,hs,fund,lbt,fba,days,oc,hybk)|>
      datatable(options = list(
        columnDefs = list(list(className = 'dt-center', targets = "_all"))
      ),
      colnames = c("代码","名称","涨跌幅","最新价","成交额","流通市值","总市值",
                   "动态市盈率","换手率","封单资金","最后封板时间",
                   "板上成交额","连续跌停","开板次数","所属行业"))|>
      formatPercentage(columns=c("zdp","pe","hs"),2)|>
      formatStyle(columns=c("zdp","p"),color="green", textAlign = 'center')|>
      formatStyle(columns=1:15, textAlign = 'center')
  }else{
    dtdata=dtzt$data$pool
  }
  return(dtdata)
}




getindex<-function(){
  hsmainindex<-"http://96.push2.eastmoney.com/api/qt/clist/get?cb=jQuery112400759858277797385_1679825335215&pn=1&pz=50&po=1&np=1&ut=bd1d9ddb04089700cf9c27f6f7426281&fltt=2&invt=2&wbp2u=|0|0|0|web&fid=&fs=b:MK0010&fields=f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f12,f13,f14,f15,f16,f17,f18,f20,f21,f23,f24,f25,f26,f22,f11,f62,f128,f136,f115,f152&_=1679823379624"
  # hsmainindex<-"https://29.push2.eastmoney.com/api/qt/clist/get?cb=jQuery1124045798871689048637_1675491181570&pn=1&pz=50&po=1&np=1&ut=bd1d9ddb04089700cf9c27f6f7426281&fltt=2&invt=2&fid=&fs=b:MK0010"
  # headers<-c("Accept"="text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9",
  #            "Accept-Encoding"= "gzip, deflate",
  #            "Accept-Language"="zh-CN,zh;q=0.9,en;q=0.8",
  #            "User-Agent"= "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36")
  jsondat<-hsmainindex|>
    getURL()
  if(!is.null(jsondat)){
    indexdat<-jsondat|>
      str_extract("(?<=\\().+?(?=\\))")|>
      fromJSON(flatten=T)
  }else{
    indexdat<-NULL
  }
    
  return(indexdat)
}

hsindexdatif<-function(){
  dats<-getindex()
  if(!is.null(dats$data$diff)){
    infobox<-dats$data$diff|>
      mutate(f5=paste0(sprinfs(f5/100000000),"亿"),
             f6=paste0(sprinfs(f6/100000000),"亿"),
             f3=f3/100)|>
      select(f12,f14,f2,f4,f3,f5,f6,f18,f17,f15,f16)|>
      filter(f12%in%c("000001","399001","399006","000688"))|>
      mutate(zdf=paste0(f4,ifelse(f3>0,"(+","("),f3*100,"%)"),
             cols=ifelse(f3<=0,"green","red"))|>
      select(f2,zdf,cols)
  
  }else{
    
    infobox<-NULL
  }
  
  
  return(infobox)
  
}

hsindexdat<-function(){
  dats<-getindex()
  if(!is.null(dats$data$diff)){
    hsindex<-dats$data$diff|>
      mutate(f5=paste0(sprinfs(f5/100000000),"亿"),
             f6=paste0(sprinfs(f6/100000000),"亿"),
             f3=f3/100)|>
      select(f12,f14,f2,f4,f3,f5,f6,f18,f17,f15,f16)
    hsindat<-hsindex|>
      datatable(options = list(
        columnDefs = list(list(className = 'dt-center', targets = "_all"))
      ),
      colnames=c("代码","名称","最新价","涨跌额","涨跌幅","成交量","成交额","昨收","今开","最高","最低"))|>
      formatPercentage(columns=c("f3"),2)|>
      formatStyle(columns=c("f2","f4","f3","f18","f17","f15","f16"),valueColumns = "f3",color=styleInterval(0, c('green','red' )), textAlign = 'center')|>
      formatStyle(columns=1:15, textAlign = 'center')
    
  }else{
    hsindat<-NULL
    
  }
  
  
  return(hsindat)
  
}

sever.R:

pacman::p_load(data.table,stringr,dplyr,Tushare,lubridate,mongolite,DT,
               future.apply,zoo,haven,readxl,foreign,rlist,XML,RCurl,jsonlite,
               ggplot2,shiny)

Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")
options(shiny.sanitize.errors=FALSE)
# Define server logic required to draw a histogram
shinyServer(function(input, output, session) {
  
  ## I. Main dashboard -----------------------------
  i_prog <- 1
  tot_step <- 25
  
  # 1. Value boxes  ---------------------------------------------------------
  # try add progress bars

  output$markettype <- renderUI({
    tagList(input$markettype, tags$sup(style="font-size: 20px", "%"))
  })
  output$long_short <- renderUI({
    tagList(input$long_short, tags$sup(style="font-size: 20px", "%"))
  })


  
  output$currentTime <- renderText({
    invalidateLater(2000, session)
    paste("时间:", Sys.time())
  })
  
  
##动态刷新时间
  refreshdat<-function(lensecond){
    tems<-gettim()
    if(tems>"09:30:00"&tems<"15:01:00"){
      invalidateLater(lensecond, session)
    }else{
      invalidateLater(400000, session)
    }
  }
  
  threetop<-function(){
    tems<-gettim()
    if(tems>"00:00:00"&tems<"09:30:00"){
      output$SzindexBox<-renderInfoBox({
        infoBox(
          "上证指数","","数据维护中....",width = 3,
          fill = TRUE
        )
      })
      
      output$SczindexBox<-renderInfoBox({
        infoBox(
          "深成指数","","数据维护中....",width = 3,
          fill = TRUE
        )
      })
      
      output$CybindexBox <-renderInfoBox({
        infoBox(
          "创业板指","","数据维护中....",width = 3,
          fill = TRUE
        )
      })
      
      output$KcbindexBox<-renderInfoBox({
        infoBox(
          "科创50","","数据维护中....",width = 3,
          fill = TRUE
        )
      })
    }else{
      react<-hsindexdatif()
      
      output$SzindexBox<-renderInfoBox({
        infoBox(
          "上证指数",react$f2[1],react$zdf[1],
          color=react$col[1],width = 3,
          fill = TRUE
        )
      })
      
      output$SczindexBox<-renderInfoBox({
        infoBox(
          "深成指数",react$f2[2],react$zdf[2],
          color=react$cols[2],width = 3,
          fill = TRUE
        )
      })

      output$CybindexBox <-renderInfoBox({
        infoBox(
          "创业板指",react$f2[3],react$zdf[3],
          color=react$cols[3],width = 3,
          fill = TRUE
        )
      })

      output$KcbindexBox<-renderInfoBox({
        infoBox(
          "科创50",react$f2[4],react$zdf[4],
          color=react$cols[4],width = 3,
          fill = TRUE
        )
      })

      
    }

  }
  
 
  
 
##涨停股池
  ztgch<-function(){
    ztgdat<-ztdata()
    ztstatu<-is.null(ztgdat)
    if(!ztstatu){
      output$zttj <- renderDataTable(ztgdat)
    }else{
      output$ztgcnull<-renderUI({
        tagList(
          HTML('<div class="text-center">
                                  <strong>无涨停股票</strong>
                                  </div>')
        )
      })
    }
  }
  
  
##昨日涨停股票
  
  zrzt<-function(){
    zrzgdat<-zrztdat()
    zrzgstatu<-is.null(zrzgdat)
    if(!zrzgstatu){
       output$zrzttj <- renderDataTable(zrzgdat)
    }else{
      output$zrztnull<-renderUI({
        tagList(
          HTML('<div class="text-center">
                                  <strong>昨日无涨停股票</strong>
                                  </div>')
        )
      })
    }
  }
  

##强势股票
  
  
  qsgc<-function(){
    qsgpdat<-qsdata()
    qsstatu<-is.null(qsgpdat)
    if(!qsstatu){
      output$qszttj <- renderDataTable(qsgpdat)
    }else{
      output$qsgpnull<-renderUI({
        tagList(
          HTML('<div class="text-center">
                                  <strong>强势股票</strong>
                                  </div>')
        )
      })
    }
  }
  
  

##炸板股池
  
  zbreact<-function(){
     zbztd<-zbztdat()
     zbstatus<-is.null(zbztd)
     if(!zbstatus){
       output$zbzttj <- renderDataTable(zbztd)
     }else{
       output$zbgcnull<-renderUI({
         tagList(
           HTML('<div class="text-center">
                                  <strong>无强势股票</strong>
                                  </div>')
         )
       })
     }
  }
   

  
##跌停股票池
  
  
  dtbanreact<-function(){
    dtban<-dtdat()
    dtstatus<-is.null(dtban)
    
    if(!dtstatus){
      output$dttj <- renderDataTable({dtban})
    }else{
      output$dtbcnull<-renderUI({
        tagList(
          HTML('<div class="text-center">
                                  <strong>无跌停股票</strong>
                                  </div>')
        )
      })
    }
  }
  
  
##指数数据
  
  
  hsindwreact<-function(){
    hszs<-hsindexdat()
    status<-is.null(hszs)
    if(!status){
      output$hsmainindex <- renderDataTable(hszs)
    }
  } 
  

  
  showModal(modalDialog(
        title = "请稍候...",
        "数据加载中，请稍候...",
        easyClose = FALSE
      ))
  updatf<-reactiveTimer(5000)
  updatslow<-reactiveTimer(100000)
  isolate(
    observe({
      tems<-gettim()
      if(tems>"09:30:00"&tems<"15:01:00"){
        updatf()
      }
       threetop()
    })  
  )
  isolate(
    observe({
      
        
        tems<-gettim()
        if(tems>"09:30:00"&tems<"15:01:00"){
          updatslow()
        }
        ztgch()
        zrzt()
        qsgc()
        zbreact()
        dtbanreact()
        hsindwreact()
       
        })
        
  )
   removeModal()
  

  
  

})

ui.R:

pacman::p_load(shinydashboard,shiny,dplyr,tidyr,ggplot2,
               highcharter,lubridate,stringr,withr,treemap,DT,shinyBS,shinyjs,
               WDI,geosphere,magrittr,shinycssloaders,timevis,bslib,
               ggplot2,shiny)

options(spinner.color="#006272")
Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")


## 1. header -------------------------------
header <- dashboardHeader( title = HTML("Quant"), 
                   disable = FALSE, 
                   titleWidth  = 225
                   )
                   


## 2. siderbar ------------------------------
siderbar <- dashboardSidebar( 
  width=225,
  sidebarMenu(
    menuItem(tabName = "main","当日行情"),
    menuItem(tabName = "stock","股票" ,
             menuSubItem(tabName ="facot","因子表现"),
             menuSubItem(tabName ="strategy","投资策略")),
    menuItem(tabName = "ETF", "ETF"),
    menuItem(tabName = "Convertbond", "可转债")
  ) 
)

## 3. body --------------------------------
body <- dashboardBody( 
  ## 3.0. CSS styles in header ----------------------------
  
  tags$head(
    tags$style(HTML(
      "h1{font-size:20px;
          font-family:SimSun;
          font-weight: bold;
      }"
    ))
  ),
  
  tabItems(
    tabItem(tabName ="main",
            tags$br(),
            div(h1(strong(textOutput("currentTime")),
                   style = "color:darkblue" , align = "left")
            ),
            
            fluidRow(
              infoBoxOutput("SzindexBox", width = 3),
              infoBoxOutput("SczindexBox", width = 3),
              infoBoxOutput("CybindexBox", width = 3),
              infoBoxOutput("KcbindexBox", width = 3)
            ),

            tags$br(),

            div(p(strong("涨停板行情"),
                   style = "color:black", align = "left")
            ),

            fluidRow(
              box(
                width = 12,
                id="tabset1",
                tabsetPanel(
                  tabPanel("涨停股池",
                           dataTableOutput("zttj"),
                           uiOutput("ztgcnull")
                           ),
                  tabPanel("昨日涨停池",
                           dataTableOutput("zrzttj"),
                           uiOutput("zrztnull")
                           ),
                  tabPanel("强势股池",
                           dataTableOutput("qszttj"),
                           uiOutput("qsgpnull")
                           ),
                  tabPanel("炸板股池",
                           dataTableOutput("zbzttj"),
                           uiOutput("zbgcnull")
                           ),
                  tabPanel("跌停股池",
                           dataTableOutput("dttj"),
                           uiOutput("dtbcnull"))
                )

              )
            ),
            div(p(strong("沪深重要指数"),
                  style = "color:black", align = "left")
            ),

            fluidRow(
              box(
                width = 12,
                id="boxset1",
                #带加载
                # shinycssloaders::withSpinner(
                #   dataTableOutput("hsmainindex")
                # )
                dataTableOutput("hsmainindex")


              )
            )

    ),
    tabItem(tabName ="facot"

    ),
    tabItem(tabName ="strategy"

    ),
    tabItem(tabName ="ETF"

    ),
    tabItem(tabName ="Convertbond"
    )
    
  )
  
)



## put UI together --------------------
ui <- dashboardPage(header, siderbar, body,skin = "red")

部署后logs如下：
···
2023-03-26T13:40:53.251645+00:00 shinyapps[7857848]: rmarkdown version: 2.20
2023-03-26T13:40:53.251649+00:00 shinyapps[7857848]: knitr version: 1.42
2023-03-26T13:40:53.251654+00:00 shinyapps[7857848]: jsonlite version: 1.8.4
2023-03-26T13:40:53.251662+00:00 shinyapps[7857848]: RJSONIO version: (none)
2023-03-26T13:40:53.251666+00:00 shinyapps[7857848]: htmltools version: 0.5.4
2023-03-26T13:40:53.251680+00:00 shinyapps[7857848]: reticulate version: (none)
2023-03-26T13:40:53.251938+00:00 shinyapps[7857848]: Using pandoc: /opt/connect/ext/pandoc/2.16
2023-03-26T13:40:53.631590+00:00 shinyapps[7857848]: Starting R with process ID: '25'
2023-03-26T13:40:53.631956+00:00 shinyapps[7857848]: Shiny application starting ...
2023-03-26T13:40:55.497605+00:00 shinyapps[7857848]: Container event from container-7928489: stop
2023-03-26T13:40:55.610920+00:00 shinyapps[7857848]: Listening on http://127.0.0.1:46629
2023-03-26T13:41:01.803347+00:00 shinyapps[7857848]: Running on host: f462b7098e29
2023-03-26T13:41:01.805782+00:00 shinyapps[7857848]: Running as user: uid=10001(shiny) gid=10001(shiny) groups=10001(shiny)
2023-03-26T13:41:01.805812+00:00 shinyapps[7857848]: Connect version: 2023.03.0
2023-03-26T13:41:01.805818+00:00 shinyapps[7857848]: LANG: C.UTF-8
2023-03-26T13:41:01.805824+00:00 shinyapps[7857848]: Working directory: /srv/connect/apps/quant
2023-03-26T13:41:01.806044+00:00 shinyapps[7857848]: Using R 4.2.2
2023-03-26T13:41:01.806062+00:00 shinyapps[7857848]: R.home(): /opt/R/4.2.2/lib/R
2023-03-26T13:41:01.806312+00:00 shinyapps[7857848]: Content will use current R environment
2023-03-26T13:41:01.806320+00:00 shinyapps[7857848]: R_LIBS: (unset)
2023-03-26T13:41:01.806352+00:00 shinyapps[7857848]: .libPaths(): /opt/R/4.2.2/lib/R/library
2023-03-26T13:41:01.812864+00:00 shinyapps[7857848]: shiny version: 1.7.4
2023-03-26T13:41:01.812885+00:00 shinyapps[7857848]: httpuv version: 1.6.9
2023-03-26T13:41:01.812898+00:00 shinyapps[7857848]: rmarkdown version: 2.20
2023-03-26T13:41:01.812913+00:00 shinyapps[7857848]: knitr version: 1.42
2023-03-26T13:41:01.812921+00:00 shinyapps[7857848]: jsonlite version: 1.8.4
2023-03-26T13:41:01.812924+00:00 shinyapps[7857848]: RJSONIO version: (none)
2023-03-26T13:41:01.812927+00:00 shinyapps[7857848]: htmltools version: 0.5.4
2023-03-26T13:41:01.812948+00:00 shinyapps[7857848]: reticulate version: (none)
2023-03-26T13:41:01.813198+00:00 shinyapps[7857848]: Using pandoc: /opt/connect/ext/pandoc/2.16
2023-03-26T13:41:02.211233+00:00 shinyapps[7857848]: Starting R with process ID: '46'
2023-03-26T13:41:02.211240+00:00 shinyapps[7857848]: Shiny application starting ...
2023-03-26T13:41:04.310289+00:00 shinyapps[7857848]: Listening on http://127.0.0.1:46093
2023-03-26T13:41:09.077528+00:00 shinyapps[7857848]: Warning: Error in if: missing value where TRUE/FALSE needed
2023-03-26T13:41:09.088497+00:00 shinyapps[7857848]: 63: fromJSON
2023-03-26T13:41:09.088543+00:00 shinyapps[7857848]: 62: getindex [global.R#246]
2023-03-26T13:41:09.088549+00:00 shinyapps[7857848]: 61: hsindexdatif [global.R#257]
2023-03-26T13:41:09.088554+00:00 shinyapps[7857848]: 60: threetop [/srv/connect/apps/quant/server.R#83]
2023-03-26T13:41:09.088560+00:00 shinyapps[7857848]: 59: observe [/srv/connect/apps/quant/server.R#250]
2023-03-26T13:41:09.088571+00:00 shinyapps[7857848]: 58: <observer>
2023-03-26T13:41:09.088575+00:00 shinyapps[7857848]: 15: <Anonymous>
2023-03-26T13:41:09.088578+00:00 shinyapps[7857848]: 13: fn
2023-03-26T13:41:09.088585+00:00 shinyapps[7857848]: 8: retry
2023-03-26T13:41:09.088588+00:00 shinyapps[7857848]: 7: connect$retryingStartServer
2023-03-26T13:41:09.088591+00:00 shinyapps[7857848]: 6: eval
2023-03-26T13:41:09.088594+00:00 shinyapps[7857848]: 5: eval
2023-03-26T13:41:09.088597+00:00 shinyapps[7857848]: 4: eval
2023-03-26T13:41:09.088600+00:00 shinyapps[7857848]: 3: eval
2023-03-26T13:41:09.088604+00:00 shinyapps[7857848]: 2: eval.parent
2023-03-26T13:41:09.088607+00:00 shinyapps[7857848]: 1: local
···

提示貌似fromJSON报错，但在本地试了多次都无问题，不知道如何debug.