我怎樣才能得到一個固定plotOutput在閃亮

我正在開發一個Shiny應用程序與情節（plot1在代碼中）反應的數據表（rhandsontable），它顯示在桌上選擇的項目。表格非常大，所以您必須向下滾動以查看所有內容。但是我希望情節總是可見的，所以當你向下滾動表格時，要在版面中修正。還有嗎？我做了很多研究，但任何可以幫助我的答案。我怎樣才能得到一個固定plotOutput在閃亮

我的UI代碼是：

ui <- dashboardPage(
    dashboardHeader(title = "IG Suppliers: Tim"), 
    dashboardSidebar(
      sidebarMenu(
        menuItem("Data Cleansing", tabName = "DataCleansing", icon = icon("dashboard")), 
        selectInput("supplier","Supplier:", choices = unique(dt_revision_tool$Supplier)), 
        #selectInput("supplier","Supplier:", choices = 'Phillips'), 

        selectInput("segment","Segment:", choices = unique(dt_revision_tool$Segment_Name), multiple = TRUE, selected = unique(dt_revision_tool$Segment_Name)[1]), 
        #selectInput("segment","Segment:", choices = sgm), 

        selectInput("alert","Alert", choices = unique(dt_revision_tool$Alert),selected = "Yes"), 
        #selectInput("alert","Alert", choices = c('Yes','No'),selected = "Yes"), 

        selectInput("dfu","DFU", choices = c("NULL",unique(dt_revision_tool$DFU)),selected = "NULL"), 

        tags$hr() 
        #       h5("Save table",align="center"), 
        #       
        #       div(class="col-sm-6",style="display:inline-block", 
        #        actionButton("save", "Save"),style="float:center") 

      ) 
    ), 
    dashboardBody(
      shinyjs::useShinyjs(), 
      #First Tab 
      tabItems(
        tabItem(tabName= "DataCleansing", 
          fluidPage(theme="bootstrap.css", 

             fluidRow(
               plotOutput('plot1') 

            ), 
             fluidRow(
               verbatimTextOutput('selected'), 
               rHandsontableOutput("hot") 
            ) 



          ) 
        ) 

        #  #Second Tab 
        #  tabItem(tabName = "Forecast", 
        #    h2('TBA') 
        #  ) 
      ) 
    )

）

服務器的代碼是：

server <- shinyServer(function(input, output) { 
    if (file.exists("DF.RData")==TRUE){ 
      load("DF.RData") 
    }else{ 
      load("DF1.RData") 
    } 
    rv <- reactiveValues(x=dt_revision_tool) 

    dt <- reactiveValues(y = DF) 

    observe({ 
      output$hot <- renderRHandsontable({ 

        view = data.table(update_view(rv$x,input$alert,input$segment,input$supplier,dt$y,input$dfu)) 

        if (nrow(view)>0){ 

          rhandsontable(view, 
              readOnly = FALSE, selectCallback = TRUE, contextMenu = FALSE) %>% 
            hot_col(c(1:12,14),type="autocomplete", readOnly = TRUE) 
        } 
      }) 
    }) 



    observe({ 

      if (!is.null(input$hot)) { 
        aux = hot_to_r(input$hot) 
        aux = subset(aux, !is.na(Cleansing_Suggestion) | Accept_Cleansing,select=c('DFU','Week','Cleansing_Suggestion', 
                           'Accept_Cleansing')) 

        names(aux) = c('DFU','Week','Cleansing_Suggestion_new','Accept_Cleansing_new') 
        dt$y = update_validations(dt$y,aux) 
        DF = dt$y 
        save(DF, file = 'DF.RData') 

      } 
    }) 




    output$plot1 <- renderPlot({ 

      view = data.table(update_view(rv$x,input$alert,input$segment,input$supplier,dt$y,input$dfu)) 

      if (nrow(view)>0){ 
        if (!is.null((data.table(update_view(rv$x,input$alert,input$segment,input$supplier,dt$y,input$dfu)))[input$hot_select$select$r]$DFU)) { 
          s = make_plot2(rv$x,(data.table(update_view(rv$x,input$alert,input$segment,input$supplier,dt$y,input$dfu)))[input$hot_select$select$r]$DFU,(data.table(update_view(rv$x,input$alert,input$segment,input$supplier,dt$y,input$dfu)))[input$hot_select$select$r]$Article_Name) 
          print(s) 

        } 
      } 
    })

}）

任何幫助或想法會受到歡迎！

謝謝！

阿依

來源

2016-12-16 Aida

你能提供服務器代碼和可再現的數據來渲染應用程序嗎？ –

@raistlin我可以提供服務器代碼，但不提供數據，因爲它是保密的。但我認爲這可能更簡單，只是通過UI進行學習。我現在將用服務器代碼修改我的問題。謝謝 – Aida

下面是使用CSS position: fixed做到這一點的例子。您可以根據您的要求調整位置top和margin-top。

library(shiny) 

ui <- shinyUI(fluidPage(

    titlePanel("Example"), 

    sidebarLayout(
    sidebarPanel(
     tags$div(p("Example of fixed plot position")) 
    ), 

    mainPanel(
     plotOutput("plot"), 
     tableOutput("table"), 
     tags$head(tags$style(HTML(" 
           #plot { 
            position: fixed; 
            top: 0px; 
           } 
           #table { 
            margin-top: 400px; 
           } 
           "))) 
    ) 
) 
)) 

server <- shinyServer(function(input, output, session) { 

    output$plot <- renderPlot({ 
    plot(iris$Sepal.Length, iris$Sepal.Width) 
    }) 

    output$table <- renderTable({ 
    iris 
    }) 

}) 

shinyApp(ui = ui, server = server)

來源

2016-12-16 15:47:48

我怎樣才能得到一個固定plotOutput在閃亮

回答

相關問題