(Acest articol a fost publicat pentru prima dată pe R | Dr Tom Palmerși cu amabilitate a contribuit la R-bloggeri). (Puteți raporta problema legată de conținutul acestei pagini aici)
Doriți să vă distribuiți conținutul pe R-bloggeri? dați clic aici dacă aveți un blog, sau aici dacă nu aveți.
Introducere
Ți-ai dorit vreodată să poți deschide rapid o aplicație Data Science, să spunem RStudio Desktop sau Positron în fereastra curentă Finder cu un clic pe un buton? Vom vedea cum putem realiza acest lucru prin crearea de aplicații Automator. Iată o captură de ecran cu ceea ce vom ajunge.
Crearea aplicațiilor Automator
Deschideți Automator și selectați Nou apoi Aplicație. Intră în bara de căutare din stânga sus applescript și trageți și plasați acel element în fereastra principală.
Apoi trebuie să introducem codul AppleScript relevant pentru lansarea fiecărei aplicații în fereastra curentă Finder. În prezent, folosesc WezTerm pentru emulatorul meu de terminal, Zed ca editor de text principal, RStudio Desktop pentru majoritatea codării mele R/R Markdown/Quarto, Visual Studio Code pentru alte sarcini de editare a textului și am început să încerc Positron. Codul meu AppleScript pentru fiecare aplicație este după cum urmează.
Desktop RStudio
on run {input, parameters}
tell application "Finder"
set myWin to window 1
set thePath to (quoted form of POSIX path of (target of myWin as alias))
do shell script "/Applications/RStudio.app/Contents/MacOS/RStudio " & thePath
end tell
end run
WezTerm
on run {input, parameters}
tell application "Finder"
set myWin to window 1
set thePath to (quoted form of POSIX path of (target of myWin as alias))
do shell script "/opt/homebrew/bin/wezterm-gui start --cwd " & thePath
end tell
end run
Zed
on run {input, parameters}
tell application "Finder"
set myWin to window 1
set thePath to (quoted form of POSIX path of (target of myWin as alias))
do shell script "/usr/local/bin/zed -n " & thePath
end tell
end run
R a fost lansat într-o sesiune de terminal WezTerm
on run {input, parameters}
tell application "Finder"
set myWin to window 1
set thePath to (quoted form of POSIX path of (target of myWin as alias))
do shell script "/opt/homebrew/bin/wezterm-gui start --cwd " & thePath & " -- /usr/local/bin/R"
end tell
end run
Cod Visual Studio și Positron
Mai întâi, activați capacitatea de a lansa aceste aplicații cu code şi positron dintr-un Terminal din fiecare aplicație, vezi aici și aici.
Acest script este mai implicat pentru că mai întâi verificăm dacă există vreunul .cod-spațiu de lucru fișiere și deschideți unul dacă este găsit. Codarea mea AppleScript nu este foarte competentă, așa că pot exista abordări mai eficiente pentru a codifica acest lucru.
on run {input, parameters}
tell application "Finder"
try
set currentFolder to (folder of window 1) as alias
set workspaceFiles to (every file of currentFolder whose name extension is "code-workspace")
if (count of workspaceFiles) = 0 then
set folderPath to POSIX path of currentFolder
do shell script "/usr/local/bin/positron -n " & quoted form of folderPath
else if (count of workspaceFiles) = 1 then
set workspaceFile to item 1 of workspaceFiles
set workspacePath to POSIX path of (workspaceFile as alias)
do shell script "/usr/local/bin/positron -n " & quoted form of workspacePath
else if (count of workspaceFiles) > 1 then
display dialog "Multiple code-workspace files found in directory."
end if
on error
display dialog "No Finder window is open."
end try
end tell
end run
(Pentru aplicația dvs. Visual Studio Code pur și simplu înlocuiți positron cu code.)
Salvarea și adăugarea pictogramelor
După adăugarea codului AppleScript, salvați fiecare aplicație. Eu îl numesc pe al meu, de exemplu, RStudio-openhere.app.
În continuare, este util să oferi fiecărei aplicații pictograma relevantă. Pentru a face acest lucru, în Finder, afișați casetele de informații pentru aplicația originală și dvs -deschide aici versiune selectând fiecare aplicație și apăsând Cmd+eu. Apoi trageți pictograma mare din aplicația originală pe pictograma mică a dvs -deschide aici aplicația.
Rezumat
Am arătat cum să creez aplicații Automator pentru a deschide RStudio Desktop, Positron și alte câteva aplicații Data Science din fereastra actuală Finder.
