textInput instead of sliderInput !

I try to make sliderInput in my sidebar but what is shown, is a box like textInput not slider. I used flexdashboard.

---
title: "Test Model"
output: 
  flexdashboard::flex_dashboard:
    theme:
      bg: "#262626" #full page color
      fg: "#00ffaa" 
      primary: "#00ffaa"
      base_font:
        google: Teko
      code_font:
        google: JetBrains Mono
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)


# Install thematic and un-comment for themed static plots (i.e., ggplot2)
# thematic::thematic_rmd()
```

Column {data-width=650 .tabset}
-----------------------------------------------------------------------

### Chart A

```{r}

```

### Chart B

```{r}

```

Inputs {.sidebar}
-----------------------------------------------------------------------

### Inputs

```{r}
  sliderInput(inputId = 'Ic1',label = 'Number of houses',min = 8,max = 51,value = 8)

```




Have you solved this?
I'm facing the same issue.

Slider for me:

image

> sessionInfo()
R version 4.1.2 (2021-11-01)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19042)

Matrix products: default

locale:
[1] LC_COLLATE=English_Australia.1252  LC_CTYPE=English_Australia.1252    LC_MONETARY=English_Australia.1252 LC_NUMERIC=C                       LC_TIME=English_Australia.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] shiny_1.7.2         flexdashboard_0.6.0

By the way, I edited your question -- the code block uses four backticks at the start and end markdown code chunks.