Demo.R

# Load Libraries
library("RPostgreSQL")

# Connect to PostgreSQL
# Load Data Table Into R 
Driver <- dbDriver("PostgreSQL") # Establish database driver
Connection <- dbConnect(Driver, dbname = "labuser", host = "localhost", port = 5432, user = "labuser")
DeepDiveData<-dbGetQuery(Connection,"SELECT * FROM test_data")

# See the format of DeepDiveData
DeepDiveData[5,c("docid","sentid","words","poses","dep_paths")]

# Create a dictionary of words of interest 
#Select words of interest
Dictionary<-c("pyrite","glauconite","chert","apatite")

# Write a function to search for words of interest in DeepDiveData

searchWords<-function(Sentence,Dictionary) {
    # Split sentences into individual words by separating sentences at each comma, and unlisting them
    SplitWords<-unlist(strsplit(Sentence["words"],","))
        # Find Dictionary words which appear in split words of nlp processed sentences
        FoundWords<-SplitWords%in%Dictionary
    # Have function return Dictionary matches
    return(FoundWords)
    }

# Apply function to DeepDiveData 
DDResults<-apply(DeepDiveData,1,searchWords,Dictionary)

# Assign document IDs DDResults list
names(DDResults)<-DeepDiveData[,"docid"]

head(DDResults)