# We need a module state object to use this function:
sess_res = UD_test_mksession()
state = sess_res$state
data_file_local = system.file(package="formods", "test_data", "TEST_DATA.xlsx")
sheet = "DATA"
df = readxl::read_excel(path=data_file_local, sheet=sheet)
hfmt = FM_fetch_data_format(df, state)
# Column header formatting
head(as.vector(unlist( hfmt[["col_heads"]])))
# Column select subtext
head(as.vector(unlist( hfmt[["col_subtext"]])))
Run the code above in your browser using DataLab