Я учусь блестящему и шинидашбаорд.Я нахожу это странным.Мой код выглядит так:
library(shiny)
library(shinydashboard)
library(DT)
library(RODBC)
library(stringr)
library(dplyr)
ch<-odbcConnect('B1P HANA',uid='fchen4',pwd='XUEqin0312')
sidebar <- dashboardSidebar(
sidebarMenu(
menuItem("Query1",tabName="Query1",icon=icon("table"),
numericInput('Start1','Start Date',19800312,min=20170101,max=20200101),
numericInput('End1','End Date',19800312,min=20170101,max=20200101),
textInput('Office1','Office ID','0'),
submitButton("Submit")),
menuItem("Query2",tabName="Query2",icon=icon("table"),
numericInput('Start2','Start Date',20180101,min=20170101,max=20200101),
numericInput('End2','End Date',20180101,min=20170101,max=20200101),
textInput('Office2','Office ID','0'),
submitButton("Submit"))
)
)
body <- dashboardBody(
tabItems(
tabItem(tabName="Query1",h2("Dashboard tab content")),
tabItem(tabName = "Query2",h2("Widgets tab content"))
)
)
ui <- dashboardPage(
dashboardHeader(title = 'LOSS PREVENTION'),
sidebar,
body
)
server <- function(input, output) {
}
shinyApp(ui, server)
Панель приборов выглядит следующим образом:
Вы можете увидеть это, когда я поставлюнекоторые поля ввода в боковой панели, текст не может отображаться в основной части.
Однако, когда мой код выглядит так:
library(shiny)
library(shinydashboard)
library(DT)
library(RODBC)
library(stringr)
library(dplyr)
ch<-odbcConnect('B1P HANA',uid='fchen4',pwd='XUEqin0312')
sidebar <- dashboardSidebar(
sidebarMenu(
menuItem("Query1",tabName="Query1",icon=icon("table")),
menuItem("Query2",tabName="Query2",icon=icon("table"))
)
)
body <- dashboardBody(
tabItems(
tabItem(tabName="Query1",h2("Dashboard tab content")),
tabItem(tabName = "Query2",h2("Widgets tab content"))
)
)
ui <- dashboardPage(
dashboardHeader(title = 'LOSS PREVENTION'),
sidebar,
body
)
server <- function(input, output) {
}
shinyApp(ui, server)
Тогда результат будет таким:
Вы можете видеть, что теперь на боковой панели нет входных данных, тогда на главной панели теперь есть текст.
Это так странно.Может ли кто-нибудь помочь мне здесь?