Themes not working in report

[araikes]

Hi @daya6489,

I was going to create a report using a non-default theme (e.g., theme_fivethirtyeight() ) and I get the error below. I tried following the example on the documentation and using theme_foundation() and get the same output.

I'm using the releases of SmartEDA and ggthemes available as of 2023-08-05, R version 4.3.1.

> ExpReport(data = clinical_data,
+           Target=NULL,
+           theme = theme_fivethirtyeight(),
+           op_dir = "reports",
+           op_file= "clinicalData_EDAReport.html")


processing file: report_tmp_1.Rmd
1/31           
2/31 [setup]   
3/31           
4/31 [od_1]    
5/31           
6/31 [od_2]    
7/31           
8/31 [od_3]    
9/31           
10/31 [od_32]   
11/31           
12/31 [snv_all] 
13/31           
14/31 [snv_2]   
15/31           
16/31 [snv_2.1] 
17/31           
18/31 [snv2_new]
19/31           
20/31 [snv2]    

Quitting from lines 86-87 [snv2] (report_tmp_1.Rmd)
Error in `if (theme == "Default") ...`:
! the condition has length > 1
Backtrace:
 1. SmartEDA::ExpNumViz(...)
 2. base::lapply(...)
 3. SmartEDA (local) FUN(X[[i]], ...)
 4. SmartEDA:::smtheme(theme)

[daya6489]

this issues has been fixed in the latest version. theme function is working now.