Guest User

Untitled

a guest
Oct 7th, 2018
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.48 KB | None | 0 0
  1. library(dplyr)
  2. library(DBI)
  3. library(RPostgres)
  4. library(tibble)
  5.  
  6. conn <- dbConnect(RPostgres::Postgres(),
  7. host = url$host,
  8. port = url$port,
  9. dbname = url$dbname,
  10. user = url$user,
  11. password = url$password
  12. )
  13.  
  14. test <- tibble(
  15. words = c("hallo","ja", "nein"),
  16. value = c(3,4,5),
  17. time= as.POSIXct(c("2016-05-04 04:32","2016-06-02 09:37","2016-07-12 10:43")))
  18. test2 <- tibble(
  19. words = c("hallo","ja", "nein"),
  20. value = c(3,4,5),
  21. time= c("2016-05-04 04:32","2016-06-02 09:37","2016-07-12 10:43"))
  22.  
  23. dbWriteTable(conn = conn, name = "words", value = test)
  24. > Error in eval(substitute(expr), envir, enclos) :
  25. > ERROR: invalid input syntax for type real: "2016-05-04 04:32:00"
  26. > CONTEXT: COPY words, line 1, column time: "2016-05-04 04:32:00"
  27.  
  28. dbWriteTable(conn = conn, name = "words2", value = test2)
  29. > [1] TRUE
  30.  
  31. library(dplyr)
  32. library(DBI)
  33. library(RPostgreSQL)
  34. library(tibble)
  35.  
  36. #connect to db
  37. url <- list(user="postgres",password="postgres",dbname="test")
  38.  
  39. conn <- dbConnect(drv="PostgreSQL", user=url$user, password=url$password, dbname = url$dbname)
  40.  
  41.  
  42. test <- tibble(
  43. words = c("hallo","ja", "nein"),
  44. value = c(3,4,5),
  45. time= as.POSIXct(c("2016-05-04 04:32","2016-06-02 09:37","2016-07-12 10:43")))
  46. test2 <- tibble(
  47. words = c("hallo","ja", "nein"),
  48. value = c(3,4,5),
  49. time= c("2016-05-04 04:32","2016-06-02 09:37","2016-07-12 010:43"))
  50.  
  51.  
  52. dbWriteTable(conn = conn, name = "words", value = test)
  53.  
  54. dbWriteTable(conn = conn, name = "words2", value = test2)
  55.  
  56. dbDisconnect(conn)
Add Comment
Please, Sign In to add comment