我正在尽力将徽标放置在闪亮的应用程序中,但每次都会显示蓝色问号。我也分别创建了 ui 和 server 文件,但仍然无法正常工作。我还制作了一个'www'文件夹,并将其设置为直接使用其中的图像,但是没有结果。 有人可以引导我吗?
library(dplyr)
library(shiny)
library(shinythemes)
#UI
ui = fluidPage(img(src = "picture.jpg"), fluidRow( rpivotTableOutput("pivot")))
#Server
server = function(input, output, session) {reactive({
mtcars %>% select(cyl, carb, vs, mpg) %>% group_by(carb,vs ) %>% summarise(mpg=sum(mpg))})
output$pivot <- renderRpivotTable( rpivotTable::rpivotTable(mtcars, rows = c( "vs"),cols=c("carb"), vals = "mpg", aggregatorName = "Sum", rendererName = "Table", width="50%", height="550px"))}
shinyApp(ui = ui, server = server)