Data update

Task/Call-a-foreign-language-function/R/call-a-foreign-language-function-1.r

@@ -0,0 +1,8 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+void test(char *s) {
+    char *s_ptr = strdup(s);
+    printf(s_ptr);
+    free(s_ptr);
+}

Task/Call-a-foreign-language-function/R/call-a-foreign-language-function-2.r

@@ -0,0 +1,6 @@
+s <- "Hello World!"
+system("R CMD SHLIB rtask.c")
+dyn.load("rtask.dll")
+#Output from .C() is always a list, so take only the first element from it
+result <- .C("test", s)[[1]]
+print(result)