下付き文字の範囲外

Question

出力ファイルをVissimシミュレーションからCSVファイルにフォーマットしようとしています。だから私は2 Fileinputsています

• FileInputクラス1は、CSVファイルにFZPファイルをフォーマットするために、それは複数のファイルをアップロードすることができているが、今のところは唯一、最大で2をアップロードすることができますが、後に、私はFileInputクラス1を希望します2つ以上のファイルを処理できます。
• FileInput 2は、VISSIMシミュレーションの実行が複数のFZPファイルになる可能性があるため、FZPファイルを変換した後のCSVファイルをマージするためのものです.2回以上マージしたい場合はFileInput 2をマージする。

私の問題はFileInput 1です。なぜなら、2つのファイルFZPをアップロードするとエラーが発生しないからです。しかし、1つのファイルFZPをアップロードすると、 'Bound'インデックス2のFileInput 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())) 
} 
})