Copy a Kotlin data object, applying a transform to every field

dataCopy.kt

@Suppress("UNCHECKED_CAST")
fun <T: Any> T.dataCopy(mapper: (Any?) -> Any?): T {
    val memberFunctions = this::class.memberFunctions
    val components = memberFunctions.filter { it.name.startsWith("component") }.sortedBy { it.name.substringAfter("component").toInt() }
    val componentValues = components.map { it.call(this) }.toTypedArray()
    val copyMethod: KFunction<*> = memberFunctions.first { it.name == "copy" }
    val copyArgs: List<Any?> = listOf(this) + componentValues.map(mapper)
    return copyMethod.call(*copyArgs.toTypedArray()) as T
}