In adityamangal410/deepSentimentR: Package to Analyze Sentiment Datasets

knitr::opts_chunk$set(echo = TRUE)

library(devtools)

Build Steps

https://www.r-bloggers.com/building-a-website-with-pkgdown-a-short-guide/

usethis::use_readme_rmd()

usethis::use_vignette("deepSentimentR")
usethis::use_vignette("Twitter Airline Sentiment")

usethis::use_github_links()

usethis::use_travis()

usethis::use_pkgdown()

pkgdown::build_site()

make sure you are working on travis-ci.org

usethis::use_pkgdown_travis()
devtools::install_github("ropenscilabs/travis")
travis::use_travis_deploy()

usethis::use_data_raw()
source("data-raw/DATASET.R")

usethis::use_testthat()
usethis::use_test(name = "query_freq_by_polarity")
usethis::use_test(name = "time_series")
usethis::use_test(name = "bigram_network")
usethis::use_test(name = "word_cor_network")
usethis::use_test(name = "predict_polarity_keras")

usethis::use_coverage()

==========

Query freq_by_polarity

devtools::load_all()
sentiment140_train %>% 
  freq_by_polarity(user_list = c("", "mcraddictal"), 
                   start_date_time = lubridate::as_datetime("2009-05-30"),
                   end_date_time = lubridate::as_datetime("2009-06-03"),
                   keyword_list = c(""))

POS Tagging

pos_tag()

Time series

devtools::load_all()
time_series()

Bigram Network

devtools::load_all()
bigram_network()

Word Correlation Network

devtools::load_all()
word_cor_network()

Rhub

library(rhub)
rhub::check_for_cran(check_args = "--as-cran", path = ".")

Keras

devtools::load_all()
train_lstm(epochs = 10,
           model_save_path = "inst/extdata/train_no_glove_lstm.rds")

train_lstm_with_glove(epochs = 10,
                      glove_file_path = "~/Downloads/glove.6B.100d.txt",
                      model_save_path = "inst/extdata/train_glove_lstm.rds")

train_conv_1d(epochs = 10,
              model_save_path = "inst/extdata/train_no_glove_conv_1d.rds")

train_conv1d_with_glove(epochs = 10,
                        glove_file_path = "~/Downloads/glove.6B.100d.txt",
                        model_save_path = "inst/extdata/train_glove_conv_1d.rds")

devtools::load_all()
predict_polarity_keras(model_load_path = "inst/extdata/train_no_glove_lstm.rds")

predict_polarity_keras(model_load_path = "inst/extdata/train_glove_lstm.rds")

predict_polarity_keras(model_load_path = "inst/extdata/train_no_glove_conv_1d.rds")

predict_polarity_keras(model_load_path = "inst/extdata/train_glove_conv_1d.rds")

adityamangal410/deepSentimentR documentation built on June 3, 2019, 6:15 p.m.