diff --git a/bin/post-311.R b/bin/post-311.R index 16191e7..6a3a522 100644 --- a/bin/post-311.R +++ b/bin/post-311.R @@ -17,7 +17,7 @@ library(RSQLite) ### Config # Authentication variables -auth <- read.ini("auth.ini") +auth <- read.ini("/home/pi/hack-grand-forks/auth.ini") # Grab city view for Grand Forks space_id <- 15174 client_id <- 1353 #needed later @@ -60,7 +60,7 @@ recent_requests$posted <- 0 ## Store requests in a database # Create DB if it doesn't exist, otherwise connect -mydb <- dbConnect(RSQLite::SQLite(), "requests.sqlite") +mydb <- dbConnect(RSQLite::SQLite(), "/home/pi/hack-grand-forks/requests.sqlite") # See if table exists, then get existing rows back if(nrow(dbGetQuery(mydb, "SELECT name FROM sqlite_master WHERE type='table' AND name='requests'")) > 0){ rows.exist <- dbGetQuery(mydb, 'SELECT id FROM requests')$id @@ -78,7 +78,7 @@ dbDisconnect(mydb) mastodon_token <- login(auth$mastodon$server, auth$mastodon$email, auth$mastodon$password) # Each time this script runs, take the oldest n requests, post them, and mark them in the db. -mydb <- dbConnect(RSQLite::SQLite(), "requests.sqlite") +mydb <- dbConnect(RSQLite::SQLite(), "/home/pi/hack-grand-forks/requests.sqlite") #all_requests <- dbGetQuery(mydb, 'SELECT * FROM requests') new_requests <- dbGetQuery(mydb, 'SELECT * FROM requests WHERE posted <> 1 ORDER BY date_created') diff --git a/requests.sqlite b/requests.sqlite index d129070..982cbb5 100644 Binary files a/requests.sqlite and b/requests.sqlite differ