How do i carry out conditional arguments for a function in r with different inputs from the user for one of the variables in the function?

Question

I want to create a function in R as so: PPAFunction <- function(Point_data, Shape_file, CRS, Type) with the final parameter "Type" having 3 options (options tha