Error in `switch(units, `in` = res, cm = res/2.54, mm = res/25.4, px = 1) * 
    width`: non-numeric argument to binary operator

df_exe <- comb_all_data_model(highd_data = scurve, nldr_data = scurve_umap,
model_highd = scurve_model_obj$model_highd, model_2d = scurve_model_obj$model_2d)
crosstalk_obj <- show_link_plots(point_data = df_exe, edge_data = edge_data)
model_error <- augment(highd_data = scurve, model_highd = scurve_model_obj$model_highd,
df_exe <- comb_all_data_model_error(highd_data = scurve, nldr_data = scurve_umap,
model_highd = scurve_model_obj$model_highd, model_2d = scurve_model_obj$model_2d,
crosstalk_obj <- show_error_link_plots(point_data = df_exe, edge_data = edge_data)