====== R ======
Tested with opsi 4.0.3\\
requiredWinstVersion >= 4.10.8.6\\
Tested with R 3.0.2\\
By  --- //[[florian.knodt@finzelberg.de|adlerweb]] 2014/02/27 14:43//

Files can be downloaded at http://cran.rstudio.com/bin/windows/base/

Tree:\\
 setup.ins\\
 uninstall.ins\\
 delsub.ins\\
 

=== setup.ins ===
<code winst>
[Actions]
requiredWinstVersion >= "4.10.8.6"

DefVar $ProductId$
DefVar $MinimumSpace$
DefVar $UninstallProgram$

Set $ProductId$       = "r"
Set $MinimumSpace$    = "150 MB"


ShowBitmap "%ScriptPath%\" + $ProductId$ + ".png" $ProductId$

if not(HasMinimumSpace ("%SystemDrive%", $MinimumSpace$))
	LogError "Not enough space on %SystemDrive%, " + $MinimumSpace$ + " on drive %SystemDrive% needed for " + $ProductId$
	isFatalError
	; Stop process and set installation status to failed
else
	if FileExists("%ScriptPath%\delsub.ins")
		comment "start uninstall"
		sub "%ScriptPath%\delsub.ins"
	endif
	
	comment "installing"
	
	comment "Start setup program"
	Winbatch_install
	
endif

[Winbatch_install]
 "%ScriptPath%\R-3.0.2-win.exe" /silent
</code>

===uninstall.ins===
<code winst>
[Actions]
DefVar $ProductId$
DefVar $UninstallProgram$

Set $ProductId$       = "r"

ShowBitmap "%ScriptPath%\" + $ProductId$ + ".png" $ProductId$

if FileExists("%ScriptPath%\delsub.ins")
	comment "start uninstall"
	sub "%ScriptPath%\delsub.ins"
endif
</code>

===delsub.ins===
<code winst>
;Version 3.0.2
Set $UninstallProgram$ = "%ProgramFilesSysnativeDir%\R\R-3.0.2\unins000.exe"
if FileExists($UninstallProgram$)
	Message "Found "+$ProductId$+" => uninstalling first"
	Winbatch_uninstall
endif

[Winbatch_uninstall]
 "$UninstallProgram$" /silent
</code>