From 7a03f851901ed8b8b1efe6280b460f0dc9c4d444 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Wed, 20 May 2020 12:15:25 +0200
Subject: [PATCH] Added uiputfile

---
 NAMESPACE        |  1 +
 R/uiputfile.R    | 21 +++++++++++++++++++++
 man/uiputfile.Rd | 17 +++++++++++++++++
 3 files changed, 39 insertions(+)
 create mode 100644 R/uiputfile.R
 create mode 100644 man/uiputfile.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 37940fb..a1e676f 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -28,5 +28,6 @@ export(strcmp)
 export(suoritaMuutos)
 export(times)
 export(uigetfile)
+export(uiputfile)
 importFrom(methods,is)
 importFrom(stats,runif)
diff --git a/R/uiputfile.R b/R/uiputfile.R
new file mode 100644
index 0000000..cb9da66
--- /dev/null
+++ b/R/uiputfile.R
@@ -0,0 +1,21 @@
+#' @title Save file
+#' @param filter accepted file extension
+#' @param title Title
+#' @description This function intends to loosely mimic the behaviour of the
+#' homonymous Matlab function.
+#' @export
+uiputfile <- function(filter = ".rda", title = "Save file") {
+	# ==========================================================================
+	# Processing input
+	# ==========================================================================
+	message(title)
+	filename <- readline(paste0('File name (end with ', filter, '): '))
+	filepath <- readline(paste0('File path (leave empty for ', getwd(), '): '))
+	if (filename == "") filename <- 0
+	if (filepath == "") filepath <- getwd()
+	# ==========================================================================
+	# Processing output
+	# ==========================================================================
+	out <- list(name = filename, path = filepath)
+	return(out)
+}
\ No newline at end of file
diff --git a/man/uiputfile.Rd b/man/uiputfile.Rd
new file mode 100644
index 0000000..7b37f76
--- /dev/null
+++ b/man/uiputfile.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/uiputfile.R
+\name{uiputfile}
+\alias{uiputfile}
+\title{Save file}
+\usage{
+uiputfile(filter = ".rda", title = "Save file")
+}
+\arguments{
+\item{filter}{accepted file extension}
+
+\item{title}{Title}
+}
+\description{
+This function intends to loosely mimic the behaviour of the
+homonymous Matlab function.
+}