Yes, I see the same issue. Here is a smaller reprex. Running this once (in RStudio on macOS), the table draws and responds to the select input. Running it again without making any changes, the table doesn't draw. I don't know why.
---
title: "Dashboard"
output:
html_document:
runtime: shiny
---
```{r}
zt <- data.frame(Name=c('Test1', 'Test1', 'Test2'),
Number = c(8, 9, 7)
)
PersonList <- sort(unique(zt$Name))
selectInput("PersonSel", "Person: ", PersonList, selected = 'Test1')
renderTable({
zt[zt$Name %in% input$PersonSel, ]
})
```