You can achieve this by setting the options pageLength of DT:
Example rmd:
---
title: "Untitled"
author: "TarJae"
date: "5 2 2021"
output: html_document
---
chunk 1
knitr::opts_chunk$set(echo = TRUE)
library(DT)
options(DT.options = list(pageLength = 100, language = list(search = 'Filter:')))
chunk 2:
datatable(mtcars)
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…