[rkward/frameworks] rkward/rbackend/rpackages/rkward/R: Fix display of plots in output window on Windows.

[Thomas Friedrichsmeier]

Git commit dbb076128572a445e27c6c0b50aae59fd304d6a1 by Thomas Friedrichsmeier.
Committed on 19/05/2017 at 16:01.
Pushed by tfry into branch 'frameworks'.

Fix display of plots in output window on Windows.

M  +1    -1    rkward/rbackend/rpackages/rkward/R/public_graphics.R

https://commits.kde.org/rkward/dbb076128572a445e27c6c0b50aae59fd304d6a1

diff --git a/rkward/rbackend/rpackages/rkward/R/public_graphics.R b/rkward/rbackend/rpackages/rkward/R/public_graphics.R
index f59efa5e..5235e20d 100644
--- a/rkward/rbackend/rpackages/rkward/R/public_graphics.R
+++ b/rkward/rbackend/rpackages/rkward/R/public_graphics.R
@@ -46,7 +46,7 @@
 "rk.graph.on" <- function (device.type=getOption ("rk.graphics.type"), width=getOption ("rk.graphics.width"), height=getOption ("rk.graphics.height"), quality, ...) 
 {
 	make.url <- function (filename) {
-		if (substr (filename, 2, 1) == ":") {  # *very* likely an absolute Windows path like c:\xyz .
+		if (substr (filename, 2, 2) == ":") {  # *very* likely an absolute Windows path like c:\xyz .
 			paste ("file:///", filename, sep="")
 		} else if (substr (filename, 1, 1) == "/") {
 			paste ("file://", filename, sep="")