How can I increase the accuracy with decision tree in R?

Question

library(caret)

library(rpart)
#read data
setwd("C:/Users/syn/Desktop/sy")
data_heart = read.csv("heart_disease_dataset.csv", header = T, sep = "