Alexander Loth aloth

## get_polarity_sentiment_tableau.txt
SCRIPT_STR('
  library(sentiment)
  get_polarity(.arg1, algorithm = "bayes")
'
, ATTR([Tweet Text]))

## get_emotion_sentiment_tableau.txt
SCRIPT_STR('
  library(sentiment)
  get_emotion(.arg1, algorithm = "bayes")
'
, ATTR([Tweet Text]))

## twitter_word_attribute_tableau_calc.txt
CASE LEFT([Word], 1)
    WHEN "#" THEN "Hash Tag"
    WHEN "@" THEN "User Reference"
    ELSE "Regular Content"
END

## postgres_string_split.sql
select
    guid
    , regexp_split_to_table(lower(post_content), '\s+') as word
    , count(1) as word_count
from
    alexblog_posts
group by
    guid, word
	SCRIPT_STR('
	library(sentiment)
	get_polarity(.arg1, algorithm = "bayes")
	'
	, ATTR([Tweet Text]))
	SCRIPT_STR('
	library(sentiment)
	get_emotion(.arg1, algorithm = "bayes")
	'
	, ATTR([Tweet Text]))
	CASE LEFT([Word], 1)
	WHEN "#" THEN "Hash Tag"
	WHEN "@" THEN "User Reference"
	ELSE "Regular Content"
	END
	select
	guid
	, regexp_split_to_table(lower(post_content), '\s+') as word
	, count(1) as word_count
	from
	alexblog_posts
	group by
	guid, word