r - 渲染 Shiny 页面时出现数据表问题

Question

我的 Shiny 应用程序面临一个问题，其中从 csv 文件呈现的柱状数据显示在行而不是列中(除标题之外的每个变量都被视为一列，而它应该在行中对齐)。每次我访问 Shiny 页面时，都会弹出以下错误:“DataTables 警告:表 id=DataTables_Table_0 - 请求第 10 行的未知参数“10”。有关此错误的更多信息，请参阅 http://datatables.net/tn/4 ”。请参阅下面的附图

具有完全相同代码的相同应用程序在质量集群中运行得非常好，但在生产中却失败了。两处风景一模一样。请参阅下面的两张图片，了解数据的外观以及当前的显示方式。 enter image description here

该应用程序在带有 R 3.6 的 RHEL 7 上运行

Server.R

shinyServer(function(session,input, output) {
  myAnalysisList = reactiveFileReader(1000, NULL, "scheduledAnalyses.csv", readFunc = read.csv, stringsAsFactors = FALSE, encoding = "UTF-8")

  observeEvent(input$schedule,{

    tryCatch({

      adjustedDateRange<-getAdjustedDateRange(input$dateRange[1],input$dateRange[2],type = input$forecastType)
      currTime = Sys.time()
      print(input$forecastHorizon)
      forecastHorizonCorrected = input$forecastHorizon
      if(input$forecastType!="Monthly"){
        forecastHorizonCorrected = input$forecastHorizonWeekly
      }

      newRow = data.frame(ScheduledAt = as.character(currTime), 
                          StartDate = as.character(adjustedDateRange$startDate),
                          EndDate = as.character(adjustedDateRange$endDate),
                          Linea = input$productLinea,
                          Series = input$productSeries,
                          Group = input$productGroup,
                          StatGroup = input$productStatGroup,
                          ProductCode = input$productCode,
                          DemProfile = input$demandProfileSelected,
                          FType = input$forecastType,
                          FHorizon = forecastHorizonCorrected,
                          Status = "Scheduled",
                          Duration = 0)

      msg="Just before writing the Schedule"
      write.table(newRow,"scheduledAnalyses.csv",sep = "," ,row.names = FALSE,append = TRUE,col.names = FALSE)
      output$scheduleStatus = renderUI({
        box(title = "Status : Success",status = "success",width =NULL,solidHeader = TRUE,paste("Process has been scheduled at ",currTime, " ",format(currTime, format = "%Z")))
      })

    }, error = function(errorMsg){
      output$scheduleStatus = renderUI({
        box(title = "Status : Error",status = "danger", solidHeader = TRUE ,paste("Unable to schedule the process!\n Error: ",errorMsg$message,msg))
      })

    })

    #myAnalysisList <<- bind_rows(myAnalysisList,newRow)
    output$analysesList <- renderDataTable(myAnalysisList())


  })
  output$analysesList = renderDataTable(myAnalysisList())
  # observeEvent(input$forecastHorizon,{
  #   print(input$forecastHorizon)
  # })

UI.R

inp<-read.csv("inp.csv",stringsAsFactors = FALSE)
#-------------------------Loading data from Spark ---------------------------------#
#tbl_cache(sc,"demand_forecast_newcode_monthyr")
#inpPtr<-tbl(sc,"demand_forecast_newcode_duedate") %>% filter(linea == "Linea Differenziali DS271" | linea == "Linea Differenziali Elettronici DSE201" | linea == "Linea Differenziali Puri F200" )
#inp<-collect(inpPtr)
#columnNames<-colnames(inp)
#newNames<-sub("^.*\\.","",columnNames)
#colnames(inp)<-newNames
#View(inp)
inp<- inp[!is.na(inp$due_date), ]
inp<- inp[!is.na(inp$linea), ]
inp<- inp[!is.na(inp$series), ]
inp<- inp[!is.na(inp$groupo), ]
inp<- inp[!is.na(inp$gruppo_stat), ]
inp<- inp[!is.na(inp$productcode), ]
inp$due_date <- as.Date(inp$due_date, origin = "1970-01-01")
inpmod <- inp %>% 
  mutate(Year = year(due_date),
         Month = month(due_date),
         MonthlyDate = format(due_date, format= "%Y-%m-01"),
         QuarterlyDate = quarter(due_date,with_year = TRUE),
         SemesterDate = semester(due_date,with_year = TRUE),
         WeekInYear = isoweek(due_date)
  )

lineaChoices = c("All",unique(inpmod$linea))
serieChoices = c("All",unique(inpmod$series))
groupChoices = c("All",unique(inpmod$groupo))
statGroupChoices = c("All",unique(inpmod$gruppo_stat))
productCodeChoices = c("All",unique(inpmod$materiale))
# Define UI for application that plots random distributions 
shinyUI(dashboardPage( 
  skin="red",

  dashboardHeader(title = "Demand Forecasting, ABB Inc.", titleWidth = 350),

  dashboardSidebar(
    sidebarMenu(
      menuItem( "Forecast", tabName = "forecastTab", icon = icon("line-chart")),
      menuItem( "Status", tabName = "statusTab", icon = icon("cogs"))
    )
  ), 

  dashboardBody(
    tabItems(
      tabItem( tabName = "forecastTab",
               fluidRow(
                 column( width = 8,
                         fluidRow(
                           column( width = 12,
                                   box(title = "Timeline",  status = "danger", width = NULL,
                                       dateRangeInput("dateRange","Date Range(MM-YYYY):", format = "MM-yyyy", 
                                                      startview = "decade", start = "2010-01-01",end = Sys.Date())
                                       #tags$br(),
                                       #textOutput("AdjustedDate")
                                   )
                           )
                         ),
                         fluidRow(
                           column( width =12, 
                                   box(title = "Product Hierarchy",  status = "danger", width = NULL,
                                       column(width =  6,
                                              selectInput("productLinea","Linea", selectize = TRUE,
                                                          choices = lineaChoices, selected = "All"),
                                              tags$br(),
                                              selectInput("productGroup","Group",selectize = TRUE,
                                                          choices = statGroupChoices, selected = "All"),

                                              tags$br(),
                                              selectInput("productCode","Product Code",selectize = TRUE,
                                                          choices =productCodeChoices, selected = "All")

                                       ),
                                       column(width = 6,
                                              selectInput("productSeries","Series",selectize = TRUE,
                                                          choices = serieChoices, selected = "All"),
                                              tags$br(),
                                              selectInput("productStatGroup","Statistical Group", selectize = TRUE,
                                                          choices = groupChoices, selected = "All")


                                       )
                                   )
                           )
                         )
                 ),

                 column( width = 4,
                         box( title = "Forecast Parameters", status = "danger", width = NULL,
                              tags$br(),
                              selectInput("demandProfileSelected","Demand Profile",
                                          choices = c("Predictable", "Unstable", "All"), selected = "Predictable"),
                              #tags$h4("Select the required granularity for the forecast"),
                              tags$br(),
                              selectInput("forecastType","Forecast Type", choices = c("Monthly","Weekly"),
                                          selected = "Monthly"),
                              tags$hr(),
                              tags$br(),
                              #tags$h4("Select the number of time periods from end date to forecast"),
                              #tags$br(),
                              conditionalPanel("input.forecastType=='Monthly'",
                                               sliderInput("forecastHorizon", "Forecast Horizon:", 1, 12, 6)),
                              conditionalPanel("input.forecastType=='Weekly'",
                                               sliderInput("forecastHorizonWeekly", "Forecast Horizon:", 1, 52, 12))
                         ) 



                 )
               ),

               fluidRow(
                 column(width = 2,
                        actionButton("clear"," Clear", class = "btn-lg btn-success",
                                     style='color: white; width:100%; height:70px; font-size:150%;',
                                     icon = icon("refresh"))
                 ),
                 column(width = 3,

                        actionButton("schedule","  Schedule & Start", class = "btn-lg",
                                     style='color: white; background-color: #dd4b39; width:100%; height:70px; font-size:150%;',
                                     icon = icon("cogs")) 
                 )
                 # column(width = 8,
                 #        uiOutput("scheduleStatus")
                 # )
               ),
               fluidRow(
                 tags$br(),
                 column(width = 3),
                 column( width = 6, 
                         uiOutput("scheduleStatus")
                 )
               )

      ),

      tabItem(tabName = "statusTab",
              #p("COmiNg sOoN")
              fluidRow(
                column(12,
                       box(title = "Scheduled Forecasts",  status = "danger", width = NULL,
                           dataTableOutput('analysesList')
                       )
                )
              )
      )
    )
  )
))

Answer 1

请在下面的链接中找到此问题的答案。感谢 @andresrcs ( https://community.rstudio.com/ )

https://community.rstudio.com/t/data-table-issue-while-rendering-the-shiny-page-datatables-warning-table-id-datatables-table-0-requested-unknown-parameter/44016/3?u=pranav

有关问题的原始讨论和建议的解决方案可以在此处找到: https://github.com/rstudio/shiny/issues/2653

解决方案概要:(我测试并工作过的解决方案)对于 renderDataTable() 和 dataTableOutput() 使用 DT 包而不是 Shiny

非常感谢为问题解决做出贡献的所有人。 :)