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

CD in shell script for cron.

Browse Source 
Closes #9
This commit is contained in:
mattbk
2018-11-04 20:19:13 -06:00
parent ac93c31962
commit 34a513217b
2 changed files with 6 additions and 6 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("/home/pi/hack-grand-forks/auth.ini") auth <- read.ini("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(), "/home/pi/hack-grand-forks/requests.sqlite") mydb <- dbConnect(RSQLite::SQLite(), "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(), "/home/pi/hack-grand-forks/requests.sqlite") mydb <- dbConnect(RSQLite::SQLite(), "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')

4
post-311.sh
View File

@ -1,3 +1,3 @@
#! /bin/bash #! /bin/bash
cd /home/pi/hack-grand-forks/
Rscript /home/pi/hack-grand-forks/bin/post-311.R Rscript bin/post-311.R