Add REDCap methods, read data parameter from Dict or file

src/.github/workflows/TagBot.yml

@@ -0,0 +1,20 @@
+name: TagBot
+on:
+  issue_comment:
+    types:
+      - created
+  workflow_dispatch:
+    inputs:
+      lookback:
+        default: 3
+permissions:
+  contents: write
+jobs:
+  TagBot:
+    if: github.event_name == 'workflow_dispatch' || github.actor == 'JuliaTagBot'
+    runs-on: ubuntu-latest
+    steps:
+      - uses: JuliaRegistries/TagBot@v1
+        with:
+          token: ${{ secrets.GITHUB_TOKEN }}
+          ssh: ${{ secrets.DOCUMENTER_KEY }}

src/REDCap.jl

@@ -7,21 +7,21 @@ using URIs
 
 include("types.jl")
 include("utils.jl")
-#include("api_methods/arms.jl")
-#include("api_methods/data_access_groups.jl")
-#include("api_methods/events.jl")
+include("api_methods/arms.jl")
+include("api_methods/data_access_groups.jl")
+include("api_methods/events.jl")
 include("api_methods/field_names.jl")
-#include("api_methods/files.jl")
-#include("api_methods/file_repository.jl")
-#include("api_methods/instruments.jl")
+include("api_methods/files.jl")
+include("api_methods/file_repository.jl")
+include("api_methods/instruments.jl")
 include("api_methods/logging.jl")
 include("api_methods/metadata.jl")
 include("api_methods/projects.jl")
 include("api_methods/records.jl")
 include("api_methods/redcap.jl")
-#include("api_methods/repeating_instruments_and_events.jl")
-#include("api_methods/reports.jl")
-#include("api_methods/surveys.jl")
+include("api_methods/repeating_instruments_and_events.jl")
+include("api_methods/reports.jl")
+include("api_methods/surveys.jl")
 include("api_methods/users.jl")
 include("api_methods/user_roles.jl")
 

src/api_methods/arms.jl

@@ -2,30 +2,56 @@ export delete_arms,
 	export_arms,
 	import_arms
 
-function delete_arms(;arms=nothing)
+function delete_arms(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	arms=nothing,
+	)
+
 	REDCap.request(;
-		       content=REDCap_content(:arm),
-		action=:import,
+		url=REDCap_url(url),
+		token=REDCap_token(token),
+	       content=REDCap_content(:arm),
+	       action=REDCap_action(:import),
 		arms=arms,
 	)
 end
 
-function export_arms(;format=:xml,arms=nothing,returnFormat=nothing)
+function export_arms(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	format::redcap_format_input=nothing,
+	returnFormat::redcap_returnFormat_input=nothing,
+	arms=nothing,
+	)
+
 	REDCap.request(;
-		       content=REDCap_content(:arm),
+		url=REDCap_url(url),
+		token=REDCap_token(token),
+	       content=REDCap_content(:arm),
 		format=REDCap_format(format),
 		arms=arms,
 		returnFormat=REDCap_format(returnFormat),
 	)
 end
 
-function import_arms(;format=:xml,data=nothing,override=0,returnFormat=nothing)
+function import_arms(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	format::redcap_format_input=nothing,
+	data::redcap_data_input=nothing,
+	returnFormat::redcap_returnFormat_input=nothing,
+	override=0,
+	)
+
 	REDCap.request(;
-		       content=REDCap_content(:arm),
+		url=REDCap_url(url),
+		token=REDCap_token(token),
+	       content=REDCap_content(:arm),
 		override=override,
-		action=:import,
+		action=REDCap_action(:import),
 		format=REDCap_format(format),
-		data=data,
+		data=REDCap_data(data,REDCap_format(format)),
 		returnFormat=REDCap_format(returnFormat),
 	)
 end

src/api_methods/data_access_groups.jl

@@ -5,52 +5,96 @@ export delete_DAGs,
 	import_user_DAG_assignment,
 	switch_DAG
 
-function delete_DAGs(;dags=nothing)
+function delete_DAGs(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	dags=nothing)
+
 	REDCap.request(;
+		url=REDCap_url(url),
+		token=REDCap_token(token),
 		content=REDCap_content(:dag),
-		action=:delete,
+		action=REDCap_action(:delete),
 		dags=dags,
 	)
 end
 
-function export_DAGs(;format=:xml,returnFormat=nothing)
+function export_DAGs(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	format::redcap_format_input=nothing,
+	#TODO: This is one of those ones that only take a format parameter
+	)
+
 	REDCap.request(;
+		url=REDCap_url(url),
+		token=REDCap_token(token),
 		       content=REDCap_content(:dag),
 		format=REDCap_format(format),
 		returnFormat=REDCap_format(returnFormat),
 	)
 end
 
-function export_user_DAG_assignment(;format=:xml)
+function export_user_DAG_assignment(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	format::redcap_format_input=nothing,
+	)
+
 	REDCap.request(;
-		       content=REDCap_content(:userDagMapping),
+		url=REDCap_url(url),
+		token=REDCap_token(token),
+	       content=REDCap_content(:userDagMapping),
 		format=REDCap_format(format),
 	)
 end
 
-function import_DAGs(;format=:xml,data=nothing,returnFormat=nothing)
+function import_DAGs(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	data::redcap_data_input=nothing,
+	format::redcap_format_input=nothing,
+	returnFormat::redcap_returnFormat_input=nothing,
+	)
+
 	REDCap.request(;
+		url=REDCap_url(url),
+		token=REDCap_token(token),
 		       content=REDCap_content(:dag),
-		action=:import,
+		       action=REDCap_action(:import),
 		format=REDCap_format(format),
-		data=data,
+		data=REDCap_data(data,REDCap_format(format)),
 		returnFormat=REDCap_format(returnFormat),
 	)
 end
 
-function import_user_DAG_assignment(;format=:xml,data=nothing,returnFormat=nothing)
+function import_user_DAG_assignment(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	data::redcap_data_input=nothing,
+	format::redcap_format_input=nothing,
+	returnFormat::redcap_returnFormat_input=nothing,
+	)
+
 	REDCap.request(;
+		url=REDCap_url(url),
+		token=REDCap_token(token),
 		       content=REDCap_content(:userDagMapping),
 		format=REDCap_format(format),
-		data=data,
+		data=REDCap_data(data,REDCap_format(format)),
 		returnFormat=REDCap_format(returnFormat),
 	)
 end
 
-function switch_DAG(;dag=nothing)
+function switch_DAG(;
+	data::redcap_data_input=nothing,
+	url::redcap_url_input=get_url(),
+		dag=nothing)
 	REDCap.request(;
+		url=REDCap_url(url),
+		token=REDCap_token(token),
 		       content=REDCap_content(:dag),
-		action=:switch,
+		       action=REDCap_action(:switch),
 		dag=dag,
 	)
 end

src/api_methods/events.jl

@@ -2,31 +2,57 @@ export delete_events,
 	import_events,
 	export_events
 
-function delete_events(;events=nothing)
+function delete_events(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+		events=nothing,
+		)
+
 	REDCap.request(;
+		url=REDCap_url(url),
+		token=REDCap_token(token),
 		       content=REDCap_content(:event),
-		action=:import,
+		       action=REDCap_action(:import),
 		events=events,
 	)
 end
 
-function export_events(;format=:xml,arms=nothing,returnFormat=nothing)
+function export_events(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	format::redcap_format_input=nothing,
+	returnFormat::redcap_returnFormat_input=nothing,
+		arms=nothing,
+		)
+
 	REDCap.request(;
-		       content=REDCap_content(:event),
+		url=REDCap_url(url),
+		token=REDCap_token(token),
 		format=REDCap_format(format),
-		arms=arms,
 		returnFormat=REDCap_format(returnFormat),
+		       content=REDCap_content(:event),
+		arms=arms,
 	)
 end
 
-function import_events(;format=:xml,data=nothing,override=0,returnFormat=nothing)
+function import_events(;
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	format::redcap_format_input=nothing,
+	returnFormat::redcap_returnFormat_input=nothing,
+		data=nothing,
+		override=0,
+		)
+
 	REDCap.request(;
-		       content=REDCap_content(:event),
-		action=:import,
-		override=override,
+		url=REDCap_url(url),
+		token=REDCap_token(token),
 		format=REDCap_format(format),
-		data=data,
 		returnFormat=REDCap_format(returnFormat),
+		       content=REDCap_content(:event),
+		       action=REDCap_action(:import),
+		override=override,
+		data=REDCap_data(data,REDCap_format(format)),
 	)
 end
 

src/api_methods/field_names.jl

@@ -1,15 +1,15 @@
 export export_list_of_export_field_names
 
 function export_list_of_export_field_names(;
-	url::redcap_url_parameter=get_url(),
-	token::redcap_token_parameter=get_token(),	
-	format::redcap_format_parameter=nothing,
-	returnFormat::redcap_returnFormat_parameter=nothing,
+	url::redcap_url_input=get_url(),
+	token::redcap_token_input=get_token(),	
+	format::redcap_format_input=nothing,
+	returnFormat::redcap_returnFormat_input=nothing,
 	field=nothing
 	)
 
 	REDCap.request(;
-		url=URI(url),
+		url=REDCap_url(url),
 		token=REDCap_token(token),
 		content=REDCap_content(:exportFieldNames),
 		format=REDCap_format(format),