jsonvalidate and V8 Wasm dependencies

[p-schaefer]

I'm trying to deploy a shinylive app that uses the jsonvalidate package, which itself uses V8. According to http://repo.r-wasm.org, both of these packages should be available, but I'm getting a warning Can't find V8 in Wasm binary repository: <http://repo.r-wasm.org> in R and preload error: Requested package V8 not found in webR binary repo. and preload error:Warning: Error in loadNamespace: there is no package called ‘V8’ in the app. I've tried installing both the CRAN and https://jeroen.r-universe.dev/V8 versions of V8. I have also tried shinylive asset versions 0.9.1 and 0.10.6. I am using R 4.5.2.

[p-schaefer]

an example app:

library(shiny)
library(bslib)
library(jsonvalidate)

# Define UI for app that draws a histogram ----
ui <- page_sidebar(
  actionButton("tst","Run Test"),
  textOutput("result")
)

# Define server logic required to draw a histogram ----
server <- function(input, output) {
  
  observeEvent(input$tst,{
    # A simple schema example:
    schema <- '{
    "$schema": "http://json-schema.org/draft-04/schema#",
    "title": "Product",
    "description": "A product from Acme\'s catalog",
    "type": "object",
    "properties": {
        "id": {
            "description": "The unique identifier for a product",
            "type": "integer"
        },
        "name": {
            "description": "Name of the product",
            "type": "string"
        },
        "price": {
            "type": "number",
            "minimum": 0,
            "exclusiveMinimum": true
        },
        "tags": {
            "type": "array",
            "items": {
                "type": "string"
            },
            "minItems": 1,
            "uniqueItems": true
        }
    },
    "required": ["id", "name", "price"]
}'
    
    # Test if some (invalid) json conforms to the schema
    jsonvalidate::json_validate("{}", schema, verbose = TRUE)
    
    # Test if some (valid) json conforms to the schema
    json <- '{
    "id": 1,
    "name": "A green door",
    "price": 12.50,
    "tags": ["home", "green"]
}'
    output$result <- renderText({
      jsonvalidate::json_validate(json, schema)
    })
    
    
    
  })
  
  
}

# Create Shiny app ----
shinyApp(ui = ui, server = server)