ShinyApp et modification de table

Version imprimable

14/09/2017, 12h58
Jérémy Lesot

ShinyApp et modification de table

Bonjour, nouveau sur ce forum et en apprentissage du langage, j'ai besoin d'aide au sujet de Shiny.

Pour faire simple, je charge un fichier Excel et j'aimerais pouvoir en modifier certaines cellules grâce à une ShinyApp.
Je ne suis pas encore tout à fait à l'aise avec la notion de réactivité (observe, reactive,...).
Typiquement, j'aimerais pouvoir changer la valeur de certaines cellules qui prendraient la valeur d'une checkbox par exemple (ou d'un selectInput), et enregistrer ce fichier modifié.
J'ai manipulé un peu ce fichier avec Rhandsontable pour ceux qui connaissent et le principe me plaît mais j'aimerais pouvoir m'en passer.

D'avance, merci.
22/09/2017, 09h02
Jérémy Lesot

RHandsontable customize hot_context_menu

Bonjour, finalement je vais utiliser une handsontable, mais pas moyen de trouver comment ajouter un filtre au menu déroulant.
Quelqu'un a t'il la solution?

D'avance, merci.
22/09/2017, 14h23
Awaf80

ShinyApp et modification de table

Bonjour,
Je suis nouveau sur ce site mais aussi dans l'utilisation du langage R et du package Shiny (et dans le développement en général) 8O.
Comme toi, "j'aimerais pouvoir changer la valeur de certaines cellules qui prendraient la valeur d'une checkbox par exemple (ou d'un selectInput), et enregistrer ce fichier modifié".

As-tu trouvé la solution ? As-tu un exemple de code ?

Merci d'avance
Awaf80

Bonjour,

apparemment cet fonctionnalité (de filtre) n'est malheureusement pas disponible dans RHandsontable.

Ci-joint un exemple de code pour créer (et enregistrer) une RHandsontable.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
library(shiny)
library(rhandsontable)
 
ui<-fluidPage(
  fluidRow(column(width = 4,
    rHandsontableOutput("table")),
    column(width = 4,
           h3("Enregistrer la table"), 
           div(class='row', 
               div(class="col-sm-6", 
                   tags$head(tags$script(src = "message-handler.js")),
                   actionButton("save", "Enregistrer"))
           ))
  )
)
server<-function(input,output){
 
  iris<-iris
  iris$logical<-logical(length = length(iris))
  output$table<-renderRHandsontable({
    rhandsontable(iris)
  })
 
  data = reactive({
    if (!is.null(input$table)) {
      DF = hot_to_r(input$table)
    } else {
      DF =data
    }
    DF
  })
 
  observeEvent(input$save, {
    write.table(data(), file = "iris.csv", append = FALSE,quote = FALSE, sep = ";",
                eol = "\n", na = "NA", dec = ".", row.names = FALSE,
                col.names = TRUE, qmethod = c("escape", "double"),
                fileEncoding = "")
  })
 
}
 
shinyApp(ui=ui,server=server)

Cordialement.

Jérémy Lesot.