how i can write to database MySQL

General
1

Hi, help my please, how i can write findAssocs to database MySQL.
there is a code:
idx <- which(dimnames(tdm)$Terms %in% c("фильм", "сюжет", "актёр", "смотреть"))
as.matrix(tdm[idx, 1:23])

film <- findAssocs(tdm, "фильм", 0.36)
dbWriteTable(con, value = film, name = "Harakteristiki", append = TRUE )

siyjet <- findAssocs(tdm, "сюжет", 0.36)
akter <- findAssocs(tdm, "актёр", 0.69)
sovet <- findAssocs(tdm, "смотреть", 0.36)

how write "film <- findAssocs(tdm, "фильм", 0.36)" to DB ?

compilation:
"film <- findAssocs(tdm, "фильм", 0.36)
$фильм
прошлом супер понравился актёрская боевая боевые ботва великолепный
0.58 0.53 0.52 0.40 0.40 0.40 0.40 0.40
великому вещей выражение героев главгерой главгероя дед делает
0.40 0.40 0.40 0.40 0.40 0.40 0.40 0.40
детская догадалась достаточно достойный доходит драму душевные ежедневно
0.40 0.40 0.40 0.40 0.40 0.40 0.40 0.40
закос зарядку злодей знаю игра каким капли кинематографу
0.40 0.40 0.40 0.40 0.40 0.40 0.40 0.40

when i try write to db, i have error :

dbWriteTable(con, value = film, name = "Harakteristiki", append = TRUE )
Error in (function (classes, fdef, mtable) :
unable to find an inherited method for function ‘dbWriteTable’ for signature ‘"MySQLConnection", "character", "list"’

2

I'm not sure which R package you are using, but try the following (works with MariaDB)

library(RMySQL
drv <- dbDriver("MySQL")
con <- dbConnect(drv, username="****", password="****", dbname ="****", host="localhost")
data(mtcars)
dbWriteTable(con, 'cars', mtcars)

Then in MySQL

MariaDB [dlf]> select * from cars limit 5;
+-------------------+------+------+------+------+------+-------+-------+------+------+------+------+
| row_names         | mpg  | cyl  | disp | hp   | drat | wt    | qsec  | vs   | am   | gear | carb |
+-------------------+------+------+------+------+------+-------+-------+------+------+------+------+
| Mazda RX4         |   21 |    6 |  160 |  110 |  3.9 |  2.62 | 16.46 |    0 |    1 |    4 |    4 |
| Mazda RX4 Wag     |   21 |    6 |  160 |  110 |  3.9 | 2.875 | 17.02 |    0 |    1 |    4 |    4 |
| Datsun 710        | 22.8 |    4 |  108 |   93 | 3.85 |  2.32 | 18.61 |    1 |    1 |    4 |    1 |
| Hornet 4 Drive    | 21.4 |    6 |  258 |  110 | 3.08 | 3.215 | 19.44 |    1 |    0 |    3 |    1 |
| Hornet Sportabout | 18.7 |    8 |  360 |  175 | 3.15 |  3.44 | 17.02 |    0 |    0 |    3 |    2 |
+-------------------+------+------+------+------+------+-------+-------+------+------+------+------+
5 rows in set (0.000 sec)
3

Hi, help my please, how i can write findAssocs to database MySQL.
there is a code:

idx <- which(dimnames(tdm)$Terms %in% c("фильм", "сюжет", "актёр", "смотреть"))
as.matrix(tdm[idx, 1:23])

film <- findAssocs(tdm, "фильм", 0.36)
dbWriteTable(con, value = film, name = "Harakteristiki", append = TRUE ) 


  siyjet <- findAssocs(tdm, "сюжет", 0.36)
akter <- findAssocs(tdm, "актёр", 0.69)
sovet <- findAssocs(tdm, "смотреть", 0.36)

how write film <- findAssocs(tdm, "фильм", 0.36) to DB ?

compilation:

 film <- findAssocs(tdm, "фильм", 0.36)
$фильм
      прошлом         супер    понравился     актёрская        боевая        боевые         ботва  великолепный 
         0.58          0.53          0.52          0.40          0.40          0.40          0.40          0.40 
     великому         вещей     выражение        героев     главгерой     главгероя           дед        делает 
         0.40          0.40          0.40          0.40          0.40          0.40          0.40          0.40 
      детская    догадалась    достаточно     достойный       доходит         драму      душевные     ежедневно 
         0.40          0.40          0.40          0.40          0.40          0.40          0.40          0.40 
        закос       зарядку        злодей          знаю          игра         каким         капли кинематографу 
         0.40          0.40          0.40          0.40          0.40          0.40          0.40          0.40

when i try write to db, i have error :

> dbWriteTable(con, value = film, name = "Harakteristiki", append = TRUE )
Error in (function (classes, fdef, mtable)  : 
  unable to find an inherited method for function ‘dbWriteTable’ for signature ‘"MySQLConnection", "character", "list"’
>
4

Hi @SynysterD! This seems to be a continuation of your previous topic, so I'm merging the topics.

1 Like
5

You can't write lists directly. Try extracting actual content of film and write that instead. So, something like that:

film[["фильм"]]
6

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.