ervin/irsz
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor corrections

Browse Source
This commit is contained in:
Tamás Ferenci 2018-06-15 10:35:29 +02:00 committed by GitHub
parent cbcd420797
commit aaedbaf9f2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
IrszHnk.R
View File

@ -25,6 +25,7 @@ unlink( temp )
temp <- tempfile() temp <- tempfile()
download.file( HnkUrl, temp, mode = "wb" ) download.file( HnkUrl, temp, mode = "wb" )
Hnk <- readWorksheetFromFile( temp, sheet = 1, startRow = 2 ) Hnk <- readWorksheetFromFile( temp, sheet = 1, startRow = 2 )
Hnk <- Hnk[ !is.na( Hnk$Helység ), ]
names( Hnk )[ 1:3 ] <- paste0( names( Hnk )[ 1 ], ".", Hnk[ 1, 1:3 ] ) names( Hnk )[ 1:3 ] <- paste0( names( Hnk )[ 1 ], ".", Hnk[ 1, 1:3 ] )
names( Hnk )[ 5:7 ] <- paste0( names( Hnk )[ 5 ], Hnk[ 1, 5:7 ] ) names( Hnk )[ 5:7 ] <- paste0( names( Hnk )[ 5 ], Hnk[ 1, 5:7 ] )
names( Hnk )[ 8:9 ] <- paste0( names( Hnk )[ 8 ], ".", Hnk[ 1, 8:9 ] ) names( Hnk )[ 8:9 ] <- paste0( names( Hnk )[ 8 ], ".", Hnk[ 1, 8:9 ] )
@ -35,7 +36,7 @@ unlink( temp )
names( Irsz )[ 2 ] <- names( Hnk )[ 1 ] names( Irsz )[ 2 ] <- names( Hnk )[ 1 ]
IrszHnk <- merge( Irsz, Hnk ) IrszHnk <- merge( Irsz, Hnk, by = "Helység.megnevezése" )
IrszHnk <- IrszHnk[ !duplicated( IrszHnk ), ] IrszHnk <- IrszHnk[ !duplicated( IrszHnk ), ]