R/Drafts/test-modal_dragg-resizable.R

In samWieczorek/Prostar2: PKG_TITLE

# Fenetre modal d?pla?able et redimentionnable
# Taille modal modifiable
# Ouvre un modal appel? depuis une image


#setwd("~/TELETRAVAIL/github_2.0/Prostar2/R/Drafts/")

library(highcharter)
library(shinyjqui)
library(shiny)
library(shinyBS)
library(DAPAR2)

source(file.path("..", "mod_plots_corr_matrix.R"), local = TRUE)$value



ui <- fluidPage(
  uiOutput('plotModule'),
  uiOutput('createVignettes_large')
)

server <- function(input, output, session) {
  
  jqui_resizable("#modal .modal-content", options = list(minHeight = 200,
                                                         minWidth=200))
  jqui_draggable("#modal .modal-content", options = list(revert=TRUE) )
  
  
  .width <- 50
  .height <- 50
  llPlots <- "corrMatrix"
  
  
  
  output$plotModule <- renderUI({
    
    panelheight = 60*length(llPlots)
    absolutePanel(
      id  = "AbsolutePanelPlots",
      #style= "text-align: center; color: grey; border-width:0px; z-index: 10;",
      #top = 150, right = 50,
      width = "70px",
      height = paste0(as.character(panelheight), "px"),
      #draggable = TRUE,fixed = TRUE,
      cursor = "default",
      actionButton('plotBtn', 'Plots', "data-toggle"='collapse', "data-target"="#plotDiv", 
                   style='color: white;background-color: lightgrey',
                   class = actionBtnClass),
      tags$div(
        id = 'plotDiv',
        class="collapse",
        style='background-color: white',
        uiOutput('createVignettes_small')
        
      )
    )
    
  })
  
  
  
  output$createVignettes_small <- renderUI({
    
    tagList(
      tags$div( style="display:inline-block;",
                imageOutput("plotcorrMatrixsmall"),
                height='60',
                width='50')
    )
    
    
  })
  
  output$createVignettes_large <- renderUI({
    
    tagList (
      
      tags$head(tags$style(".modal-dialog { width:75% }")),
      
      
      shinyBS::bsModal("modal",
                       "Toto",
                       trigger = "createVignettes_small",
                       size = "large",
                       "foo"
                       #uiOutput("plotcorrMatrixlarge")
      )
    )
    
  })
  
  
  
  
  ################### Plot for correlation matrix
  output$plotcorrMatrixsmall <- renderImage({
    filename <- normalizePath(file.path('./images','desc_corrmatrix.png'))
    list(src = filename,
         width = .width,
         height = .height)
  }, deleteFile = FALSE)
  
  
  utils::data(Exp1_R25_prot, package='DAPARdata2')
  callModule(mod_plots_corr_matrix_server, "corrMatrixPlot_AbsPanel", obj = reactive({Exp1_R25_prot}))
  
  output$plotcorrMatrixlarge <- renderUI({
    mod_plots_corr_matrix_ui("corrMatrixPlot_AbsPanel")
    
  })
  
  
  
}


shinyApp(ui, server)