From aaedbaf9f2716ff5de667aada738620ee6493a3e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tam=C3=A1s=20Ferenci?= Date: Fri, 15 Jun 2018 10:35:29 +0200 Subject: [PATCH] Minor corrections --- IrszHnk.R | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/IrszHnk.R b/IrszHnk.R index 1f3a258..e8f77c8 100644 --- a/IrszHnk.R +++ b/IrszHnk.R @@ -25,17 +25,18 @@ unlink( temp ) temp <- tempfile() download.file( HnkUrl, temp, mode = "wb" ) Hnk <- readWorksheetFromFile( temp, sheet = 1, startRow = 2 ) -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 )[ 8:9 ] <- paste0( names( Hnk )[8], ".", Hnk[ 1, 8:9 ] ) -names( Hnk )[ 14:26 ] <- paste0( names( Hnk )[14], ".", Hnk[ 1, 14:26 ] ) +Hnk <- Hnk[ !is.na( Hnk$Helység ), ] +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 )[ 8:9 ] <- paste0( names( Hnk )[ 8 ], ".", Hnk[ 1, 8:9 ] ) +names( Hnk )[ 14:26 ] <- paste0( names( Hnk )[ 14 ], ".", Hnk[ 1, 14:26 ] ) names( Hnk ) <- trimws( names( Hnk ) ) Hnk <- Hnk[ -1, ] unlink( temp ) names( Irsz )[ 2 ] <- names( Hnk )[ 1 ] -IrszHnk <- merge( Irsz, Hnk ) +IrszHnk <- merge( Irsz, Hnk, by = "Helység.megnevezése" ) IrszHnk <- IrszHnk[ !duplicated( IrszHnk ), ]