From 0a09ee0e62f9275dd252985f5f092d39e5a66c32 Mon Sep 17 00:00:00 2001
From: Maria Guideng <35015553+mguideng@users.noreply.github.com>
Date: Sat, 6 Jul 2019 16:15:10 -0700
Subject: [PATCH] Update selector

---
 R/get_reviews.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/get_reviews.R b/R/get_reviews.R
index 2fee05b..18f3141 100644
--- a/R/get_reviews.R
+++ b/R/get_reviews.R
@@ -64,7 +64,7 @@ get_reviews <- function(companyNum) {
                rev.title = html_text(html_nodes(pg, "span.authorInfo.tbl.hideHH")),
                rev.pros = collapse_html_text(html_nodes(pg, ".description .row:nth-child(1) .mainText:not([class*='toggleBodyOff'])")),
                rev.cons = collapse_html_text(html_nodes(pg, ".description .row:nth-child(2) .mainText:not([class*='toggleBodyOff'])")),
-               rev.helpf = html_text(html_nodes(pg, ".tight")),
+               rev.helpf = html_text(html_nodes(pg, ".css-otjqal")),
                source.url = paste(baseurl, companyNum, "_P", i, sort, sep = ""),
                source.link = html_attr(html_nodes(pg, ".reviewLink"), "href"),
                source.iden = html_attr(html_nodes(pg, ".empReview"), "id"),
@@ -78,7 +78,7 @@ get_reviews <- function(companyNum) {
                rev.title = html_text(html_nodes(pg, ".authorInfo")),
                rev.pros = collapse_html_text(html_nodes(pg, ".mt-md:nth-child(1) p:nth-child(2)")),
                rev.cons = collapse_html_text(html_nodes(pg, ".mt-md:nth-child(2) p:nth-child(2)")),
-               rev.helpf = html_text(html_nodes(pg, ".tight")),
+               rev.helpf = html_text(html_nodes(pg, ".css-otjqal")),
                source.url = paste(baseurl, companyNum, "_P", i, sort, sep = ""),
                source.link = html_attr(html_nodes(pg, ".reviewLink"), "href"),
                source.iden = html_attr(html_nodes(pg, ".empReview"), "id"),