Allowing for empty title

This commit is contained in:
Waldir Leoncio 2020-05-20 13:08:57 +02:00
parent 7a03f85190
commit ee57a98589
2 changed files with 2 additions and 2 deletions

View file

@ -9,7 +9,7 @@
#' @export #' @export
questdlg <- function( questdlg <- function(
quest, quest,
dlgtitle, dlgtitle = "",
btn = c('y', 'n'), btn = c('y', 'n'),
defbtn = 'n', defbtn = 'n',
accepted_ans = c('y', 'yes', 'n', 'no') accepted_ans = c('y', 'yes', 'n', 'no')

View file

@ -6,7 +6,7 @@
\usage{ \usage{
questdlg( questdlg(
quest, quest,
dlgtitle, dlgtitle = "",
btn = c("y", "n"), btn = c("y", "n"),
defbtn = "n", defbtn = "n",
accepted_ans = c("y", "yes", "n", "no") accepted_ans = c("y", "yes", "n", "no")