tests/testthat/test-instrumentation.R

In connectapi: Utilities for Interacting with the 'Posit Connect' Server API

without_internet({
  test_that("Query params to inst_content_visits", {
    con <- Connect$new(server = "https://connect.example", api_key = "fake")
    expect_GET(
      con$inst_content_visits(),
      "https://connect.example/__api__/v1/instrumentation/content/visits?limit=500&asc_order=true"
    )

    expect_GET(
      con$inst_content_visits(content_guid = "f2f37341-e21d-3d80-c698-a935ad614066"),
      "https://connect.example/__api__/v1/instrumentation/content/visits?content_guid=f2f37341-e21d-3d80-c698-a935ad614066&limit=500&asc_order=true"
    )
    # Multiple GUIDs are | separated
    expect_GET(
      # Use short ids for readability
      con$inst_content_visits(content_guid = c("1234", "5678")),
      "https://connect.example/__api__/v1/instrumentation/content/visits?content_guid=1234%7C5678&limit=500&asc_order=true"
    )

    expect_GET(
      con$inst_content_visits(asc_order = FALSE),
      "https://connect.example/__api__/v1/instrumentation/content/visits?limit=500&asc_order=false"
    )

    expect_GET(
      con$inst_content_visits(limit = 10, previous = "asdf", nxt = "qwer"),
      "https://connect.example/__api__/v1/instrumentation/content/visits?limit=10&previous=asdf&asc_order=true&next=qwer"
    )

    expect_GET(
      con$inst_content_visits(from = "2022-01-01", to = "2022-01-31"),
      "https://connect.example/__api__/v1/instrumentation/content/visits?from=2022-01-01&to=2022-01-31&limit=500&asc_order=true"
    )

    expect_GET(
      con$inst_content_visits(min_data_version = 0),
      "https://connect.example/__api__/v1/instrumentation/content/visits?min_data_version=0&limit=500&asc_order=true"
    )

    expect_GET(
      con$inst_content_visits(limit = 1000),
      "https://connect.example/__api__/v1/instrumentation/content/visits?limit=500&asc_order=true"
    )
  })

  test_that("Query params to inst_shiny_usage", {
    con <- Connect$new(server = "https://connect.example", api_key = "fake")
    expect_GET(
      con$inst_shiny_usage(),
      "https://connect.example/__api__/v1/instrumentation/shiny/usage?limit=500&asc_order=true"
    )

    expect_GET(
      con$inst_shiny_usage(content_guid = "f2f37341-e21d-3d80-c698-a935ad614066"),
      "https://connect.example/__api__/v1/instrumentation/shiny/usage?content_guid=f2f37341-e21d-3d80-c698-a935ad614066&limit=500&asc_order=true"
    )
    # Multiple GUIDs are | separated
    expect_GET(
      # Use short ids for readability
      con$inst_shiny_usage(content_guid = c("1234", "5678")),
      "https://connect.example/__api__/v1/instrumentation/shiny/usage?content_guid=1234%7C5678&limit=500&asc_order=true"
    )

    expect_GET(
      con$inst_shiny_usage(asc_order = FALSE),
      "https://connect.example/__api__/v1/instrumentation/shiny/usage?limit=500&asc_order=false"
    )

    expect_GET(
      con$inst_shiny_usage(limit = 10, previous = "asdf", nxt = "qwer"),
      "https://connect.example/__api__/v1/instrumentation/shiny/usage?limit=10&previous=asdf&asc_order=true&next=qwer"
    )

    expect_GET(
      con$inst_shiny_usage(from = "2022-01-01", to = "2022-01-31"),
      "https://connect.example/__api__/v1/instrumentation/shiny/usage?from=2022-01-01&to=2022-01-31&limit=500&asc_order=true"
    )

    expect_GET(
      con$inst_shiny_usage(min_data_version = 0),
      "https://connect.example/__api__/v1/instrumentation/shiny/usage?min_data_version=0&limit=500&asc_order=true"
    )

    expect_GET(
      con$inst_shiny_usage(limit = 1000),
      "https://connect.example/__api__/v1/instrumentation/shiny/usage?limit=500&asc_order=true"
    )
  })
})