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)
 ```
 
@@ -31,11 +32,8 @@ digi_lime_auth(lime_user = '[limeuser in here]')
 
 ```
 
-Classification and filtering of symptom diary entries
+Read large participant table in chunks
 ------------------
-lk_klass() filters records for each id_s in the symptom diary according to a predefined duration (months of living) and classifies each entry according to predefined fever categories. In addition, age (in days as well as in months of life) for each individual are calculated.
-e. g. for 1 until 12 months of life:
-
 
 ``` r
 ?digi_lime_get_part_chunks

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()
+
+}