OSX High Sierra中的Automator服务

Question

活动的查找器窗口中的Automator服务。想法是通过选择新文件夹在活动查找器窗口中创建一个文件夹模板。 对话。 服务：

1. 询问文件夹名称
2. 新建文件夹
3. 运行shell脚本

Automator服务失败，我不确定为什么。活动的查找器窗口的路径未达到分配给新文件夹Automator操作的变量thePath。

屏幕截图显示了服务和错误的简化版本。 我能知道哪里出了问题吗？

Answer 1

尝试将此代码通过运行的AppleScript操作插入到您的工作流程中。

setwd("/home/ubuntu/cryptoAPI/NLP")
library(RedditExtractoR)#install.packages('RedditExtractoR')
library('httr')
library(data.table)

#1. check for most recent reddit urls
ss.new.Reddit <- fileSnapshot(path="/home/ubuntu/cryptoAPI/NLP/raw", file.info = F)
Reddit.num <- nrow(ss.new.Reddit[[1]])-1

#2. load CCtop100 snapshot from cronjob
Reddit.urls <- rjson::fromJSON(file=paste0('raw/hot.json@limit=50.', Reddit.num))#"raw/hot.json@limit=100.", Reddit.num))

#3. extract urls from list
urlvector <- character(50)    #to 100
for(i in 1:52){               #also to 102
  urlvector[i] <- Reddit.urls$`data`$children[[i]]$data$permalink }

#4. combine w formatting for reddict extractor # add 'http://www.reddit.com'
urlvector.long <- paste0('http://www.reddit.com', urlvector)

#5. run redditextractor
Reddit.comments <- reddit_content(urlvector.long)

#6. save new csv
NLPcsv <- paste0("CSV/reddit-nlp-",Reddit.num,".csv" )
fwrite(Reddit.comments, file=NLPcsv)
fwrite(Reddit.comments, file='current/currentNLP.csv')