library(tidytext)
library(dplyr)
library(lubridate)
library(magrittr)
library(janeaustenr)
library(mongolite)
library(tm)
library(ggplot2)
#library(qdap)
library(stringr)
library(syuzhet)
library(stringi)
library(doParallel)
View(dx)
LS0tDQp0aXRsZTogIlFvbzEwIFNlbnRpbWVudCINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCmBgYHtyfQ0KbGlicmFyeSh0aWR5dGV4dCkNCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KGx1YnJpZGF0ZSkNCmxpYnJhcnkobWFncml0dHIpDQpsaWJyYXJ5KGphbmVhdXN0ZW5yKQ0KbGlicmFyeShtb25nb2xpdGUpDQpsaWJyYXJ5KHRtKQ0KbGlicmFyeShnZ3Bsb3QyKQ0KI2xpYnJhcnkocWRhcCkNCmxpYnJhcnkoc3RyaW5ncikNCmxpYnJhcnkoc3l1emhldCkNCmxpYnJhcnkoc3RyaW5naSkNCmxpYnJhcnkoZG9QYXJhbGxlbCkNCmBgYA0KDQoNCmBgYHtyfQ0KI2xvYWQoInFvbzExMTkuUkRhdGEiKQ0KDQpzZW50aV9zdW0gPSBncm91cF9ieShxb29fcmV2aWV3LGJyYW5kKSAlPiUgDQogIHN1bW1hcmlzZSgNCiAgICBuID0gbigpLA0KICBhdmdfcG9pbnQgPSBzdW0odG90YWxfcG9pbnQpL24oKSwNCiAgYXZnX3FwcmljZSA9IHN1bShxcHJpY2UpL24oKSwNCiAgYW5nZXIgPSBzdW0oYW5nZXIpL24oKSwNCiAgYW50aWNpcGF0aW9uID0gc3VtKGFudGljaXBhdGlvbikvbigpLA0KICBkaXNndXN0ID0gc3VtKGRpc2d1c3QpL24oKSwNCiAgZmVhciA9IHN1bShmZWFyKS9uKCksDQogIGpveSA9IHN1bShqb3kpL24oKSwNCiAgc2FkbmVzcyA9IHN1bShzYWRuZXNzKS9uKCksDQogIHN1cnByaXNlID0gc3VtKHN1cnByaXNlKS9uKCksDQogIHRydXN0ID0gc3VtKHRydXN0KS9uKCksDQogIG5lZ2F0aXZlID0gc3VtKG5lZ2F0aXZlKS9uKCksDQogIHBvc2l0aXZlID0gc3VtKHBvc2l0aXZlKS9uKCkNCikgJT4lIA0KICBmaWx0ZXIobiA+IDMwKSAlPiUgZGF0YS5mcmFtZQ0KDQpkeCA9IHNlbnRpX3N1bVsxOjE3LF0NCg0KDQpyb3duYW1lcyhkeCkgPSBkeCRicmFuZA0KDQpwbWFwID0gZnVuY3Rpb24oZHgsc3QyPSIiKSB7ICMgcGVyY2VwdHVhbCBtYXANCiAgICBoY2hhcnQocHJpbmNvbXAoZHgpLGNvcj1UKSAlPiUNCiAgICBoY19jaGFydCh6b29tVHlwZSA9ICJ4eSIpICU+JQ0KICAgIGhjX2FkZF90aGVtZShoY190aGVtZV9mbGF0KCkpICAlPiUNCiAgICBoY190b29sdGlwKGhlYWRlckZvcm1hdD0iIixwb2ludEZvcm1hdD0ie3Nlcmllcy5uYW1lfSIpICU+JQ0KICAgIGhjX3RpdGxlKHRleHQ9IkVtb3Rpb25zIG9uIEJyYW5kcyBvZiBUZWEiKSAlPiUNCiAgICBoY19zdWJ0aXRsZSh0ZXh0PXBhc3RlMCgiMTcgYnJhbmRzIHRoYXQgdG90YWwgcmV2aWV3cyBpcyBncmVhdGVyIHRoYW4gMzAiLHN0MikpfQ0KDQpwbWFwKCBkeFssNToxMl0gKQ0KDQpgYGANCg0KDQoNCmBgYHtyfQ0KVmlldyhkeCkNCmBgYA0KDQo=