matt/ham_license_qs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use absolute paths because of cron.

Browse Source
This commit is contained in:
mattbk
2018-11-05 01:25:52 +00:00
parent 3deeb46d90
commit ac93c31962
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bin/post-311.R
View File

@@ -17,7 +17,7 @@ library(RSQLite)
### Config ### Config
# Authentication variables # Authentication variables
auth <- read.ini("auth.ini") auth <- read.ini("/home/pi/hack-grand-forks/auth.ini")
# Grab city view for Grand Forks # Grab city view for Grand Forks
space_id <- 15174 space_id <- 15174
client_id <- 1353 #needed later client_id <- 1353 #needed later
@@ -60,7 +60,7 @@ recent_requests$posted <- 0
## Store requests in a database ## Store requests in a database
# Create DB if it doesn't exist, otherwise connect # 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 # 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){ 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 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) 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. # 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') #all_requests <- dbGetQuery(mydb, 'SELECT * FROM requests')
new_requests <- dbGetQuery(mydb, 'SELECT * FROM requests WHERE posted <> 1 ORDER BY date_created') new_requests <- dbGetQuery(mydb, 'SELECT * FROM requests WHERE posted <> 1 ORDER BY date_created')

BIN
requests.sqlite
View File

Binary file not shown.