Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TailorExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> # Create a demo dataframe
> set.seed(16)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE)
+ )
> rownames(df) <- c("xiaoming", "xiaohong", "xiaohua", "xiaogang",
+                   "xiaoli", "zhangsan", "lisi", "wangwu")
> colnames(df) <- c("Age", "Sex", "BMI", "Duration_T2D (year)",
+                   "HDL (mmol/L)", "PCS", "WHtR")
> # 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: lexical error: invalid char in json text.
                                       Please check your data format!
                     (right here) ------^
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TailorExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> # Create a demo dataframe
> set.seed(16)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE)
+ )
> rownames(df) <- c("xiaoming", "xiaohong", "xiaohua", "xiaogang",
+                   "xiaoli", "zhangsan", "lisi", "wangwu")
> colnames(df) <- c("Age", "Sex", "BMI", "Duration_T2D (year)",
+                   "HDL (mmol/L)", "PCS", "WHtR")
> # 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: lexical error: invalid char in json text.
                                       Please check your data format!
                     (right here) ------^
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> # Create a demo dataframe
> set.seed(16)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE)
+ )
> rownames(df) <- c("xiaoming", "xiaohong", "xiaohua", "xiaogang",
+                   "xiaoli", "zhangsan", "lisi", "wangwu")
> colnames(df) <- c("Age", "Sex", "BMI", "Duration_T2D (year)",
+                   "HDL (mmol/L)", "PCS", "WHtR")
> # 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: lexical error: invalid char in json text.
                                       Please check your data format!
                     (right here) ------^
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> # Create a demo dataframe
> set.seed(16)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE)
+ )
> rownames(df) <- c("xiaoming", "xiaohong", "xiaohua", "xiaogang",
+                   "xiaoli", "zhangsan", "lisi", "wangwu")
> colnames(df) <- c("Age", "Sex", "BMI", "Duration_T2D (year)",
+                   "HDL (mmol/L)", "PCS", "WHtR")
> # 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: lexical error: invalid char in json text.
                                       Please check your data format!
                     (right here) ------^
Execution halted
Running examples in 'T2DFitTailor-Ex.R' failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> # Create a demo dataframe
> set.seed(16)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE)
+ )
> rownames(df) <- c("xiaoming", "xiaohong", "xiaohua", "xiaogang",
+                   "xiaoli", "zhangsan", "lisi", "wangwu")
> colnames(df) <- c("Age", "Sex", "BMI", "Duration_T2D (year)",
+                   "HDL (mmol/L)", "PCS", "WHtR")
> # 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: lexical error: invalid char in json text.
                                       Please check your data format!
                     (right here) ------^
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TailorExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> # Create a demo dataframe
> set.seed(16)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE)
+ )
> rownames(df) <- c("xiaoming", "xiaohong", "xiaohua", "xiaogang",
+                   "xiaoli", "zhangsan", "lisi", "wangwu")
> colnames(df) <- c("Age", "Sex", "BMI", "Duration_T2D (year)",
+                   "HDL (mmol/L)", "PCS", "WHtR")
> # 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: lexical error: invalid char in json text.
                                       Please check your data format!
                     (right here) ------^
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TailorExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> # Create a demo dataframe
> set.seed(16)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE)
+ )
> rownames(df) <- c("xiaoming", "xiaohong", "xiaohua", "xiaogang",
+                   "xiaoli", "zhangsan", "lisi", "wangwu")
> colnames(df) <- c("Age", "Sex", "BMI", "Duration_T2D (year)",
+                   "HDL (mmol/L)", "PCS", "WHtR")
> # 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: lexical error: invalid char in json text.
                                       Please check your data format!
                     (right here) ------^
Execution halted
Running examples in 'T2DFitTailor-Ex.R' failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> # Create a demo dataframe
> set.seed(16)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE)
+ )
> rownames(df) <- c("xiaoming", "xiaohong", "xiaohua", "xiaogang",
+                   "xiaoli", "zhangsan", "lisi", "wangwu")
> colnames(df) <- c("Age", "Sex", "BMI", "Duration_T2D (year)",
+                   "HDL (mmol/L)", "PCS", "WHtR")
> # 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: lexical error: invalid char in json text.
                                       Please check your data format!
                     (right here) ------^
Execution halted
Running examples in 'T2DFitTailor-Ex.R' failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Tailor Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> # Create a demo dataframe
> set.seed(16)
> df <- data.frame(
+ Age = sample(39:77, 8, replace = TRUE),
+ Sex = sample(0:1, 8, replace = TRUE),
+ BMI = sample(18:31, 8, replace = TRUE),
+ Duration_T2D = sample(1:26, 8, replace = TRUE),
+ HDL = sample(1:1.7, 8, replace = TRUE),
+ PCS = sample(27:54, 8, replace = TRUE),
+ WHtR = sample(0.4:0.6, 8, replace = TRUE)
+ )
> rownames(df) <- c("xiaoming", "xiaohong", "xiaohua", "xiaogang",
+                   "xiaoli", "zhangsan", "lisi", "wangwu")
> colnames(df) <- c("Age", "Sex", "BMI", "Duration_T2D (year)",
+                   "HDL (mmol/L)", "PCS", "WHtR")
> # 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: lexical error: invalid char in json text.
                                       Please check your data format!
                     (right here) ------^
Execution halted