Quarto R ojs_define function and OJS in RStudio

[novotny1akub]

I tried to use Quarto to do data preprocessing in R and then make the created data available in OJS using RStudio, but it seems to me that the ojs_define function is not available. This article suggests that it might be possible, but it does not seem to be working for me.

{r}
#| output: false
ojs_define(mtcars = mtcars)

In addition, it seems that using ojs from RStudio does not seem to be possible either. For example, following results in an error:

{ojs}
viewof bill_length_min = Inputs.range(
  [32, 50], 
  {value: 35, step: 1, label: "Bill length (min):"}
)

Is there a way to do what I tried above or will it be possible eventually?

[jjallaire]

ojs doesn’t currently work interactively within RStudio (you have to do a complete render). This will be improved in the future!

[novotny1akub]

Thanks a lot. Using some features of OJS (e.g. Inputs.range) is working with the complete render now, but when I try to define data in R, and then use it with OJS, it gives me OJS Runtime Error invalid module. In fact even with OJS defined data, it does not seem to be working. The following code gives OJS Runtime Error invalid module.

d3 = require('d3')

contributors = await d3.json(
  "https://api.github.com/repos/pandas-dev/pandas/stats/contributors"
)

commits = contributors.map(contributor => {
  const author = contributor.author;
  return {
    name: author.login,
    title: author.login,
    group: author.type,
    value: contributor.total
  }
})

[cscheid]

I can't reproduce this locally on the latest Quarto version. Can you make sure you're running an up-to-date version?

[novotny1akub]

After updating my version, it seems to be working. Sorry for the confusion and thanks.

[novotny1akub]

I am sorry, but I have to reopen the issue. Below is a reprex. I can successfully define df in R. I can use the df in OJS, but I can't use the Plot module in RStudio. Is there a way to do that?

---
title: "OJS"
format: html
editor: visual
---

```{r}
df <- data.frame(
  year = 1961:1990,
  max = runif(30, -10, 20) |> cumsum()
  )

ojs_define(df = df)
```

```{ojs}
Inputs.table(transpose(df), { sort: "year", reverse: true })
```

```{ojs}
Plot.plot({
  marks: [
    Plot.line(transpose(df), {x: "year", y: "max"})
  ]
})
```

[cscheid]

Unfortunately, like jjallaire said, OJS plots in the "Plots" tab are not currently supported in RStudio.

I will note, though, that you can still render the entire document to get this: