Question

我正在尝试将输出文件从Vissim模拟格式化为csv文件。所以我有2个Fileinputs：

FileInput 1用于将FZP文件格式化为CSV文件，它可以上传多个文件但是现在它最多只能上传2个，但是后来我希望FileInput 1可以处理2个以上的文件。
FileInput 2用于在转换FZP文件后合并CSV文件，因为1次运行VISSIM模拟可以是多个FZP文件，因此如果我想合并2次或更多次运行，我想使用FileInput 2进行合并

我的问题在于FileInput 1，因为当我上传2个文件FZP时它不会导致错误，但是当我只上传1个文件FZP时它会导致错误'下标超出限制'，即使我已经创建了FileInput的条件索引2中的1为Null，然后创建新的数据帧。因为，我正在尝试从多个上传的文件中访问单个文件，以便通过名为“VEHTYPE”的属性计算FZP文件中的属性平均值。

那么，我该如何解决这个问题呢？

#UI
library(shiny)
library(data.table)

shinyUI(fluidPage(
titlePanel("File Input"),
sidebarLayout(
sidebarPanel(
  tags$hr(),
  fileInput("file1",
            "Choose FZP files",
            multiple = TRUE),
  fileInput("file2",
            label="Upload multiple CSVs here",
            multiple = TRUE),
  uiOutput("column_1"),
  downloadButton("download", "Filter Table"),
  downloadButton("download1", "Aggregate Table")
),
mainPanel(
  uiOutput("tb")
))
))

#Server
library(shiny)
library(dplyr)
library(plyr)
library(data.table)

shinyServer(function(input, output) {

data1 <- reactive({
inFile <- input$file1
if (is.null(inFile)) {
  return(NULL)
} else {
  inFile %>%
    rowwise() %>%
    do({
      df <- fread(input$file1[[1, 'datapath]]', skip="t;", sep = ";", header=T, stringsAsFactor = F)
    })
  }
  })

  data2 <- reactive({
  inFile <- input$file1
  if (is.null(input$file1[[2, "datapath"]])) {
  subData <- data1()
  df <- subData[0,]
  df
  #data1()
  } else {
  inFile %>%
    rowwise() %>%
    do({
      df <- fread(input$file1[[2, 'datapath']], skip="t;", sep = ";", header=T, stringsAsFactor = F)
    })
  }
  })

  output$column_1 <- renderUI({
  if (is.null(data1())) {
  return(NULL)
  } else {
  selectInput("column1", "Feature selection:", names(data1()))
  }
  })

  average1 <- reactive({
  #Processing data1
  subsetData1 <- data1()
  calAvg1 <- subsetData1[, c("VEHTYPE",input$column1)] 
  calAvg1 <- aggregate(calAvg1[, ncol(calAvg1)], list(VEHTYPE = calAvg1$VEHTYPE), mean)
  total <- sum(calAvg1[, ncol(calAvg1)])/length(calAvg1$VEHTYPE)
  dfTotal1 <- data.frame("Total", total)
  names(dfTotal1) <- c("VEHTYPE", input$column1)
  newDF1 <- rbind(calAvg1, dfTotal1)
  })

  average2 <- reactive({
  #Processing data2
  subsetData2 <- data2()
  if(is.data.frame(subsetData2) && nrow(subsetData2)==0){
    subsetData2
  }else{
    calAvg2 <- subsetData2[, c("VEHTYPE",input$column1)] 
    calAvg2 <- aggregate(calAvg2[, ncol(calAvg2)], list(VEHTYPE = calAvg2$VEHTYPE), mean)
    total <- sum(calAvg2[, ncol(calAvg2)])/length(calAvg2$VEHTYPE)
    dfTotal2 <- data.frame("Total", total)
    names(dfTotal2) <- c("VEHTYPE", input$column1)
    newDF2 <- rbind(calAvg2, dfTotal2)
    }
  })

  finalDF <- reactive({

  if(is.data.frame(average2()) && nrow(average2())==0){
  average1()
  }else{
  final <- rbind(average1(), average2())
  #average2()
  }
  #Merge all dataframe
  #finalDF <- rbind(average1(), average2())
  })

  data3 <- reactive({ 
  req(input$file2) ## ?req #  require that the input is available

  multiFile <- input$file2

  df <- rbindlist(lapply(multiFile$datapath, fread),
                use.names = TRUE, fill = TRUE)
  as.data.frame(df)
  return(df)
  })

  output$original <- renderDataTable({
  data1()
  })

  output$filterData <- renderTable({
  finalDF()
  })

  output$multiData <- renderTable({
  data3()
  })

  output$download <- downloadHandler(
  filename = function(){
  paste("data-", Sys.Date(), ".csv", sep = "")
  },
  content = function(file){
  write.csv(get_table(), file,row.names = F)
  }
  )

  output$download1 <- downloadHandler(
  filename = function(){
  paste("data-", Sys.Date(), ".csv", sep = "")
  },
  content = function(file){
  write.csv(data3(), file,row.names = F)
  }
  )

  output$tb <- renderUI({
  tabsetPanel(tabPanel("Original Data", dataTableOutput("original")),
            tabPanel("Filter Data", tableOutput("filterData")),
            tabPanel("Aggregate Data", tableOutput("multiData"))
  )
  })
  })

FZP文件或多或少看起来像这样：

$VISION
* File: Y:\03_Studentische Arbeiten\VT\IDP\Windu\Test Simulation\test1.inpx
* Comment: 
* Date: 03.08.2017 09:32:43
* PTV Vissim: 9.00 [04]
* 
* Table: Vehicles In Network
* 
* SIMSEC: SimSec, Simulation second (Simulation time [s]) [s]
* NO: No, Number (Number of the vehicle)
* LANE\LINK\NO: Lane\Link\No, Lane\Link\Number (Unique number of the link or connector)
* LANE\INDEX: Lane\Index, Lane\Index (Unique number of the lane)
* POS: Pos, Position (Distance on the link from the beginning of the link or connector) [m]
* POSLAT: PosLat, Position (lateral) (Lateral position at the end of the time step. Value range 0 - 1:  0: at the right lane edge  0.5: middle of the lane  1: at the left lane edge)
* EMISSIONSCO2: EmissionsCO2, Emissions CO2 (Quantity of carbon monoxide [grams / sec])
* EMISSIONSNOX: EmissionsNOx, Emissions NOx (Quantity of nitrogen oxides [grams / sec])
* FUELCONSUMPTION: FuelConsumption, Fuel consumption (Fuel consumption [US liquid gallon])
* INQUEUE: InQueue, In queue (Returns if the vehicle is in queue. Queue is defined by speed and headway treshholds. (see queue definition))
* NUMSTOPS: NumStops, Number of stops (Number of stops (cumulative): all situations in which a vehicle comes to a standstill (speed = 0), except stops at PT stops and in parking lots)
* SPEED: Speed, Speed (Speed at the end of the time step) [km/h]
* VEHTYPE: VehType, Vehicle type (Select Vehicle type from the list box)
* 
* SimSec; No; Lane\Link\No; Lane\Index; Pos; PosLat; EmissionsCO2; EmissionsNOx; FuelConsumption; InQueue; NumStops; Speed; VehType
*
$VEHICLE:SIMSEC;NO;LANE\LINK\NO;LANE\INDEX;POS;POSLAT;EMISSIONSCO2;EMISSIONSNOX;FUELCONSUMPTION;INQUEUE;NUMSTOPS;SPEED;VEHTYPE
0.50;1;1;1;0.80;0.50;;;;0;0;41.70;100
0.60;1;1;1;1.96;0.50;;;;0;0;41.90;100
0.70;1;1;1;3.13;0.50;;;;0;0;42.16;100
0.80;1;1;1;4.31;0.50;;;;0;0;42.50;100
0.90;1;1;1;5.49;0.50;;;;0;0;42.91;100
1.00;1;1;1;6.69;0.50;;;;0;0;43.39;100
1.10;1;1;1;7.90;0.50;;;;0;0;43.92;100
1.20;1;1;1;9.13;0.50;;;;0;0;44.44;100
1.30;1;1;1;10.37;0.50;;;;0;0;44.96;100
1.40;1;1;1;11.63;0.50;;;;0;0;45.48;100
1.50;1;1;1;12.90;0.50;;;;0;0;45.99;100
1.60;1;1;1;14.18;0.50;;;;0;0;46.49;100
1.70;1;1;1;15.48;0.50;;;;0;0;47.00;100
1.80;1;1;1;16.79;0.50;;;;0;0;47.50;100

错误

Warning: Error in [[: subscript out of bounds
Stack trace (innermost first):
117: [[.data.frame
116: [[
115: fread
114: overscope_eval_next 
113: do.rowwise_df
112: do
111: function_list[[k]]
110: withVisible
109: freduce
108: _fseq
107: eval
106: eval
105: withVisible
104: %>%
103: <reactive:data2> 
 92: data2
 91: <reactive:average> 
 80: average
 79: renderTable 
 78: func
 77: origRenderFunc
 76: output$filterData
  1: shiny::runApp

Answer 1

我认为问题在于将文件分配给数据框，我在那里修改了一些代码。

尝试按以下方式更改服务器代码，并告诉我它是否有效。

shinyServer(function(input, output) {

data1 <- reactive({
inFile <- input$file1
if (is.null(inFile)) {
  return(NULL)
} else {
  inFile %>%
    rowwise() %>%
    do({
      df <- fread(input$file1$datapath, skip="t;", sep = ";", header=T, stringsAsFactor = F)
    })
}
})

data2 <- reactive({
inFile <- input$file1
if (is.null(inFile)) {
  return(NULL)
} else {
  inFile %>%
    rowwise() %>%
    do({
      df <- fread(input$file2$datapath, skip="t;", sep = ";", header=T, stringsAsFactor = F)
    })
}
})

output$column_1 <- renderUI({
if (is.null(data1())) {
  return(NULL)
} else {
  selectInput("column1", "Feature selection:", names(data1()))
}
})

Answer 2

要将.fzp文件转换为.txt或.csv，只需使用DOS命令提示符即可。您可以导航到您的文件夹并使用以下语法：任* .fzp * .txt
要么任* .fzp * .csv 之后，请按照此页面reading from folder上的步骤进行操作并使用带有“ skip =”的read.csv来读取文件。

下标出界

2 个答案: