2つのデジタルがコンマになった

Question

最終的な目的は時間と濃度の列を保持することですが、上の行をすべてスキップする前に、日付を「9/12/2017」にします後で[Time]列）をクリックします。

最後に「サンプル1のコメント」という迷惑なメッセージがありますが、私はそれを取り除く必要があります。最大の問題は、日付を保存しようとしたとき、「9/12/2017」ではなく「9/12/17 ,,」と出てきたことです。私はなぜそれがそのように行くのかわからない、それは最後にコメント行の影響を受けるかもしれない、年の2つのデジタルはコンマになった。私が試したことは

cpcFile = choose.files(default = "", caption = "   

        SELECT THE CPC.csv FILE ", 
        multi = FALSE, filters = Filters[c("txt", "All"),], 
        index = nrow(Filters)) 

cpcData <- read.csv(cpcFile, skip = 16) 

#helps get rid of the comment line,it works 
cpcData<-cpcData[- grep("Comment", cpcData$Time),] 

#however,the P6 shows "9/12/17,,"instead of " "9/12/2017" 
K=readLines(cpcFile, n = 5) # read first 5 lines 
header=K[[5]]    # read only the date and time 
P6= substr(header, 12, 25) 

ある

Sample File E:\CPC 091217\091217CPC3.C07 
Model 3007 
Sample # 1 
Start Date 9/12/2017 
Start Time 10:29:57 
Sample Length 4:14:37 
Averaging Interval (secs) 1 
Title 
Instrument ID 3007-03160001 3.1 
Instrument Errors None 

Time Concentration (#/cm³) 
10:29:58 4224 
10:29:59 97323 
10:30:00 14590 
10:30:09 73716 
10:30:10 70779 
10:30:11 60642 
10:30:12 56171 

......... 
Comment for Sample 1: 

期待：

Time   Concentration (#/cm³) 
10:29:58 9/12/2017  4224 
10:29:59 9/12/2017  97323 
10:30:00 9/12/2017  14590 
10:30:09 9/12/2017  73716 
........ 

とP6は、まず感謝2017年9月12日でなければなりません！

Answer 1

私は、ファイルのうち、日付の解析の問題をsidesteppingお勧めしてだけではなく、ファイル名のうち、それを解析し、彼らは一貫して、日付を持っていると仮定します。

を次にあなたがに応じてreadr::read_delimまたはreadr::readfwfを使用することができますskip引き数を使用してファイルを正確に区切ってヘッダーをスキップします。フッターはおそらく解析に失敗しますが、そうでない場合はそれをチェックしてドロップできます。データフレームをロードした後、ファイル名の正規表現を使用してstring:str_extractを使用して日付列を設定できます。