Now it converts all columns for Windows.

pracuj/DESCRIPTION

@@ -4,7 +4,7 @@ Version: 0.0.0.9000
 Authors@R: person("First", "Last", email = "first.last@example.com", role = c("aut", "cre"))
 Description: What the package does (one paragraph).
 Depends:
-    R (>= 3.2.3), RPostgreSQL
+    R (>= 3.2.3), RPostgreSQL, dplyr, rvest
 License: What license is it under?
 LazyData: true
 RoxygenNote: 5.0.1

pracuj/R/get_dbms.R

@@ -21,7 +21,7 @@
 #'
 #' @export
 
-get_dbms <- function(type = 'all') {
+get_dbms <- function(type = "all") {
   stopifnot(is.character(type))
 
   # scrape data
@@ -31,10 +31,9 @@ get_dbms <- function(type = 'all') {
   scoreNodes <- html_nodes(page, css="th+ .pad-l")
 
   # create data frame
-  dbms <- data.frame(name = html_text(nameNodes),
+  dbms <- data_frame(name = html_text(nameNodes),
                      model = html_text(modelNodes),
-                     score = as.numeric(html_text(scoreNodes)),
-                     stringsAsFactors=F)
+                     score = html_text(scoreNodes) %>% as.numeric)
 
   # clear data
   dbms <- dbms %>%
@@ -48,8 +47,8 @@ get_dbms <- function(type = 'all') {
     mutate(model = gsub("Multi-model ", "", model))
 
   # create list of models from multi-models positions
-  modelList <- strsplit(multiModel$model, ",")
-  modelList <- setNames(modelList, multiModel$name)
+  modelList <- strsplit(multiModel$model, ",") %>%
+    setNames(multiModel$name)
 
   # delete multi-models positions from data frame
   dbms <- dbms[-grep(",", dbms$model), ]

pracuj/R/get_offers.R

@@ -38,12 +38,15 @@ get_offers <- function(dbname = "pracuj", user = "reader", password = "qux94874"
 
     if (description) {
       offers <- dbGetQuery(database, "SELECT * FROM offers")
-      if (windows) {
-        offers[, 8] <- iconv(offers[, 8], from = "UTF-8", to = "Windows-1250")
-      }
     } else {
       offers <- dbGetQuery(database, "SELECT id, href, position, date, location, grade, employer FROM offers")
     }
+
+    if (windows) {
+      offers <- sapply(offers, function(column) {
+        iconv(column, from = "UTF-8", to = "Windows-1250")
+      }) %>% as_data_frame()
+    }
 
     suppressWarnings(dbDisconnect(database))
     return(offers)