Question

我有一个名为“标签”的列表列，我没有列出可读数据框。一切都在本地运行良好，但当我在AWS闪亮服务器上运行它时，它会在下面给我这个错误。我可以共享其他代码片段但是想先得到关于此错误的指针，这可能是什么？

警告：mutate_impl出错：列labels的类型函数不受支持

Stack trace (innermost first):
    110: <Anonymous>
    109: stop
    108: filtered
    107: as.data.frame
    106: eval
    105: eval
    104: %>%
    103: <reactive:filtered_closed> [/srv/shiny-server/support-dashboard/server.R#74]
     92: filtered_closed
     91: tagList
     90: tag
     89: tags$h3
     88: h3
     87: tag
     86: tags$div
     85: div
     84: tag
     83: tags$div
     82: div
     81: valueBox
     80: vbox_fun [/srv/shiny-server/support-dashboard/server.R#179]
     79: shiny::renderUI
     78: func
     77: origRenderFunc
     76: output$vb_ratio
      1: runApp

我在服务器上的会话信息：

    R version 3.4.3 (2017-11-30)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 16.04.3 LTS

Matrix products: default
BLAS: /usr/lib/libblas/libblas.so.3.6.0
LAPACK: /usr/lib/lapack/liblapack.so.3.6.0

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
 [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
[1] compiler_3.4.3

更新：附加信息：从global.R

加载数据集

issues <- readRDS("/srv/shiny-server/support-dashboard/issues.rds")

下面的Server.R片段。注意：问题是df。标签是列表。

shinyServer(function(input, output) {

    filtered <- reactive({
        unnest(issues, labels) %>% # remove lists from labels. 
            rename(pr_key = pull_request.url, 
                   reported_by = user.login, 
                   associate = assignee.login, 
                   release = milestone.title) %>%
            select(-ends_with("url"), -starts_with("user"), 
                   -starts_with("assignee"), -starts_with("milestone"), 
                   -title) %>%
            filter(str_detect(name, "help wanted")) %>%
            mutate(created_at = ymd(as.Date(created_at)), 
                   closed_at = ymd(as.Date(closed_at))) 
    })

    filtered_by_date <- reactive({
        filtered() %>%
            group_by(created_at) %>%
            filter(
                # created_at in df replacement in reactive. 
                created_at >= input$dateRange[1],
                created_at <= input$dateRange[2]
            ) %>%
            summarise(n = n()) %>%
            rename(created_date = created_at) %>%
            rename(issues_count = n)
    })

其他套餐信息：

Attaching package: ‘shinydashboard’

The following object is masked from ‘package:graphics’:

    box

Loading required package: methods
── Attaching packages ─────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 2.2.1     ✔ purrr   0.2.4
✔ tibble  1.4.2     ✔ dplyr   0.7.4
✔ tidyr   0.8.0     ✔ stringr 1.2.0
✔ readr   1.1.1     ✔ forcats 0.2.0
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
Highcharts (www.highcharts.com) is a Highsoft software product which is
not free for commercial and Governmental use

Attaching package: ‘lubridate’

The following object is masked from ‘package:base’:

    date

[1] "/srv/shiny-server/support-dashboard"
# A tibble: 3,387 x 89

警告消息：列'标签'具有不受支持的类型功能

0 个答案: