more changes

DESCRIPTION

 Package: lsfun
-Title: What the Package Does (One Line, Title Case)
-Version: 0.0.0.9000
-Authors@R: 
-    person("First", "Last", , "first.last@example.com", role = c("aut", "cre"),
-           comment = c(ORCID = "YOUR-ORCID-ID"))
-Description: What the package does (one paragraph).
-License: `use_mit_license()`, `use_gpl3_license()` or friends to pick a
-    license
+Title: Helper functions to interact with LimeSurvey from within R
+Version: 0.0.3
+Authors@R: person(given = "Oliver",
+           family = "Purschke",
+           role = c("aut", "cre"),
+           email = "oliver.purschke@uk-halle.de",
+           comment = c(ORCID = "0000-0003-0444-0882"))
+Description: Currently contains a set of functions to interact with LimeSurvey from within R
+License: GNU General Public License v3.0
 Encoding: UTF-8
-Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.0
+LazyData: true
+RoxygenNote: 7.2.3

NAMESPACE

 # Generated by roxygen2: do not edit by hand
 
+export(digi_lime_auth)
 export(digi_lime_get_part_chunks)

R/digi_lime_auth.r

+#' Generate LimeSurvey authentification token
+#'
+#' @description In case there is no key set, run key_set("limesurvey.user", lime_user)
+#'
+#' @param lime_user LimeSurvey user name
+#'
+#' @return ...
+#' @export
+#' @examples
+#' digi_lime_auth()
+#'
+digi_lime_auth <- function(lime_user) {
+    safe_key_get <-
+        safely(
+            key_get # ,
+            # otherwise = key_set("limesurvey.user", lime_user)
+        )
+    options(lime_api = "https://webszh.uk-halle.de/limesurvey/index.php/admin/remotecontrol")
+    options(lime_username = lime_user)
+    options(lime_password = safe_key_get("limesurvey.user", lime_user)$result)
+    get_session_key()
+}

README.md

@@ -15,6 +15,7 @@ Load additional packages
 
 ``` r
 library(tidyverse)
+library(keyring)
 library(limer)
 ```
 

man/digi_lime_auth.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/digi_lime_auth.r
+\name{digi_lime_auth}
+\alias{digi_lime_auth}
+\title{Generate LimeSurvey authentification token}
+\usage{
+digi_lime_auth(lime_user)
+}
+\arguments{
+\item{lime_user}{LimeSurvey user name}
+}
+\value{
+...
+}
+\description{
+In case there is no key set, run key_set("limesurvey.user", lime_user)
+}
+\examples{
+digi_lime_auth()
+
+}