R 如何使用“下载”按钮并以各种格式（csv、文本、pdf、spss…）保存结果？
我目前正在开发闪亮的应用程序。 我希望该应用程序允许下载（保存）各种格式的结果： csv、文本、pdf、xlsx、SPSS、SAS和Stata 这是我的用户界面：R 如何使用“下载”按钮并以各种格式（csv、文本、pdf、spss…）保存结果？,r,shiny,s,R,Shiny,S,我目前正在开发闪亮的应用程序。 我希望该应用程序允许下载（保存）各种格式的结果： csv、文本、pdf、xlsx、SPSS、SAS和Stata 这是我的用户界面： # Define UI ui <- fluidPage( #Navbar structure for UI navbarPage("Selection de modeles", theme = shinytheme("slate"), tabPanel("Programme", fluid =
# Define UI
ui <- fluidPage(
#Navbar structure for UI
navbarPage("Selection de modeles", theme = shinytheme("slate"),
tabPanel("Programme", fluid = TRUE, icon = icon("spinner"),
tags$style(button_color_css),
# Sidebar layout with a input and output definitions
sidebarLayout(
sidebarPanel(
h3("Chargement des donnees"),
fileInput("file", "Charger un jeu de donnees :"),
checkboxGroupInput(inputId = "DataExemple",
label = "Utiliser les donnees de base :",
choices = c("Donnees de base" = "D1")),
hr(),
actionButton(inputId = "DeleteData", label = "Supprimer les donnees", icon = icon("trash-alt")),
hr(),
h3("Implementation de la procedure de selection"),
#shinythemes::themeSelector(),
# Select modele
checkboxGroupInput(inputId = "ModeleFinder",
label = "Choix des modele(s):",
choices = c("Modele 1" = c(1), "Modele 2 " = c(2),"Modele 3 " = c(3),"Modele 4 " = c(4)),
selected = "M1"),
hr(),
# Select ratio 1
sliderInput(inputId = "SliderRatio1",
label = "Choix ratio 1",
min = 0, max = 100, 30
),
# Select ratio 2
sliderInput(inputId = "SliderRatio2",
label = "Choix ratio 2",
min = 0, max = 100, 30
),
# Select ratio 3
sliderInput(inputId = "SliderRatio3",
label = "Choix ratio 3",
min = 0, max = 100, 30
),
# Select ratio 4
sliderInput(inputId = "SliderRatio4",
label = "Choix ratio 4",
min = 0, max = 100, 30
),
# Select ratio 5
sliderInput(inputId = "SliderRatio5",
label = "Choix ratio 5",
min = 0, max = 100, 30
),
hr(),
hr(),
# Select alpha 1
sliderInput(inputId = "SliderAlpha1",
label = "Importance du ratio",
min = 0, max = 1, 0.3
),
# Select alpha 2
sliderInput(inputId = "SliderAlpha2",
label = "Importance de l'erreur d'apprentissage",
min = 0, max = 1, 0.3
),
# Select alpha 3
sliderInput(inputId = "SliderAlpha3",
label = "Importance de l'erreur test",
min = 0, max = 1, 0.3
),
# Select alpha 4
sliderInput(inputId = "SliderAlpha4",
label = "Importance du temps de calcul",
min = 0, max = 1, 0.3
),
# Select alpha 5
sliderInput(inputId = "SliderAlpha5",
label = "Importance de la complexite du modele",
min = 0, max = 1, 0.3
),
hr(),
actionButton(inputId = "calculate", label = "Calculer", icon = icon("check")),
hr(),
h3("Sauvegarder les resultats"),
selectInput(inputId = "Export1",
label = "Choisir le format",
choices = c("csv", "texte","PDF","xlsx","SPSS","SAS","Stata"),
selected = "csv"),
downloadButton("downloadData1", "Download")
),
mainPanel(
### add your style inline css values here
### added a line of code here too `.dataTables_wrapper .dataTables_paginate .paginate_button.current:hover `###
tags$style(HTML("
.dataTables_wrapper .dataTables_length, .dataTables_wrapper .dataTables_filter, .dataTables_wrapper .dataTables_info, .dataTables_wrapper .dataTables_processing, .dataTables_wrapper .dataTables_paginate, .dataTables_wrapper .dataTables_paginate .paginate_button.current:hover {
color: #ffffff;
}
### ADD THIS HERE ###
.dataTables_wrapper .dataTables_paginate .paginate_button{box-sizing:border-box;display:inline-block;min-width:1.5em;padding:0.5em 1em;margin-left:2px;text-align:center;text-decoration:none !important;cursor:pointer;*cursor:hand;color:#ffffff !important;border:1px solid transparent;border-radius:2px}
###To change text and background color of the `Select` box ###
.dataTables_length select {
color: #0E334A;
background-color: #0E334A
}
###To change text and background color of the `Search` box ###
.dataTables_filter input {
color: #0E334A;
background-color: #0E334A
}
thead {
color: #ffffff;
}
tbody {
color: #000000;
}
"
)
),
h4("Tableau de resultats"),
dataTableOutput("tab_res"),
hr(),
h4("Meilleur modele"),
dataTableOutput("best_mod")
)
)
),
tabPanel("Code & Donnees", fluid = TRUE, icon = icon("database"),
sidebarLayout(
sidebarPanel(
h3("Affichage des donnees"),
radioButtons(inputId = "Display1",
label = "",
choices = c("preview", "str","summary"),
selected = "preview"),
hr(),
h3("Affichage du code"),
checkboxGroupInput(inputId = "CodeR",
label = "",
choices = c("Afficher le code R" = "R1"))
),
mainPanel()
)
),
tabPanel("Graphiques", fluid = TRUE, icon = icon("chart-line"),
sidebarLayout(
sidebarPanel(
h3("Choix du modele"),
radioButtons(inputId = "Display2",
label = "",
choices = c("Modele 1", "Modele 2","Modele 3","Modele 4"),
selected = "Modele 1"),
hr(),
h3("Sauvegarder le graphique"),
selectInput(inputId = "ExportGraph",
label = "Choisir le format",
choices = c("PNG", "JPEG","BMP"),
selected = "PNG"),
downloadButton("downloadData2", "Download")
),
mainPanel()
)
),
navbarMenu("Plus d'informations", icon = icon("info-circle"),
tabPanel("Étude", fluid = TRUE,
fluidRow(
column(6,
h4(p("Résumé")),
h5(p("Cette étude a été réalisée au cours d'un stage de fin d'études en deuxième année de Master DSMS (Data Science et Modélisation Statistique) àl'Université de Bretagne Sud. Le stage s'est déroulé au sein du LMBA (Laboratoire de Mathématiques de Bretagne Atlantique) sur une période de six mois."),
p("Le sujet du stage était le suivant : « Automatisation d'une procédure de sélection de modèles dans le cadre du Couplage Modèle-Données »."),
p("Au cours d'un projet précédent, un outil avait été contruit afin d'ajuster un modèle (de type Couplage Modèle-Données) sur des données et de collecter certaines informations associées àcelui-ci. L'objectif de notre stage était donc d'éprouver l'outil déjàexistant, d'augmenter sa robustesse et son niveau de généricité et enfin d'automatiser la procédure complète de sélection de modèles."),
p("Cette interface Shiny est en quelque sorte la mise en forme de nos travaux."),
p("Les détails qui sont propres ànotre programme sont référencés dans l'onglet intitulé « Détails ».")
)
),
column(6,
h4(p("Le Couplage Modèle-Données")),
h5(p("Si l'on se réfère aux travaux effectués par FLOURENT (2019) dans le domaine du Smart Farming (l'agriculture de précision), on peut dire que le Couplage Modèle-Données est une approche qui se situe àmi-chemin entre les approches dîtes « Black Box » et « White Box »."),
p("Le type de modèle appelé « Black Box » fait en grande partie référence aux modèles classiques du Machine Learning (réseaux de neurones .). D'après GORCZYCA et al (2018), VALLETTA et al. (2017), MA et al. (2014) et IP et al. (2018), la popularité de ces modèles peut s'expliquer par leur facilité d'utilisation, ainsi que par la diversité des problèmes pouvant être résolus grâce àde tels algorithmes. Néanmoins ces modèles contiennent peu de connaissances a priori. Par conséquent, les outils basés sur ce type de modèles sont peu informatifs d'un point de vue biologique (TAN et GILBERT (2003), SHAVLIK et al. (1995), HUBBARD et REINHARDT (1998)). Il faut également noter qu'il est nécessaire d'apprendre les paramètres de ces modèles àpartir de beaucoup de données et ceci dans le but de pallier l'absence d'expertise biologique (DUMPALA et al. (2017))"),
p("À l'inverse, les modèles « White Box » correspondent àdes modèles mécanistes réalistes (VAZQUEZ-CRUZ et al. (2014)). Si l'on se penche sur les travaux de BASTIANELLI et SAUVANT (1997) et MARTIN et SAUVANT (2010), la construction de modèles mécanistes réalistes est une tâche complexe menant généralement àun modèle contenant un grand nombre d'équations et de paramètres àdéterminer. Ce type de modèle nécessite d'avoir beaucoup de connaissances concernant le système étudié."),
p("On cite une nouvelle fois les travaux de FLOURENT : « Le Couplage Modèle-Données consiste àintégrer des connaissances concernant la dynamique du système étudié via la construction d'un modèle mathématique et àutiliser ensuite des données pour ajuster les paramètres du modèle construit ». On peut aussi reprendre les travaux de FRENOD (2017), ROUSSEAU et NODET (2013), SACKS et al. (2007) et WANG et al. (2010), et dire que le Couplage Modèles-Données consiste àconstruire un modèle mathématique parcimonieux, correspondant àune synthèse mathématique du système étudié.")
)
))
),
tabPanel("Détails", fluid = TRUE,
fluidRow(
column(6,
#br(),
h4(p("Modèles")),
h5(p("Notre programme comporte trois types de modèles et quatre modèles différents. Deux modèles de type Couplage Modèle-Données (les modèles 1 et 2), un modèle de type réseau de neurones (le modèle 3) et un modèle de type linéaire (le modèle 4).")),
br(),
h4(p("Paramètres")),
h5(p("Le premier modèle de type Couplage Modèle-Données est composé de trois paramètres ajustés. Le second modèle de type Couplage Modèle-Données est composé de deux paramètres ajustés et d'un paramètre fixe. Le modèle de type réseau de neurones est composé de trois couches cachées (la première et la troisième couches comportent trois neurones, la deuxième couche compte six neurones).")),
br(),
h4(p("Informations")),
h5(p("Notre outil permet de collecter un certain nombre d'informations sur chacun des modèles comme l'erreur d'apprentissage, l'erreur test ou encore le temps de calcul. Certaines de ces informations nous sont utiles pour calculer notre indicateur de comparaison."))
#hr(),
),
column(6,
#br(),
h4(p("Indicateur")),
h5(p("Notre indicateur de comparaison se base sur cinq informations différentes, àsavoir : l'erreur test, l'erreur d'apprentissage, le temps de calcul, la complexité du modèle et la ratio.")),
br(),
h4(p("Programme")),
h5(p("Le programme, sur la base de l'indicateur, renvoie le « meilleur » modèle ainsi qu'un tableau de résultats avec un certain nombre d'infomations. L'utilisateur a la possibilité de sélectionner les modèles qu'il souhaite comparer, de choisir différents ratios (taille des données d'apprentissage et de test) ainsi que les poids associés (alphas) aux paramètres de l'indicateur.")),
br(),
h4(p("Poids associés")),
h5(p("alpha 1 : poids associé au ratio")),
h5(p("alpha 2 : poids associé àl'erreur d'apprentissage")),
h5(p("alpha 3 : poids associé àl'erreur test")),
h5(p("alpha 4 : poids associé au temps de calcul")),
h5(p("alpha 5 : poids associé àla complexité du modèle"))
)
),
br(),
hr(),
h6(
p(
a("Université de Bretagne Sud",
href = "https://www.univ-ubs.fr/fr/index.html"),
br(),
br(),
a("Laboratoire de Mathématiques de Bretagne Atlantique",
href = "http://www.lmba-math.fr/"))),
h6("Conçu avec",
img(src = "https://www.rstudio.com/wp-content/uploads/2014/04/shiny.png", height = "30px"),
"par",
img(src = "https://www.rstudio.com/wp-content/uploads/2014/07/RStudio-Logo-Blue-Gray.png", height = "30px"),
".")
)
)
)
)
#定义用户界面
ui看起来您的应用程序正在使用一些仅在本地计算机上可用的文件/函数，因此我无法完全测试此代码。这就是说，这应该有助于你开始
server <- function(input, output, session) {
results <- eventReactive(input$calculate, {
procedure_finale_shiny(
input$SliderAlpha1, input$SliderAlpha2, input$SliderAlpha3, input$SliderAlpha4, input$SliderAlpha5,
c(input$SliderRatio1, input$SliderRatio2,input$SliderRatio3, input$SliderRatio4, input$SliderRatio5),
as.numeric(input$ModeleFinder))
})
output$tab_res <- renderDataTable({ results()[[1]] })
output$best_mod <- renderDataTable({ results()[[2]] })
## Here's the new code to help users download data
output$downloadData1 <- downloadHandler(
# supply input$Export1 as an argument to customize the filename
filename = function(file.type = input$Export1){
if (file.type == "csv"){
str <- "my_data.csv"
}else if (file.type == "texte"){
str <- "my_data.txt"
}
#else if()...etc
return(str)
},
content = function(con){
#my_data <- results()[[1]]
my_data <- data.frame(animal = c("cat", "dog", "fish"), avg_age = c(15, 12, 2))
# input$Export1 is again used in this if-else block to use the
# correct function to write the data
if (input$Export1 == "csv"){
write.csv(my_data, con, row.names=FALSE)
}else if (input$Export1 == "texte"){
write.table(my_data, con)
}
#else if...etc
}
)
}
服务器非常感谢！这似乎有效，但我仍然有一个问题。当我试图保存结果时，它没有考虑格式。结果保存为普通文件，文件的默认名称为“downloadData1”。不知道为什么。。。如果你有什么想法的话？我在测试results（）[[1]
时看到了这种行为，所以我认为这可能与你的data.frame有关。你可能还应该定义你的函数：procedure\u finale\u shinny（）
在代码的服务器部分的某个地方-这可能是您遇到的问题。我试图在服务器部分用源函数定义过程_finale_shinny（）
，还试图将定义为.data.frame（results（）[[1]）
而不是results（）[[1]
…但徒劳（结果仍然相同）…如果你有一个例子？（很抱歉再次打扰你）
server <- function(input, output, session) {
results <- eventReactive(input$calculate, {
procedure_finale_shiny(
input$SliderAlpha1, input$SliderAlpha2, input$SliderAlpha3, input$SliderAlpha4, input$SliderAlpha5,
c(input$SliderRatio1, input$SliderRatio2,input$SliderRatio3, input$SliderRatio4, input$SliderRatio5),
as.numeric(input$ModeleFinder))
})
output$tab_res <- renderDataTable({ results()[[1]] })
output$best_mod <- renderDataTable({ results()[[2]] })
## Here's the new code to help users download data
output$downloadData1 <- downloadHandler(
# supply input$Export1 as an argument to customize the filename
filename = function(file.type = input$Export1){
if (file.type == "csv"){
str <- "my_data.csv"
}else if (file.type == "texte"){
str <- "my_data.txt"
}
#else if()...etc
return(str)
},
content = function(con){
#my_data <- results()[[1]]
my_data <- data.frame(animal = c("cat", "dog", "fish"), avg_age = c(15, 12, 2))
# input$Export1 is again used in this if-else block to use the
# correct function to write the data
if (input$Export1 == "csv"){
write.csv(my_data, con, row.names=FALSE)
}else if (input$Export1 == "texte"){
write.table(my_data, con)
}
#else if...etc
}
)
}