|
|
Hei
tämä on ollut minullakin mielessä, kun aikoinani kovasti innostuin tästä mahdollisuudesta.
Ja kyllähän se onnistuu. Kaivoin esiin Kimmon joskus minulle lähettämät ohjeet, ja
samoilla konsteilla näyttää toimivan.
Eli näillä minä onnistuin (aikoinaan Kimmon antoi neuvoksi, että "omalla vastuulla voi kokeilla" -
lienee edelleen hyvä neuvo):
1) tehdään komentojono-tiedosto
SAVEP CUR+1,E-1,S:\SUCROS\SURVOR.CMD
@ECHO OFF
REM *** This batch file starts SURVO MM from Windows Explorer.
REM *** It requires associating of Survo file types through
REM *** Control Panel (Folder Options, File Types).
REM *** K.Vehkalahti 2008 (based on my earlier implementations
cd S:\SUCROS
ECHO %1 > SURVOR
C:\R\bin\x64\Rterm --sdi
eli minulla omat sukrot ja muut viritykset on S:\SUCROS -hakemistossa
- oleellista tässä on siirtyminen ko. hakemistoon ja ennenkaikkea tuo echo-komento
joka tallettaa tiedoston nimen hiiren näpäyksellä tässä tapauksessa SURVOR-nimiseksi tiedostoksi
- sitten käynnistetään R
2) Toiseksi EDT-tietostot pitää assosioida tälle äsken tehdylle skriptille. Se onnistuu
helpoiten näpäyttämällä hiiren oikealla näppäimellä jotain EDT-tiedostoa, ja valitsemalla
"Avaa sovelluksessa..." ja selaamalla ja valitsemalla 1-kohdassa tehty skripti.
3) Kyseisessä hakemistossa, johon 1-kohdassa siirryttiin tulee olla .Rprofile -tiedosto,
joka antaa R:lle oikeat survon käynnistyskomennot. Tein itselleni tällaisen
savep CUR+1 CUR+1 .Rprofile
.First <- function() { library(muste); survo(sucro="survor")}
Eli käynnistää survon aloitussukrolla survor
4) Sitten pitää olla vielä sellainen survor-sukro, joka lukee 1-kohdassa echotun
tiedostonimen ja avaa ko. edt-kentän. Reijon viestin mukaan aloitussukro pitää
ainakin vielä olla "systeemin" omassa sucrohakemistossa.
Käytin siinäkin taas Kimmon antamaa mallia - jätin seuraavaan
kaikki Kimmon viritykset näkyviin, mutta tätä testausta varten vähän oioin ja
yksinkertaistin, kun tavoitteena oli vain testata, onnistuuko tämä.
*TUTSAVE <Survo>\S\survor
/ SURVOWIN.TUT 2.6.2008/K.Vehkalahti under Windows xp
/ testaus JVa/13.05.29
/ (original idea by KV under Win 95 in 1996 and Win2K in 2001)
*{tempo -1}{init}
- if W1 '=' ? then goto H
/ def Winfile=W2
*{disp off}{jump 1,1,1,1}SCRATCH{erase}{act}{home}
/{save systempath Winfile}{Winfile=Winfile&TMP\SURVOWIN.}
/
/ Winfile, saved by SURVOR.CMD, includes exactly one line:
/ [file] (file name, including drive and directory)
/ That is the file pointed by the user, so let's get it:
/
/LOADP {print Winfile},CUR{act}{R}
*LOADP S:\sucros\SURVOR,CUR{act}{R}
/ erase unnecessary quotation marks around the file:
*ERASE "{act}{u}
/ decide what to do according to the rules of INDEX >operation:
*{line start}{ins}INDEX {ins}{line end},CUR / EDT=LOAD{act}{R}
/ remove the link file:
*{goto action}
*FILE DEL {print Winfile}{act}{home}{erase}
+ action:
*{u}
*{interaction on}{disp reset}{act}{interaction off}{goto E}
/ >---------------------------------------------------------------------
+ H: {W1=SURVOWIN}{call SUR-SAVE}{break on}{jump 1,1,1,1}
*SCRATCH{erase}{act}{R}{R}
*/SURVOWIN{R}
*is used in launching SURVO MM from Windows Explorer and{R}
*doing something reasonable with the file pointed by the user.{R}
/
*{message} Press ENTER!@
- on key
- key _: continue
- wait 600
*{W1=SURVOWIN}{call SUR-RESTORE}
+ E: {message}@{tempo +1}{disp reset}
{end}
*
Siis sain toimimaan - edellisistä voi tietysti tiedostonimet ja hakemistot vapaasti
jokainen laittaa omien tarpeittensa mukaan.
Joskus kun on aikaa, pitää siistiä ja tehdä vastaavat avaustoiminnot
SVO- yms tärkeille muille survo-tiedostoille...
Mielelläni otan vastaan vinkkejä ja neuvoja ;)
:JVa
|
Locked
