build_secuTrial_url() not generic enough

[pianeu]

Describe the bug
If you want to generate a URL with the build_secutrial_url function, this no longer works for our instance due to the hardcoding of apps/ :

... sT_url <- paste0(sT_url, "apps/WebObjects/", instance) ...

To Reproduce
Steps to reproduce the behavior:

secuTrialR::build_secuTrial_url(server = "secutrial.dkfbasel.ch/", instance = "ST21-productive-DataCapture", customer = "XXX")

Generates the following link, for example:
https://secutrial.dkfbasel.ch/apps/WebObjects/ST21-productive-DataCapture.woa/wa/choose?customer=XXX

Expected behavior

This would be correct:
https://secutrial.dkfbasel.ch/prod1/WebObjects/ST21-productive-DataCapture.woa/wa/choose?customer=XXX