I have working code that calls a function to invoke Shiny app
Now, I'd like to add stylesheet
I stored stylesheet in www
directory, i.e. same level as R code
What am I doing wrong?
Here is my entire directory (in GitHub)
And below is code snippit. CustomPal is called with CherryPickPalette("GoldenTemple","GoldenTemple2")
Kindly guide
# Internal, hidden function
# Called by CherryPickPalette()
CustomPal <- function(new_pal){
if (interactive()){
cherrypickedpalette <- runApp(list(
ui = fluidPage(
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "bootstrap.css")
),
titlePanel("Cherry Pick Your Own Palette!"),