r - 在传单上叠加fileInput闪亮

Posted 2021-04-13

我在一个闪亮的应用程序中有一个传单地图。它从用户获取文件并绘制该数据。不过，现在它有点难看。我真的希望将fileInput覆盖在传单地图上。换句话说，我希望页面完全是传单地图，但文件输入浮动在它上面，类似于缩放按钮。

我希望fileInput上传按钮看起来有点像this shiny app的元素。它在左上角覆盖了徽标，左侧覆盖了复选框，右上角覆盖了标题。

这是我的应用程序的基本（过度简化）大纲：

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()
      }
    })
  }
)

答案

我是通过在ui中使用absolutePanel(..., fileInput())来做到这一点的。