I have the following data set that looks like this.

```
library(DT)

data <- data.frame(
  ID = c(1121:1125),
  class = c("math","math", "english", "history","science"),
  casenotes = c("Very Long text here!", "EVEN More Long Text Also Here!!!!", 
                "This text is even longer than the previous casenote",
                "Very Long text here!!!!! But wait there is more text in this sentence too!",
                "This text can be considered the longest casenote but it is possible for there to be a longer one.")

)

datatable(data,
          options = list(pageLength = 5, scrollY = "250px"))

```

This gives me an output that looks like this below.

[![enter image description here](https://i.stack.imgur.com/7TDYg.png)](https://i.stack.imgur.com/7TDYg.png)

Now this is a problem because different rows have different amounts of text, some do have text and some do not - but if the text is very long it will make the rows have different heights and I don't like the way it looks. Like below?

[![enter image description here](https://i.stack.imgur.com/p0nMu.png)](https://i.stack.imgur.com/p0nMu.png)

A solution I was thinking was having this text be rendered and opened in a new small window browser and storing it as a link or widget/button. I looked but couldn't find any resources on it sadly.