tests/testthat/helper-mocked.R

In dtreg: Interact with Data Type Registries and Create Machine-Readable Data

mocked_request_epic <- function(route) {
  if (route ==
        "https://doi.org/21.T11969/31483624b5c80014b6c7?locatt=view:json") {
    mocked_info <- info_epic_1
  } else if (route ==
               "https://doi.org/21.T11969/fb2e379f820c6f8f9e82?locatt=view:json") {
    mocked_info <- info_epic_2
  } else {
    stop("Please check the URL for mocking")
  }
  return(mocked_info)
}

mocked_request_orkg <- function(route) {
  if (route == "https://orkg.org/api/templates/R758315") {
    mocked_info <- info_template_1
  } else if (route == "https://orkg.org/api/templates/R758316") {
    mocked_info <- info_template_2
  } else if (route == "https://orkg.org/api/templates/?target_class=C102007") {
    mocked_info <- info_via_class
  } else {
    stop("Please check the URL for mocking")
  }
  return(mocked_info)
}

info_epic_1 <- list(
  Identifier = "21.T11969/31483624b5c80014b6c7",
  name = "Matrix_Size",
  Schema = list(Type = "Object",
                Properties = list(
                  list(
                    Name = "number_of_rows",
                    Type = "21.T11969/fb2e379f820c6f8f9e82",
                    Properties = list(Cardinality = "1")
                  ),
                  list(
                    Name = "number_of_columns",
                    Type = "21.T11969/fb2e379f820c6f8f9e82",
                    Properties = list(Cardinality = "1")
                  )
                ))
)

info_epic_2 <- list(
  Identifier = "21.T11969/fb2e379f820c6f8f9e82",
  name = "integer_in_string",
  Schema = list(Type = "String", Properties = list(
    list(Property = "pattern",
         Value = "^[0-9]+$")
  ))
)

info_template_1 <- list(
  id = "R758315",
  label = "dtreg_test_template1",
  target_class = list(id = "C102006"),
  properties = list(
    list(
      min_count = 0,
      max_count = NULL,
      path = list(id = "P160020", label = "property1"),
      datatype = list(id = "String")
    ),
    list(
      min_count = 0,
      max_count = NULL,
      path = list(id = "P160021", label = "property2"),
      class = list(id = "C102007")
    )
  )
)

info_template_2 <- list(
  id = "R758316",
  label = "dtreg_test_template2",
  target_class = list(id = "C102007"),
  properties = list(list(
    min_count = 0,
    max_count = NULL,
    path = list(id = "P160024", label = "property3"),
    datatype = list(id = "Integer")
  ))
)

info_via_class <- list(content = list(list(id = "R758316",
                                           label = "dtreg_test_template2")))