encoding for statements table (windows)

Author: Piotr Smuda

sejmRP/R/get_statements_table.R

@@ -61,6 +61,7 @@ get_statements_table <- function(dbname = "sejmrp", user = "reader", password =
     # encoding for windows
     if (windows) {
         statements[, 2] <- iconv(statements[, 2], from = "UTF-8", to = "Windows-1250")
+        statements[, 4] <- iconv(statements[, 4], from = "UTF-8", to = "Windows-1250")
         statements[, 5] <- iconv(statements[, 5], from = "UTF-8", to = "Windows-1250")
     }
 

statements_match_deputies_ids.R

@@ -14,18 +14,18 @@
 #' @param deputy name of database
 #' @param host name of host; default: 'services.mini.pw.edu.pl'
 #' @param windows information of used operation system; default: TRUE
-#' 
+#'
 #' @return data frame with two columns: id_deputy, surname_name
 #'
 #' @examples
 #' \dontrun{
 #' statements <- get_statements_table()
 #' statements_match_deputies_ids(statements[1000,2])
 #' statements_match_deputies_ids(statements[2000,2])}
-#' 
+#'
 #' @note
 #' All information is stored in PostgreSQL database.
-#' 
+#'
 #' @author Piotr Smuda
 #'
 #' @export
@@ -35,14 +35,14 @@ statements_match_deputies_ids <- function(deputy,
   host='services.mini.pw.edu.pl',windows=TRUE){
   stopifnot(is.character(deputy),is.character(host),
             is.logical(windows))
-  
+
   #extracting all words from deputy
   words <- unlist(stri_extract_all_words(deputy))
 
   #extracting all words for every deputy in deputies table
   deputies <- get_deputies_table(host=host,windows=windows)
   deputies_words <- stri_extract_all_words(deputies[,2])
-  
+
   #finding correct deputy
   for(i in seq_len(length(deputies_words))){
     inter <- intersect(deputies_words[[i]],words)
@@ -51,21 +51,21 @@ statements_match_deputies_ids <- function(deputy,
       break
     }
   }
-  
+
   #picking correct deputy
   deputy <- deputies[i,c(1,2)]
-  
+
   return(deputy)
 }
 
 #testy
 
-library(sejmRP)
-
-statements<-get_statements_table(host="192.168.137.38")
-deputies <- get_deputies_table(host="192.168.137.38")
-
-a <- deputies[,2]
-b <- statements[,2]
-
-statements_match_deputies_ids(b[3000],host="192.168.137.38")
+# library(sejmRP)
+#
+# statements<-get_statements_table(host="192.168.137.38")
+# deputies <- get_deputies_table(host="192.168.137.38")
+#
+# a <- deputies[,2]
+# b <- statements[,2]
+#
+# statements_match_deputies_ids(b[3000],host="192.168.137.38")