Select Code to Download

Select or download this

#!c:/Strawberry/Perl/bin/perl
use strict;
...
print "R created\n";
$R->run('options(scipen = 999)');   #  disabling scientific notation i
+n R.
print "R initialised\n";

Select or download this

C:\Information\mgroot\cgi-bin>perl DebugR.cgi
Content-Type: text/html; charset=utf-8

R created
R initialised

Select or download this

[Wed Jan 29 13:58:44 2020] [error] [client 192.168.1.207] ack Invalid 
+argument: write( 5, 'cmd<-c("write(ngettext(1, \\"Error: \\", \\"\\",
+ domain=\\"R\\"), stdout())"); write("\\1",stdout())
[Wed Jan 29 13:58:44 2020] [error] [client 192.168.1.207] ' ) at C:/St
+rawberry/perl/vendor/lib/IPC/Run/IO.pm line 549.
[Wed Jan 29 13:58:44 2020] [error] [client 192.168.1.207] Warning: una
+ble to close filehandle GEN10 properly: Bad file descriptor during gl
+obal destruction.
[Wed Jan 29 13:58:44 2020] [error] [client 192.168.1.207] Warning: una
+ble to close filehandle GEN5 properly: Bad file descriptor during glo
+bal destruction.