bugDLL.Rmd

---
title: "Bug DLL"
author: "Stéphane Laurent"
date: "10 octobre 2017"
output: html_document
editor_options: 
  chunk_output_type: console
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
dll <- "smallDLL.dll"
dyn.load(dll)
.C("HsStart")
```

```{r}
.C("addOne", x=1L, result=0L)$result
```

```{r}
dyn.unload(dll)
```

```{r}
dll <- "smallDLL.dll"
dyn.load(dll)
.C("HsStart")
```

```{r}
.C("addOne", x=1L, result=0L)$result
```