Since you don't have a header on the first line, just use 'read.table'.
> x <- read.table(text = "1377262633.948000
$GPRMC,125708.00,A,5047.66107,N,00603.65528,E,0.203,247.36,230813,,,A*60
+ 1377262633.958000 $GPVTG,247.36,T,,M,0.203,N,0.377,K,A*3B
+ 1377262633.968000
$GPGGA,125708.00,5047.66107,N,00603.65528,E,1,09,0.85,169.3,M,46.5,M,,*52
+ 1377262633.978000
$GPGSA,A,3,29,21,31,25,16,05,06,13,27,,,,1.78,0.85,1.57*0C
+ 1377262633.998000
$GPGSV,3,1,12,03,01,266,,05,16,043,39,06,21,263,43,13,07,330,43*70
+ 1377262634.008000
$GPGSV,3,2,12,16,37,302,45,18,03,149,,21,59,166,33,23,04,304,16*75
+ 1377262634.028000
$GPGSV,3,3,12,25,18,129,21,27,11,260,39,29,45,071,47,31,35,211,47*7C"
+ , sep = ','
+ , as.is = TRUE
+ , fill = TRUE
+ )
> str(x)
'data.frame': 7 obs. of 20 variables:
$ V1 : chr "1377262633.948000 $GPRMC" "1377262633.958000 $GPVTG"
"1377262633.968000 $GPGGA" "1377262633.978000 $GPGSA" ...
$ V2 : chr "125708.00" "247.36" "125708.00" "A" ...
$ V3 : chr "A" "T" "5047.66107" "3" ...
$ V4 : chr "5047.66107" "" "N" "29" ...
$ V5 : chr "N" "M" "00603.65528" "21" ...
$ V6 : chr "00603.65528" "0.203" "E" "31" ...
$ V7 : chr "E" "N" "1" "25" ...
$ V8 : num 0.203 0.377 9 16 NA 45 21
$ V9 : chr "247.36" "K" "0.85" "05" ...
$ V10: chr "230813" "A*3B" "169.3" "06" ...
$ V11: chr "" "" "M" "13" ...
$ V12: num NA NA 46.5 27 39 NA 39
$ V13: chr "A*60" "" "M" "" ...
$ V14: int NA NA NA NA 21 59 45
$ V15: chr "" "" "*52" "" ...
$ V16: num NA NA NA 1.78 43 33 47
$ V17: num NA NA NA 0.85 13 23 31
$ V18: chr "" "" "" "1.57*0C" ...
$ V19: int NA NA NA NA 330 304 211
$ V20: chr "" "" "" "" ...
> # keep only rows with "GPGS"
> y <- subset(x, grepl("GPGS", V1))
> str(y)
'data.frame': 4 obs. of 20 variables:
$ V1 : chr "1377262633.978000 $GPGSA" "1377262633.998000 $GPGSV"
"1377262634.008000 $GPGSV" "1377262634.028000 $GPGSV"
$ V2 : chr "A" "3" "3" "3"
$ V3 : chr "3" "1" "2" "3"
$ V4 : chr "29" "12" "12" "12"
$ V5 : chr "21" "03" "16" "25"
$ V6 : chr "31" "01" "37" "18"
$ V7 : chr "25" "266" "302" "129"
$ V8 : num 16 NA 45 21
$ V9 : chr "05" "05" "18" "27"
$ V10: chr "06" "16" "03" "11"
$ V11: chr "13" "043" "149" "260"
$ V12: num 27 39 NA 39
$ V13: chr "" "06" "21" "29"
$ V14: int NA 21 59 45
$ V15: chr "" "263" "166" "071"
$ V16: num 1.78 43 33 47
$ V17: num 0.85 13 23 31
$ V18: chr "1.57*0C" "07" "04" "35"
$ V19: int NA 330 304 211
$ V20: chr "" "43*70" "16*75" "47*7C"
>
>
>
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Tue, Mar 11, 2014 at 8:00 AM, Alaios <ala...@yahoo.com> wrote:
> Hi all
> I am trying to read some text files with the following format:
>
> 1377262633.948000
> $GPRMC,125708.00,A,5047.66107,N,00603.65528,E,0.203,247.36,230813,,,A*60
> 1377262633.958000 $GPVTG,247.36,T,,M,0.203,N,0.377,K,A*3B
> 1377262633.968000
> $GPGGA,125708.00,5047.66107,N,00603.65528,E,1,09,0.85,169.3,M,46.5,M,,*52
> 1377262633.978000
> $GPGSA,A,3,29,21,31,25,16,05,06,13,27,,,,1.78,0.85,1.57*0C
> 1377262633.998000
> $GPGSV,3,1,12,03,01,266,,05,16,043,39,06,21,263,43,13,07,330,43*70
> 1377262634.008000
> $GPGSV,3,2,12,16,37,302,45,18,03,149,,21,59,166,33,23,04,304,16*75
> 1377262634.028000
> $GPGSV,3,3,12,25,18,129,21,27,11,260,39,29,45,071,47,31,35,211,47*7C
>
> but this returns me the following:
>
> read.csv("sensor_0.log",sep=",")
> Error in read.table(file = file, header = header, sep = sep, quote =
> quote, :
> more columns than column names
>
> I guess the problem is that the columns are not consistent on a per row
> basis.
> What I am trying to do though is to read only the lines that contain the
> $GPGLL or the $GPGLA entries (in the example they corresponds to 3rd and
> 4th line).
> How can I do this in R?
>
> Regards
> A
> [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
