When I rem out tag$style the r script works, what am I doing incorrectly?
library(shiny)
library(shinythemes)
#library(shinydashboard)
library(shinyjs)
# library(data.table)
# m <- fread('https://docs.google.com/spreadsheets/d/e/2PACX-1vTXyt7-fA0IghvwpOZw5agYei58qiUHEsH1BHJ_r5wmhsss8LR0KTGy1DjfZjKpgkfR6EBuE1DBt10z/pub?gid=367115990&single=true&output=csv')
ui <- fluidPage(tagList(
windowTitle =
tags$head(
tag$style(
# HTML(
# "
# .navbar-nav {
# float: none !important;
# }
# .navbar-nav > li:nth-child(6) {
# float: right;
# right: 225px;
# }
# .navbar-nav > li:nth-child(7) {
# float: right;
# right: -60px;
# }
# ")
),
tags$link(rel = "shortcut icon", href = "favicon.png"),
tags$title("Exodus 3:14 ... Seeking Those Seeking HIM"),
tags$script(type="text/javascript", src = "code.js")),
navbarPage(theme = shinytheme("cerulean"),title = "Literate Aspects",
#---------------> First tabPanel
tabPanel("First",value = "page-nav-second",
# useShinyjs(),
# actionButton("remove", "show / hide"),
mainPanel(
tabsetPanel(id = "tabs",
tabPanel(id = "M", "M tab",
textInput("text", "Text")),
tabPanel(id = "N", "N tab"),
tabPanel(id = "W", "W tab")
)
)
), # end first tabPanel
#---------------> Second
tabPanel("Second",value = "page-nav-second"), # end second tabPanel
#---------------> Third tabPanel
tabPanel("Third",value = "page-nav-third"), # end third tabPanel
#---------------> Fourth tabPanel
tabPanel("Fourth",value = "page-nav-fourth"), # end fourth tabPanel
#---------------> Fifth tabPanel
tabPanel("Fifth",value = "page-nav-fifth"), # end fifth tabPanel
#---------------> Sixth tabPanel
tabPanel("Sixth", value="page-nav-sixth"), # end sixth tabPanel
#---------------> Seventh tabPanel
tabPanel("Seventh", value="page-nav-seventh") # end seventh tabPanel
)
)
)