After creating a numericInput and a selectInput field using scripts in both shiny and shinydashboard, I noticed that the corner of the numericInput changes to 90 degrees in shinydashboard. For reference, you can view screenshots of both examples below:
https://i.sstatic.net/36QO2.png
In Example 1, both input fields have round corners.
https://i.sstatic.net/3nizN.png
However, in Example 2, the corner of the numericInput becomes 90 degrees.
I am seeking assistance in understanding this behavior and finding a way to ensure all corners are consistent, whether they are round or 90 degrees.
Example 1 ()
# Load the packages
library(shiny)
# User Interface
ui <- fluidPage(
numericInput(inputId = "Number", label = "A numericInput with round corner", value = NA),
selectInput(inputId = "Select", label = "A selectInput with round corner", choices = 1:3)
)
server <- function(input, output, session){
}
# Run the app
shinyApp(ui, server)
Example 2 ()
# Load the packages
library(shiny)
library(shinydashboard)
# User Interface
ui <- dashboardPage(
header = dashboardHeader(title = ""),
sidebar = dashboardSidebar(
sidebarMenu(
menuItem(
text = "Example",
tabName = "tab1"
)
)
),
body = dashboardBody(
tabItems(
tabItem(
tabName = "tab1",
numericInput(inputId = "Number", label = "A numericInput with 90-degree corner", value = NA),
selectInput(inputId = "Select", label = "A selectInput with round corner", choices = 1:3)
)
)
)
)
server <- function(input, output, session){
}
# Run the app
shinyApp(ui, server)