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")