R Shiny - Pfade von Logo und CSS-Datei, wenn ich ui und Server-Dateien teilen

Question

Ich habe ein Shiny-Dashboard, das ich in drei Dateien getrennt habe: Haupt (Daten und Aufruf an ein generisches Dashboard), Benutzeroberfläche (Datei) und Server (server Datei).

Ich habe ein Logo in der Dashboard-Kopfzeile und eine CSS-Datei, daher habe ich ein www Verzeichnis im Verzeichnis meines Codes.

Wenn ich die App mit der ui Datei starte funktioniert es aber nicht, wenn ich die App mit der Hauptdatei starte (Präzision: Die App funktioniert, wenn ich die CSS-Codezeile kommentiere, aber das Logo wird immer noch nicht angezeigt).

Ein vereinfachtes Beispiel meines Codes ist unten.

Haupt

# Library and function 
library(ggplot2) 
library(shiny) 
library(shinydashboard) 

CountPlotFunction <- function(MyData) 
{ 
    MyPlot <- ggplot(data = MyData, aes(x = MyData)) + 
    geom_bar(stat = "count", aes(fill = MyData)) + 
    geom_text(stat = "count", aes(label = ..count..)) + 
    scale_x_discrete(drop = FALSE) + 
    scale_fill_discrete(drop = FALSE) 
    return(MyPlot) 
} 


# The data 
var1 <- c("Russia","Canada","Australia","Australia","Russia","Australia","Canada","Germany","Australia","Canada","Canada") 
var2 <- c("UnitedStates","France","SouthAfrica","SouthAfrica","UnitedStates","SouthAfrica","France","Norge","SouthAfrica","France","France") 
var3 <- c("Brazil","Colombia","China","China","Brazil","China","Colombia","Belgium","China","Colombia","Colombia") 
df <- data.frame(var1, var2, var3) 


# Call the app 
source(paste0(TheFileDirectory,"server.R")) 
source(paste0(TheFileDirectory,"ui.R")) 
shinyApp(ui = Interface, server = Serveur) 

Benutzeroberfläche

# The Shiny app 
Interface <- dashboardPage(skin = "black", 

    dashboardHeader(title = "Dashboard", 
    dropdownMenuOutput("messageMenu"), 
     tags$li(class = "dropdown", 
     tags$a(href = "http://google.com", tags$img(src = "Logo.png", height = "20px"))) 
), 

    dashboardSidebar(disable = TRUE), 

    dashboardBody(
    tags$head(includeCSS("www/style.css")), 

     fluidPage(
     selectInput(inputId = "Question", 
        label = "Choose the question", 
        choices = colnames(df), 
        selected = colnames(df)[1]), 
     mainPanel(plotOutput(outputId = "ThePlot")) 
    ) 
) 
) 

Server

Serveur <- function(input, output) 
{ 
    output$ThePlot <- renderPlot({CountPlotFunction(MyData = df[input$Question])}) 
} 

Answer 1

der CSS zu beheben sind, rufen Sie setwd(TheFileDirectory) vor source oder verweisen auf den vollständigen Pfad zur CSS-Aufruf. Beachten Sie jedoch, dass dies keine gute Übung ist und Sie viele Umbenennungen vornehmen müssen, wenn der Pfad zur App geändert wird. (Stattdessen sollten Sie die App aus dem Ordner und die Daten verweisen laufen gefügten wayy alle Ihre Umbenennung an der gleichen Stelle sein würde.)

das Logo zu beheben, Sie ein Präfix zu seiner Quelle hinzufügen:

src = "/foo/logo.png" 

Dann diesen Anruf, bevor Sie die App mit shinyApp Start:

addResourcePath("foo", "www") 

Es glänzenden Start machen den Ordner www auf die Referenz dient /foo