Skip to contents

Creates a complete userData-like list structure populated with dummy data from all eDataDRF::example_campaign_tibble() and related functions. This mirrors the structure created by initialise_userData() but with test data instead of empty tibbles.

Useful for testing outside of a reactive context.

Usage

create_dummy_session_data()

Value

A list matching the structure of initialise_userData() with dummy data

Examples

session_data <- create_dummy_session_data()
names(session_data)
#>  [1] "ENTERED_BY"               "sitesData"               
#>  [3] "sitesDataValid"           "parametersData"          
#>  [5] "parametersDataValid"      "compartmentsData"        
#>  [7] "compartmentsDataValid"    "referenceData"           
#>  [9] "referenceDataValid"       "campaignData"            
#> [11] "campaignDataValid"        "methodsData"             
#> [13] "methodsDataValid"         "samplesData"             
#> [15] "samplesDataValid"         "biotaData"               
#> [17] "biotaDataValid"           "samplesDataWithBiota"    
#> [19] "measurementsData"         "measurementsDataValid"   
#> [21] "datasetDetails"           "creedRelevance"          
#> [23] "creedReliability"         "creedScores"             
#> [25] "creedReport"              "creedGetData"            
#> [27] "creedCalculateScores"     "schemaLLM"               
#> [29] "promptLLM"                "rawLLM"                  
#> [31] "metaData"                 "pdfPath"                 
#> [33] "campaignDataLLM"          "referenceDataLLM"        
#> [35] "sitesDataLLM"             "parametersDataLLM"       
#> [37] "compartmentsDataLLM"      "methodsDataLLM"          
#> [39] "samplesDataLLM"           "biotaDataLLM"            
#> [41] "llmExtractionComplete"    "llmExtractionSuccessful" 
#> [43] "llmPopulateModules"       "llmScreeningComplete"    
#> [45] "llmScreeningComments"     "llmScreeningSuccessful"  
#> [47] "saveExtractionComplete"   "saveExtractionSuccessful"
#> [49] "creedReliabilityValid"    "creedRelevanceValid"     
nrow(session_data$sitesData)
#> [1] 2