Added uiputfile

NAMESPACE

@@ -28,5 +28,6 @@ export(strcmp)
 export(suoritaMuutos)
 export(times)
 export(uigetfile)
+export(uiputfile)
 importFrom(methods,is)
 importFrom(stats,runif)

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)
+}

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.
+}