r - 光沢のあるチラシの上書きファイル入力

Question

私は光沢のあるアプリでリーフレットマップを持っています。ユーザーからファイルを受け取り、そのデータをプロットします。しかし、今はちょっと醜いです。私は本当にfileInputをリーフレット・マップにオーバーレイさせたいと思っています。言い換えれば、ページを完全にリーフレットマップにしたいが、その上にファイル入力を浮かべて、ズームボタンと同様にしたい。

私はfileInputアップロードボタンをthis shiny appのようなものに見せたいと思います。左上にはロゴが重ねられ、左にはチェックボックス、右上にはタイトルが重なって表示されます。私はUIでabsolutePanel(..., fileInput())を使用してこれをやった

library(shiny) 
library(shinydashboard) 
library(leaflet) 


shinyApp(
    ui <- bootstrapPage(
    fileInput("file_in", label = "label"), 
    tags$style(type="text/css", "html, body {width:100%;height:100%}"), 
    leafletOutput("myMap", width="100%", height="100%") 
), 

    server = function(input, output) { 

    my_table <- reactive({ 

     inFile <- input$file_in 
     if (is.null(inFile)) 
     return(NULL) 

     myData = read.csv(inFile$datapath) 

     return(myData) 
    }) 

    output$myMap = renderLeaflet({ 
     if(is.null(my_table())) 
     { 
     return(leaflet()) %>% addTiles() 
     } 
     else 
     { 
     leaflet(data = my_table()) %>% addTiles() 
     } 
    }) 
    } 
) 

Answer 1

：

ここに私のアプリの基本的な（オーバー簡体字）のアウトラインです。