Add %H:%M format support and update documentation

Closes #2.

Author: burgerga

DESCRIPTION

@@ -4,9 +4,9 @@ Title: A Time Input Widget for Shiny
 Version: 0.1.0.9000
 Authors@R: person("Gerhard", "Burger", email = "burger.ga@gmail.com", role = c("aut", "cre"))
 Description: Provides a time input widget for Shiny. This widget allows intuitive time input in the
-    '[hh]:[mm]:[ss]' (24H) format by using a separate numeric input for each part of the time. The
-    interface with R uses 'DateTimeClasses' objects. See the project page for more information and
-    examples.
+    '[hh]:[mm]:[ss]' or '[hh]:[mm]' (24H) format by using a separate numeric input for each time
+    component. The interface with R uses 'DateTimeClasses' objects. See the project page for more
+    information and examples.
 License: GPL-3 | file LICENSE
 LazyData: TRUE
 Imports:

R/input-time.R

@@ -1,23 +1,24 @@
 #' shinyTime: A Time Input Widget for Shiny
 #'
 #' Provides a time input widget for Shiny. This widget allows intuitive time input in the
-#' \code{[hh]:[mm]:[ss]} (24H) format by using a separate numeric input for each part
-#' of the time. The interface with R uses \code{\link{DateTimeClasses}} objects.
+#' \code{[hh]:[mm]:[ss]} or \code{[hh]:[mm]} (24H) format by using a separate numeric input for each
+#' time component. The interface with R uses \code{\link{DateTimeClasses}} objects.
 #'
 #' @docType package
 #' @name shinyTime
 NULL
 
 #' Create a time input
 #'
-#' Creates a time widget that consists of three separate numeric inputs for respectively the hours,
-#' minutes, and seconds. The input and output values of the time widget are instances of
+#' Creates a time widget that consists of separate numeric inputs for the hours, minutes, and
+#' seconds. The input and output values of the time widget are instances of
 #' \code{\link{DateTimeClasses}}, these can be converted to and from character strings with
 #' \code{\link{strptime}} and \code{\link{strftime}}. For a simple example app see
 #' \code{\link{shinyTimeExample}}.
 #'
 #' @inheritParams shiny::textInput
 #' @param value The desired time value. Must be a instance of \code{\link{DateTimeClasses}}.
+#' @param seconds Show input for seconds. Defaults to FALSE
 #'
 #' @family shinyTime functions
 #' @seealso \code{\link{strptime}}, \code{\link{strftime}}
@@ -34,15 +35,18 @@ NULL
 #'   timeInput("time2", "Time:", value = Sys.time()),
 #'
 #'   # Set to custom time
-#'   timeInput("time3", "Time:", value = strptime("12:34:56", "%T"))
+#'   timeInput("time3", "Time:", value = strptime("12:34:56", "%T")),
+#'
+#'   # Use %H:%M format
+#'   timeInput("time4", "Time:", seconds = FALSE)
 #' )
 #'
 #' shinyApp(ui, server = function(input, output) { })
 #' }
 #'
 #' @importFrom htmltools tagList singleton tags
 #' @export
-timeInput <- function(inputId, label, value = NULL) {
+timeInput <- function(inputId, label, value = NULL, seconds = TRUE) {
   if(is.null(value)) value <- getDefaultTime()
   value_list <- parseTimeFromValue(value)
   style <- "width: 5ch"
@@ -59,15 +63,18 @@ timeInput <- function(inputId, label, value = NULL) {
         tags$b(":"),
         tags$input(type="number", min="0", max="59", step="1", value = value_list$min,
                    style = style, onchange = onchange),
-        tags$b(":"),
-        tags$input(type="number", min="0", max="59", step="1", value = value_list$sec,
-                   style = style, onchange = onchange)
+
+        if(seconds) tags$b(":") else NULL,
+        if(seconds) tags$input(type="number", min="0", max="59", step="1", value = value_list$sec,
+                   style = style, onchange = onchange) else NULL
       )
     )
   )
 }
 
-#' Change the value of a time input on the client
+#' Change a time input on the client
+#'
+#' Change the label and/or value of a time input
 #'
 #' @inheritParams shiny::updateTextInput
 #' @param value The desired time value. Must be a instance of \code{\link{DateTimeClasses}}.
@@ -99,9 +106,9 @@ updateTimeInput <- function(session, inputId, label = NULL, value = NULL) {
   session$sendInputMessage(inputId, message)
 }
 
-#' Run a simple example app using the shinyTime functionality
+#' Show the shinyTime example app
 #'
-#' This functions runs a very simple app demonstrating the shinyTime functionality.
+#' Run a simple shiny app demonstrating the shinyTime functionality.
 #'
 #' @family shinyTime functions
 #' @importFrom shiny runApp

inst/www/input_binding_time.js

@@ -31,7 +31,8 @@ $.extend(timeInputBinding, {
     return {
       hour: values[0],
       min:  values[1],
-      sec:  values[2]};
+      sec:  (values.length > 2) ? values[2] : 0
+    };
   },
   setValue: function(el, value) {
     var $inputs = $(el).find('input');