Is there a way to range rhandsontable side by side

I have a 2 rhandsontables r1 and r2 below. Is there a way to arrange these side by side?

library(rhandsontable)
library(knitr)
library(kableExtra)
library(RGraphics)
y <- c(1:123)
y <- ts(y, start = c(2017, 23), end = c(2019, 39), frequency = 53)
y.hw <- HoltWinters(y)
HW <- forecast(y.hw, h = 6)
HW <- as.data.frame(HW)
HW$TS <- rownames(HW)
rownames(HW) <- NULL
r1 <- rhandsontable(HW,width = 500)
r2 <- rhandsontable(HW,width = 500)