Last updated on 2024-12-26 11:50:45 CET.
| Package | ERROR | OK |
|---|---|---|
| T2DFitTailor | 1 | 12 |
Current CRAN status: ERROR: 1, OK: 12
Version: 3.0.0
Check: examples
Result: ERROR
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: VisualizeTailoredExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: VisualizeTailoredExercisePlan
>
> ### ** Examples
>
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ LDL = sample(2.2:4.7, 8, replace = TRUE),
+ VO2_Max = sample(13:45, 8, replace = TRUE),
+ Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+ Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
>
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+ 'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+ 'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+ 'Sample5', 'Sample6', 'Sample7', 'Sample8')
>
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) :
Timeout was reached [106.54.44.39]: Connection timed out after 10002 milliseconds
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Flavor: r-patched-linux-x86_64