Solve this problem with R please.

Here are some suggested test cases

Please write a function get_factors () which takes a number x and returns a list object. The list object should contain the vector of unique prime factors of x and the corresponding exponents. In addition, write one "helper function" is_prime() that returns a logical vector depending on whether or not the elements in x are prime. A good way to test this function should be: x