Skip to contents

Authentification

  • See vignette("wrapping-apis", package = "httr2")

Check whether repository secret is available

httr2::secret_has_key(
  "STUDENTENSTATISTIKNRW_KEY"
)
#> [1] TRUE

Test Login for GENESIS-Online


# Using wiesbaden::save_credentials() does not work in automated setting, see https://github.com/r-lib/keyring/issues/68

wiesbaden::test_login(
    genesis = c(
      db = "de",
      user = httr2::secret_decrypt(
        "F7n1i0Z8YhyeDEYjnNaw14KEYzXc3ICfqGw",
        "STUDENTENSTATISTIKNRW_KEY"
      ),
      password = httr2::secret_decrypt(
        "HttWvnmkxOru6VKzxox084iIEv8ZrFIqVXEO",
        "STUDENTENSTATISTIKNRW_KEY"
      )
  )
)
#> [1] "Sie wurden erfolgreich an- und abgemeldet."