513 lines
13 KiB
R
513 lines
13 KiB
R
tags$hr(),
|
|
tabsetPanel(
|
|
id ="tabA",
|
|
type = "tabs",
|
|
tabPanel("Front",icon = icon("accusoft")),
|
|
tabPanel("Data", icon = icon("table")
|
|
)
|
|
)
|
|
),
|
|
rightsidebar = rightSidebar()
|
|
)
|
|
server <- function(input, output) {
|
|
observe({
|
|
if (input$tabA == "Front") {
|
|
hide(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
addClass(selector = "body", class = "sidebar-collapse")
|
|
removeClass(selector = "body", class = "control-sidebar-open")
|
|
tags$head(tags$style(HTML('
|
|
/* navbar (rest of the header) */
|
|
.logo {
|
|
background-image:url("https://dotunroy.files.wordpress.com/2015/05/happy-people.jpg");
|
|
}'
|
|
)))
|
|
} else {
|
|
show(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
removeClass(selector = "body", class = "sidebar-collapse")
|
|
addClass(selector = "body", class = "control-sidebar-open")
|
|
}
|
|
})
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
library(shiny)
|
|
library(shinydashboard)
|
|
library(shinydashboardPlus)
|
|
library(DT)
|
|
library(shinyWidgets)
|
|
library(shinyjs)
|
|
dbHeader <- dashboardHeaderPlus(
|
|
enable_rightsidebar = TRUE,
|
|
rightSidebarIcon = "gears",
|
|
fixed = T,
|
|
title = tags$a(href='http://mycompanyishere.com',
|
|
tags$img(src='logo.png'))
|
|
)
|
|
ui <- dashboardPagePlus(
|
|
dbHeader,
|
|
dashboardSidebar(),
|
|
dashboardBody(
|
|
useShinyjs(),
|
|
tags$hr(),
|
|
tabsetPanel(
|
|
id ="tabA",
|
|
type = "tabs",
|
|
tabPanel("Front",icon = icon("accusoft")),
|
|
tabPanel("Data", icon = icon("table")
|
|
)
|
|
)
|
|
),
|
|
rightsidebar = rightSidebar()
|
|
)
|
|
server <- function(input, output) {
|
|
observe({
|
|
if (input$tabA == "Front") {
|
|
hide(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
addClass(selector = "body", class = "sidebar-collapse")
|
|
removeClass(selector = "body", class = "control-sidebar-open")
|
|
addClass(selector = "#logo",class = ' background-image:url("https://dotunroy.files.wordpress.com/2015/05/happy-people.jpg");')
|
|
} else {
|
|
show(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
removeClass(selector = "body", class = "sidebar-collapse")
|
|
addClass(selector = "body", class = "control-sidebar-open")
|
|
}
|
|
})
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
library(shiny)
|
|
library(shinydashboard)
|
|
library(shinydashboardPlus)
|
|
library(DT)
|
|
library(shinyWidgets)
|
|
library(shinyjs)
|
|
dbHeader <- dashboardHeaderPlus(
|
|
enable_rightsidebar = TRUE,
|
|
rightSidebarIcon = "gears",
|
|
fixed = T,
|
|
title = tags$a(href='http://mycompanyishere.com',
|
|
tags$img(src='logo.png'))
|
|
)
|
|
ui <- dashboardPagePlus(
|
|
dbHeader,
|
|
dashboardSidebar(),
|
|
dashboardBody(
|
|
useShinyjs(),
|
|
tags$hr(),
|
|
tabsetPanel(
|
|
id ="tabA",
|
|
type = "tabs",
|
|
tabPanel("Front",icon = icon("accusoft")),
|
|
tabPanel("Data", icon = icon("table")
|
|
)
|
|
)
|
|
),
|
|
rightsidebar = rightSidebar()
|
|
)
|
|
server <- function(input, output) {
|
|
observe({
|
|
if (input$tabA == "Front") {
|
|
hide(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
addClass(selector = "body", class = "sidebar-collapse")
|
|
removeClass(selector = "body", class = "control-sidebar-open")
|
|
addClass(selector = "logo",class = 'background-image:url("https://dotunroy.files.wordpress.com/2015/05/happy-people.jpg");')
|
|
} else {
|
|
show(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
removeClass(selector = "body", class = "sidebar-collapse")
|
|
addClass(selector = "body", class = "control-sidebar-open")
|
|
}
|
|
})
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
library(shiny)
|
|
library(shinydashboard)
|
|
library(shinydashboardPlus)
|
|
library(DT)
|
|
library(shinyWidgets)
|
|
library(shinyjs)
|
|
dbHeader <- dashboardHeaderPlus(
|
|
enable_rightsidebar = TRUE,
|
|
rightSidebarIcon = "gears",
|
|
fixed = T,
|
|
title = tags$a(href='http://mycompanyishere.com',
|
|
tags$img(src='logo.png'))
|
|
)
|
|
ui <- dashboardPagePlus(
|
|
dbHeader,
|
|
dashboardSidebar(),
|
|
dashboardBody(
|
|
useShinyjs(),
|
|
tags$hr(),
|
|
tabsetPanel(
|
|
id ="tabA",
|
|
type = "tabs",
|
|
tabPanel("Front",icon = icon("accusoft")),
|
|
tabPanel("Data", icon = icon("table")
|
|
)
|
|
)
|
|
),
|
|
rightsidebar = rightSidebar()
|
|
)
|
|
server <- function(input, output) {
|
|
observe({
|
|
if (input$tabA == "Front") {
|
|
hide(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
addClass(selector = "body", class = "sidebar-collapse")
|
|
removeClass(selector = "body", class = "control-sidebar-open")
|
|
toggleClass(selector = "logo",class = 'background-image:url("https://dotunroy.files.wordpress.com/2015/05/happy-people.jpg");')
|
|
} else {
|
|
show(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
removeClass(selector = "body", class = "sidebar-collapse")
|
|
addClass(selector = "body", class = "control-sidebar-open")
|
|
}
|
|
})
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
library(shiny)
|
|
library(shinydashboard)
|
|
library(shinydashboardPlus)
|
|
library(DT)
|
|
library(shinyWidgets)
|
|
library(shinyjs)
|
|
dbHeader <- dashboardHeaderPlus(
|
|
enable_rightsidebar = TRUE,
|
|
rightSidebarIcon = "gears",
|
|
fixed = T,
|
|
title = tags$a(href='http://mycompanyishere.com',
|
|
tags$img(src='logo.png'))
|
|
)
|
|
ui <- dashboardPagePlus(
|
|
dbHeader,
|
|
dashboardSidebar(),
|
|
dashboardBody(
|
|
useShinyjs(),
|
|
tags$hr(),
|
|
tabsetPanel(
|
|
id ="tabA",
|
|
type = "tabs",
|
|
tabPanel("Front",icon = icon("accusoft")),
|
|
tabPanel("Data", icon = icon("table")
|
|
)
|
|
)
|
|
),
|
|
rightsidebar = rightSidebar()
|
|
)
|
|
server <- function(input, output) {
|
|
observe({
|
|
if (input$tabA == "Front") {
|
|
hide(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
addClass(selector = "body", class = "sidebar-collapse")
|
|
removeClass(selector = "body", class = "control-sidebar-open")
|
|
toggleClass(selector = "logo",class = 'background-image:url("https://dotunroy.files.wordpress.com/2015/05/happy-people.jpg");')
|
|
shinyjs::runjs(' $(document).ready(function() {
|
|
$("header").find("nav").append(\' <div class ="row"><span class="text-block-3"> Kakovost UL </span> </div>\');
|
|
})
|
|
')
|
|
} else {
|
|
show(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
removeClass(selector = "body", class = "sidebar-collapse")
|
|
addClass(selector = "body", class = "control-sidebar-open")
|
|
}
|
|
})
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
library(shiny)
|
|
library(shinydashboard)
|
|
library(shinydashboardPlus)
|
|
library(DT)
|
|
library(shinyWidgets)
|
|
library(shinyjs)
|
|
dbHeader <- dashboardHeaderPlus(
|
|
enable_rightsidebar = TRUE,
|
|
rightSidebarIcon = "gears",
|
|
fixed = T,
|
|
title = tags$a(href='http://mycompanyishere.com',
|
|
tags$img(src='logo.png'))
|
|
)
|
|
ui <- dashboardPagePlus(
|
|
dbHeader,
|
|
dashboardSidebar(),
|
|
dashboardBody(
|
|
useShinyjs(),
|
|
tags$hr(),
|
|
tabsetPanel(
|
|
id ="tabA",
|
|
type = "tabs",
|
|
tabPanel("Front",icon = icon("accusoft")),
|
|
tabPanel("Data", icon = icon("table")
|
|
)
|
|
)
|
|
),
|
|
rightsidebar = rightSidebar()
|
|
)
|
|
server <- function(input, output) {
|
|
observe({
|
|
if (input$tabA == "Front") {
|
|
hide(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
addClass(selector = "body", class = "sidebar-collapse")
|
|
removeClass(selector = "body", class = "control-sidebar-open")
|
|
toggleClass(selector = "logo",class = 'background-image:url("https://dotunroy.files.wordpress.com/2015/05/happy-people.jpg");')
|
|
shinyjs::runjs(' $(document).ready(function() {
|
|
$("header").find("logo").append(\' <div class ="row"><span class="text-block-3"> Kakovost UL </span> </div>\');
|
|
})
|
|
')
|
|
} else {
|
|
show(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
removeClass(selector = "body", class = "sidebar-collapse")
|
|
addClass(selector = "body", class = "control-sidebar-open")
|
|
}
|
|
})
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
library(shiny)
|
|
library(shinydashboard)
|
|
library(shinydashboardPlus)
|
|
library(DT)
|
|
library(shinyWidgets)
|
|
library(shinyjs)
|
|
dbHeader <- dashboardHeaderPlus(
|
|
enable_rightsidebar = TRUE,
|
|
rightSidebarIcon = "gears",
|
|
fixed = T,
|
|
title = tags$a(href='http://mycompanyishere.com',
|
|
tags$img(src='logo.png'))
|
|
)
|
|
ui <- dashboardPagePlus(
|
|
dbHeader,
|
|
dashboardSidebar(),
|
|
dashboardBody(
|
|
useShinyjs(),
|
|
tags$hr(),
|
|
tabsetPanel(
|
|
id ="tabA",
|
|
type = "tabs",
|
|
tabPanel("Front",icon = icon("accusoft")),
|
|
tabPanel("Data", icon = icon("table")
|
|
)
|
|
)
|
|
),
|
|
rightsidebar = rightSidebar()
|
|
)
|
|
server <- function(input, output) {
|
|
observe({
|
|
if (input$tabA == "Front") {
|
|
hide(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
addClass(selector = "body", class = "sidebar-collapse")
|
|
removeClass(selector = "body", class = "control-sidebar-open")
|
|
toggleClass(selector = "logo",class = 'background-image:url("https://dotunroy.files.wordpress.com/2015/05/happy-people.jpg");')
|
|
shinyjs::runjs(' $(document).ready(function() {
|
|
$("main-header").find("logo").append(\' <div class ="row"><span class="text-block-3"> Kakovost UL </span> </div>\');
|
|
})
|
|
')
|
|
} else {
|
|
show(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
removeClass(selector = "body", class = "sidebar-collapse")
|
|
addClass(selector = "body", class = "control-sidebar-open")
|
|
}
|
|
})
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
library(shiny)
|
|
library(shinydashboard)
|
|
library(shinydashboardPlus)
|
|
library(DT)
|
|
library(shinyWidgets)
|
|
library(shinyjs)
|
|
dbHeader <- dashboardHeaderPlus(
|
|
enable_rightsidebar = TRUE,
|
|
rightSidebarIcon = "gears",
|
|
fixed = T,
|
|
title = tags$a(href='http://mycompanyishere.com',
|
|
tags$img(src='logo.png'))
|
|
)
|
|
ui <- dashboardPagePlus(
|
|
dbHeader,
|
|
dashboardSidebar(),
|
|
dashboardBody(
|
|
useShinyjs(),
|
|
tags$hr(),
|
|
tabsetPanel(
|
|
id ="tabA",
|
|
type = "tabs",
|
|
tabPanel("Front",icon = icon("accusoft")),
|
|
tabPanel("Data", icon = icon("table")
|
|
)
|
|
)
|
|
),
|
|
rightsidebar = rightSidebar()
|
|
)
|
|
server <- function(input, output) {
|
|
observe({
|
|
if (input$tabA == "Front") {
|
|
hide(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
addClass(selector = "body", class = "sidebar-collapse")
|
|
removeClass(selector = "body", class = "control-sidebar-open")
|
|
toggleClass(selector = "logo",class = 'background-image:url("https://dotunroy.files.wordpress.com/2015/05/happy-people.jpg");')
|
|
} else {
|
|
show(selector = "body > div.wrapper > header > nav > div:nth-child(4) > ul")
|
|
removeClass(selector = "body", class = "sidebar-collapse")
|
|
addClass(selector = "body", class = "control-sidebar-open")
|
|
}
|
|
})
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
#Shiny
|
|
ui <- dashboardPage(
|
|
dashboardHeader(title = "Corona Vírus"),
|
|
dashboardSidebar(
|
|
sidebarMenu(
|
|
menuItem("Dashboard Global", tabName = "global", icon = icon("globe")),
|
|
)
|
|
),
|
|
dashboardBody(
|
|
[...]
|
|
#tabItem("map",
|
|
# tabBox(
|
|
# title = "Mapas",
|
|
# id = "mapGraf",
|
|
# width = 12,
|
|
#height = 650,
|
|
# tabPanel("Mundo",
|
|
# plotlyOutput("Evolucao")
|
|
# ),
|
|
# tabPanel("Brasil (Por Estado)"
|
|
# #plotlyOutput("CasosGlobais")),
|
|
# ),
|
|
# tabPanel("Brasil (Por Cidade)",
|
|
# "Em Breve")
|
|
#)
|
|
)
|
|
)
|
|
)
|
|
server <- function(input, output) {
|
|
{outputs}
|
|
}
|
|
shinyApp(ui, server)
|
|
library(shiny)
|
|
#Shiny
|
|
ui <- dashboardPage(
|
|
dashboardHeader(title = "Corona Vírus"),
|
|
dashboardSidebar(
|
|
sidebarMenu(
|
|
menuItem("Dashboard Global", tabName = "global", icon = icon("globe")),
|
|
)
|
|
),
|
|
dashboardBody(
|
|
[...]
|
|
#tabItem("map",
|
|
# tabBox(
|
|
# title = "Mapas",
|
|
# id = "mapGraf",
|
|
# width = 12,
|
|
#height = 650,
|
|
# tabPanel("Mundo",
|
|
# plotlyOutput("Evolucao")
|
|
# ),
|
|
# tabPanel("Brasil (Por Estado)"
|
|
# #plotlyOutput("CasosGlobais")),
|
|
# ),
|
|
# tabPanel("Brasil (Por Cidade)",
|
|
# "Em Breve")
|
|
#)
|
|
)
|
|
)
|
|
)
|
|
server <- function(input, output) {
|
|
{outputs}
|
|
}
|
|
shinyApp(ui, server)
|
|
library(shiny)
|
|
#Shiny
|
|
ui <- dashboardPage(
|
|
dashboardHeader(title = "Corona Vírus"),
|
|
dashboardSidebar(
|
|
sidebarMenu(
|
|
menuItem("Dashboard Global", tabName = "global", icon = icon("globe")),
|
|
)
|
|
),
|
|
dashboardBody(
|
|
#tabItem("map",
|
|
# tabBox(
|
|
# title = "Mapas",
|
|
# id = "mapGraf",
|
|
# width = 12,
|
|
#height = 650,
|
|
# tabPanel("Mundo",
|
|
# plotlyOutput("Evolucao")
|
|
# ),
|
|
# tabPanel("Brasil (Por Estado)"
|
|
# #plotlyOutput("CasosGlobais")),
|
|
# ),
|
|
# tabPanel("Brasil (Por Cidade)",
|
|
# "Em Breve")
|
|
#)
|
|
)
|
|
)
|
|
)
|
|
server <- function(input, output) {
|
|
{outputs}
|
|
}
|
|
shinyApp(ui, server)
|
|
library(shiny)
|
|
#Shiny
|
|
ui <- dashboardPage(
|
|
dashboardHeader(title = "Corona Vírus"),
|
|
dashboardSidebar(
|
|
sidebarMenu(
|
|
menuItem("Dashboard Global", tabName = "global", icon = icon("globe")),
|
|
)
|
|
),
|
|
dashboardBody(
|
|
#tabItem("map",
|
|
# tabBox(
|
|
# title = "Mapas",
|
|
# id = "mapGraf",
|
|
# width = 12,
|
|
#height = 650,
|
|
# tabPanel("Mundo",
|
|
# plotlyOutput("Evolucao")
|
|
# ),
|
|
# tabPanel("Brasil (Por Estado)"
|
|
# #plotlyOutput("CasosGlobais")),
|
|
# ),
|
|
# tabPanel("Brasil (Por Cidade)",
|
|
# "Em Breve")
|
|
#)
|
|
)
|
|
)
|
|
)
|
|
server <- function(input, output) {
|
|
{outputs}
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
library(shiny)
|
|
#Shiny
|
|
ui <- dashboardPage(
|
|
dashboardHeader(title = "Corona Vírus"),
|
|
dashboardSidebar(
|
|
sidebarMenu(
|
|
menuItem("Dashboard Global", tabName = "global", icon = icon("globe")),
|
|
)
|
|
),
|
|
dashboardBody(
|
|
#tabItem("map",
|
|
# tabBox(
|
|
# title = "Mapas",
|
|
# id = "mapGraf",
|
|
# width = 12,
|
|
#height = 650,
|
|
# tabPanel("Mundo",
|
|
# plotlyOutput("Evolucao")
|
|
# ),
|
|
# tabPanel("Brasil (Por Estado)"
|
|
# #plotlyOutput("CasosGlobais")),
|
|
# ),
|
|
# tabPanel("Brasil (Por Cidade)",
|
|
# "Em Breve")
|
|
#)
|
|
)
|
|
)
|
|
server <- function(input, output) {
|
|
{outputs}
|
|
}
|
|
shinyApp(ui = ui, server = server)
|
|
setwd("D:/Služba (FDV)/Delo Vasja Vehovar/SVN repozirotij test.1ka.si/admin/survey/modules/mod_MJU/R")
|