{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TupleSections #-}

{-|
Module      : Graphics.Vega.VegaLite.Input
Copyright   : (c) Douglas Burke, 2018-2020
License     : BSD3

Maintainer  : dburke.gw@gmail.com
Stability   : unstable
Portability : CPP, OverloadedStrings, TupleSections

Data input (from file or created inline).

-}

module Graphics.Vega.VegaLite.Input
       ( Data
       , DataColumn
       , DataRow

       , Format(..)
       , DataType(..)

       , dataFromUrl
       , dataFromColumns
       , dataFromRows
       , dataFromJson
       , dataFromSource
       , dataName
       , datasets
       , dataColumn
       , dataRow
       , noData

       , dataSequence
       , dataSequenceAs

       ) where

import qualified Data.Aeson as A
import qualified Data.HashMap.Strict as HM
import qualified Data.Text as T

import Control.Arrow (second)

import Data.Aeson ((.=), Value, decode, encode, object, toJSON)
import Data.Maybe (fromMaybe, mapMaybe)

#if !(MIN_VERSION_base(4, 12, 0))
import Data.Monoid ((<>))
#endif

import Graphics.Vega.VegaLite.Data
  ( DataValue(..)
  , DataValues(..)
  , dataValueSpec
  )
import Graphics.Vega.VegaLite.Foundation
  ( FieldName
  )
import Graphics.Vega.VegaLite.Specification
  ( VLProperty(VLData, VLDatasets)
  , VLSpec
  , LabelledSpec
  )
import Graphics.Vega.VegaLite.Time (dateTimeSpec)


{-|

Indicates the type of data to be parsed when reading input data. For @FoDate@
and @FoUtc@, the formatting specification can be specified using
<https://vega.github.io/vega-lite/docs/data.html#format D3's formatting specifiers>
or left as an empty string if default date formatting is to be applied. Care should
be taken when assuming default parsing of dates because different browsers can
parse dates differently. Being explicit about the date format is usually safer.

-}
data DataType
    = FoNumber
      -- ^ Indicate numeric data type to be parsed when reading input data.
    | FoBoolean
      -- ^ Indicate Boolean data type to be parsed when reading input data.
    | FoDate T.Text
      -- ^ Date format for parsing input data using
      --   [D3's formatting specifiers](https://vega.github.io/vega-lite/docs/data.html#format)
      --   or left as an empty string for default formatting.
    | FoUtc T.Text
      -- ^ Similar to 'FoDate' but for UTC format dates.


{-|

Specifies the type of format a data source uses. If the format is indicated by
the file name extension (@".tsv"@, @".csv"@, @".json"@) there is no need to indicate the
format explicitly. However this can be useful if the filename extension does not
indicate type (e.g. @".txt"@) or you wish to customise the parsing of a file. For
example, when specifying the @JSON@ format, its parameter indicates the name of
property field containing the attribute data to extract. For details see the
<https://vega.github.io/vega-lite/docs/data.html#format Vega-Lite documentation>.
-}
data Format
    = JSON T.Text
      -- ^ Property to be extracted from some JSON when it has some surrounding structure.
      --   e.g., specifying the property @values.features@ is equivalent to retrieving
      --   @json.values.features@ from a JSON object with a custom delimiter.
    | CSV
      -- ^ Comma-separated (CSV) data file format.
    | TSV
      -- ^ Tab-separated (TSV) data file format
    | DSV Char
      -- ^ The fields are separated by the given character (which must be a
      --   single 16-bit code unit).
      --
      --   @since 0.4.0.0
      {- This isn't in the current vega-lite v3 schema as far as I can see
    | Arrow
      -- ^ <https://observablehq.com/@theneuralbit/introduction-to-apache-arrow Apache Arrow> format.
      --
      -- @since 0.4.0.0
      -}
    | TopojsonFeature T.Text
      -- ^ A topoJSON feature format containing an object with the given name. For example:
      --
      -- @
      -- 'dataFromUrl' \"londonBoroughs.json\" ['TopojsonFeature' \"boroughs\"]
      -- @
    | TopojsonMesh T.Text
      -- ^ A topoJSON mesh format containing an object with the given name. Unlike
      --   'TopojsonFeature', the corresponding geo data are returned as a single unified mesh,
      --   not as individual GeoJSON features.
    | Parse [(FieldName, DataType)]
      -- ^ Parsing rules when processing some data text, specified as
      --   a list of tuples in the form @(fieldname,
      --   datatype)@. Useful when automatic type inference needs to
      --   be overridden, for example when converting integers representing
      --   years into dates and strings into numbers:
      --
      -- @
      -- 'dataFromUrl' \"myDataFile.csv\"
      --    [ 'Parse' [ ( \"year\", 'FoDate' \"%Y\" ), ( "\y\", 'FoNumber' ) ] ]
      -- @


{-|

Represents a single column of data. Used when generating inline data with
'dataColumn' and 'dataFromColumns'.
-}
type DataColumn = [LabelledSpec]

{-|

Represents a single row of data. Used when generating inline data with
'dataRow' and 'dataFromRows'.
-}
type DataRow = VLSpec

{-|

Convenience type-annotation label for use with data generation functions.

@
myRegion : ['DataColumn'] -> 'Data'
myRegion =
    'dataFromColumns' []
        . 'dataColumn' "easting" ('Graphics.Vega.VegaLite.Numbers' [ -3, 4, 4, -3, -3 ])
        . 'dataColumn' "northing" ('Graphics.Vega.VegaLite.Numbers' [ 52, 52, 45, 45, 52 ])
@

It is the same as 'Graphics.Vega.VegaLite.PropertySpec' (which was added in @0.4.0.0@),
but kept separate to help better-document code.

-}
type Data = (VLProperty, VLSpec)


formatProperty :: Format -> [LabelledSpec]
formatProperty :: Format -> [LabelledSpec]
formatProperty (JSON Text
js) =
  let ps :: [(Text, Text)]
ps = [(Text
"type", Text
"json")]
           [(Text, Text)] -> [(Text, Text)] -> [(Text, Text)]
forall a. Semigroup a => a -> a -> a
<> if Text -> Bool
T.null (Text -> Text
T.strip Text
js) then [] else [(Text
"property", Text
js)]
  in ((Text, Text) -> LabelledSpec) -> [(Text, Text)] -> [LabelledSpec]
forall a b. (a -> b) -> [a] -> [b]
map ((Text -> Value) -> (Text, Text) -> LabelledSpec
forall (a :: * -> * -> *) b c d.
Arrow a =>
a b c -> a (d, b) (d, c)
second Text -> Value
forall a. ToJSON a => a -> Value
toJSON) [(Text, Text)]
ps

formatProperty Format
CSV = [(Text
"type", Value
"csv")]
formatProperty Format
TSV = [(Text
"type", Value
"tsv")]
formatProperty (DSV Char
delim) = [(Text
"type", Value
"dsv"), Text
"delimiter" Text -> Char -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Char
delim]
-- formatProperty Arrow = [("type", "arrow")]
formatProperty (TopojsonFeature Text
os) = [(Text
"type", Value
"topojson")
                                      , Text
"feature" Text -> Text -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
os
                                      ]
formatProperty (TopojsonMesh Text
os) = [(Text
"type", Value
"topojson")
                                   , Text
"mesh" Text -> Text -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
os
                                   ]
formatProperty (Parse [(Text, DataType)]
fmts) =
  let pObj :: Value
pObj = [LabelledSpec] -> Value
object (((Text, DataType) -> LabelledSpec)
-> [(Text, DataType)] -> [LabelledSpec]
forall a b. (a -> b) -> [a] -> [b]
map ((DataType -> Value) -> (Text, DataType) -> LabelledSpec
forall (a :: * -> * -> *) b c d.
Arrow a =>
a b c -> a (d, b) (d, c)
second DataType -> Value
dataTypeSpec) [(Text, DataType)]
fmts)
  in [(Text
"parse", Value
pObj)]


dataTypeSpec :: DataType -> VLSpec
dataTypeSpec :: DataType -> Value
dataTypeSpec DataType
dType =
  let s :: Text
s = case DataType
dType of
        DataType
FoNumber -> Text
"number"
        DataType
FoBoolean -> Text
"boolean"
        FoDate Text
fmt | Text -> Bool
T.null Text
fmt -> Text
"date"
                   | Bool
otherwise -> Text
"date:'" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
fmt Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
"'"
        FoUtc Text
fmt | Text -> Bool
T.null Text
fmt -> Text
"utc"
                  | Bool
otherwise -> Text
"utc:'" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
fmt Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<> Text
"'"
  in Text -> Value
forall a. ToJSON a => a -> Value
toJSON Text
s


{-|

Create a row of data. A row comprises a list of (columnName, value) pairs.
The final parameter is the list of any other rows to which this is added.

This is expected to be used with 'dataFromRows'.

@
'dataRow' [(\"Animal\", 'Graphics.Vega.VegaLite.Str' \"Fish\"), (\"Age\", 'Graphics.Vega.VegaLite.Number' 28), (\"Year\", 'Graphics.Vega.VegaLite.Str' "2010")] []
@
-}
dataRow :: [(FieldName, DataValue)] -> [DataRow] -> [DataRow]
dataRow :: [(Text, DataValue)] -> [Value] -> [Value]
dataRow [(Text, DataValue)]
rw = ([LabelledSpec] -> Value
object (((Text, DataValue) -> LabelledSpec)
-> [(Text, DataValue)] -> [LabelledSpec]
forall a b. (a -> b) -> [a] -> [b]
map ((DataValue -> Value) -> (Text, DataValue) -> LabelledSpec
forall (a :: * -> * -> *) b c d.
Arrow a =>
a b c -> a (d, b) (d, c)
second DataValue -> Value
dataValueSpec) [(Text, DataValue)]
rw) Value -> [Value] -> [Value]
forall a. a -> [a] -> [a]
:)


{-|

Create a dataset comprising a collection of named 'Data' items. Each data item
can be created with normal data generating functions such as 'dataFromRows' or
'dataFromJson'. These can be later referred to using 'dataFromSource'.

@
let toJS = Data.Aeson.toJSON
    obj = Data.Aeson.object

    dvals = 'dataFromRows' []
            . 'dataRow' [ ( "cat", 'Graphics.Vega.VegaLite.Str' "a" ), ( "val", 'Graphics.Vega.VegaLite.Number' 10 ) ]
            . 'dataRow' [ ( "cat", 'Graphics.Vega.VegaLite.Str' "b" ), ( "val", 'Graphics.Vega.VegaLite.Number' 18 ) ]
    json = toJS
            [ obj [ ( "cat", toJS "a" ), ( "val", toJS 120 ) ]
            , obj [ ( "cat", toJS "b" ), ( "val", toJS 180 ) ]
            ]

    enc = ...

in 'Graphics.Vega.VegaLite.toVegaLite'
    [ 'datasets' [ ( \"myData\", dvals [] ),  ( \"myJson\", 'dataFromJson' json [] ) ]
    , 'dataFromSource' \"myData\" []
    , 'Graphics.Vega.VegaLite.mark' 'Graphics.Vega.VegaLite.Bar' []
    , enc []
    ]
@
-}
datasets :: [(T.Text, Data)] -> Data
datasets :: [(Text, Data)] -> Data
datasets [(Text, Data)]
namedData =
  -- Follow Elm in parsing the structure to get what we want, but the code is
  -- written rather differently.
  --
  -- The input is expected to be a singleton list containing a pair.
  let converted :: (a, Value) -> Value
converted = Value -> Value
extract (Value -> Value) -> ((a, Value) -> Value) -> (a, Value) -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (a, Value) -> Value
forall a b. (a, b) -> b
snd
      specs :: [LabelledSpec]
specs = ((Text, Data) -> LabelledSpec) -> [(Text, Data)] -> [LabelledSpec]
forall a b. (a -> b) -> [a] -> [b]
map ((Data -> Value) -> (Text, Data) -> LabelledSpec
forall (a :: * -> * -> *) b c d.
Arrow a =>
a b c -> a (d, b) (d, c)
second Data -> Value
forall a. (a, Value) -> Value
converted) [(Text, Data)]
namedData

      convert :: Value -> Maybe [(T.Text, Value)]
      convert :: Value -> Maybe [LabelledSpec]
convert Value
v = HashMap Text Value -> [LabelledSpec]
forall k v. HashMap k v -> [(k, v)]
HM.toList (HashMap Text Value -> [LabelledSpec])
-> Maybe (HashMap Text Value) -> Maybe [LabelledSpec]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ByteString -> Maybe (HashMap Text Value)
forall a. FromJSON a => ByteString -> Maybe a
decode (Value -> ByteString
forall a. ToJSON a => a -> ByteString
encode Value
v)

      extract :: Value -> Value
extract Value
din =
        let extract' :: [(a, a)] -> Maybe a
extract' [(a
_, a
v)] = a -> Maybe a
forall a. a -> Maybe a
Just a
v
            extract' [(a, a)]
_ = Maybe a
forall a. Maybe a
Nothing

        in Value -> Maybe Value -> Value
forall a. a -> Maybe a -> a
fromMaybe Value
din (Value -> Maybe [LabelledSpec]
convert Value
din Maybe [LabelledSpec]
-> ([LabelledSpec] -> Maybe Value) -> Maybe Value
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= [LabelledSpec] -> Maybe Value
forall a a. [(a, a)] -> Maybe a
extract')

  in (VLProperty
VLDatasets, [LabelledSpec] -> Value
object [LabelledSpec]
specs)


-- | This is for composed specifications, and it tells the visualization to
--   ignore the data from the parent.
--
--   @since 0.4.0.0
noData :: Data
noData :: Data
noData = (VLProperty
VLData, Value
A.Null)


{-|

Name to give a data source. Useful when a specification needs to reference a
data source, such as one generated via an API call.

@
dvals = 'dataName' \"myName\" ('dataFromUrl' \"myData.json\" [])
@

@since 0.4.0.0

-}

-- TODO: can we restrict this to only those with a VLProperty of VLData?

dataName ::
  T.Text
  -- ^ The name to give the data source
  -> Data
  -- ^ The data source to be named.
  -> Data
  -- ^ If the input @Data@ argument is not a data source then
  --   this is just the input value.
dataName :: Text -> Data -> Data
dataName Text
s odata :: Data
odata@(VLProperty
_, Value
dataSpec) =
  -- follow Elm in parsing the structure to get what we want, but the code is
  -- written rather differently. This is based on the code used in datasets.
  --
  -- The input is expected to be a singleton list containing a pair.
  --
  let converted :: Maybe LabelledSpec
converted = Maybe [LabelledSpec]
convert Maybe [LabelledSpec]
-> ([LabelledSpec] -> Maybe LabelledSpec) -> Maybe LabelledSpec
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= [LabelledSpec] -> Maybe LabelledSpec
forall a. [a] -> Maybe a
extract

      -- Aeson's objects are wrappers around a hash map, so this should be
      -- a relatively easy conversion. The type annotation isn't needed
      -- but left in for reference.
      --
      convert :: Maybe [(T.Text, Value)]
      convert :: Maybe [LabelledSpec]
convert = HashMap Text Value -> [LabelledSpec]
forall k v. HashMap k v -> [(k, v)]
HM.toList (HashMap Text Value -> [LabelledSpec])
-> Maybe (HashMap Text Value) -> Maybe [LabelledSpec]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ByteString -> Maybe (HashMap Text Value)
forall a. FromJSON a => ByteString -> Maybe a
decode (Value -> ByteString
forall a. ToJSON a => a -> ByteString
encode Value
dataSpec)

      extract :: [a] -> Maybe a
extract [a
v] = a -> Maybe a
forall a. a -> Maybe a
Just a
v
      extract [a]
_ = Maybe a
forall a. Maybe a
Nothing

  in case Maybe LabelledSpec
converted of
       Just LabelledSpec
v -> (VLProperty
VLData, [LabelledSpec] -> Value
object [ Text
"name" Text -> Text -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
s, LabelledSpec
v ])
       Maybe LabelledSpec
_ -> Data
odata


{-|

Declare a data source from a list of column values. Each column has a
specific type (e.g. 'Number' or 'String'), but different columns can have
different types.

Note that the columns are truncated to match the length of the shortest column.

@
'dataFromColumns' [ 'Parse' [ ( \"Year\", 'FoDate' "%Y" ) ] ]
  . 'dataColumn' \"Animal\" ('Strings' [ \"Fish\", \"Dog\", \"Cat\" ])
  . 'dataColumn' \"Age\" ('Numbers' [ 28, 12, 6 ])
  . 'dataColumn' \"Year\" ('Strings' [ "2010", "2014", "2015" ])
@
-}
dataFromColumns ::
  [Format]
  -- ^ An optional list of formatting instructions for the columns.
  --
  --   Simple numbers and strings do not normally need formatting, but it is
  --   good practice to explicitly declare date-time formats as handling of
  --   these values can vary between different viewers (e.g. browsers).
  --
  --   See the
  --   <https://vega.github.io/vega-lite/docs/data.html#format Vega-Lite documentation>
  --   for more details.
  -> [DataColumn]
  -- ^ The columns to add. This is expected to be created with one or more
  --   calls to 'dataColumn'.
  -> Data
dataFromColumns :: [Format] -> [[LabelledSpec]] -> Data
dataFromColumns [Format]
fmts [[LabelledSpec]]
cols =
  let dataArray :: [Value]
dataArray = ([LabelledSpec] -> Value) -> [[LabelledSpec]] -> [Value]
forall a b. (a -> b) -> [a] -> [b]
map [LabelledSpec] -> Value
object ([[LabelledSpec]] -> [[LabelledSpec]]
forall a. [[a]] -> [[a]]
transpose [[LabelledSpec]]
cols)

      vals :: [LabelledSpec]
vals = [(Text
"values", [Value] -> Value
forall a. ToJSON a => a -> Value
toJSON [Value]
dataArray)]
             [LabelledSpec] -> [LabelledSpec] -> [LabelledSpec]
forall a. Semigroup a => a -> a -> a
<> if [Format] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
null [Format]
fmts
                then []
                else [(Text
"format", Value -> Value
forall a. ToJSON a => a -> Value
toJSON Value
fmtObject)]

      fmtObject :: Value
fmtObject = [LabelledSpec] -> Value
object ((Format -> [LabelledSpec]) -> [Format] -> [LabelledSpec]
forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
concatMap Format -> [LabelledSpec]
formatProperty [Format]
fmts)

  in (VLProperty
VLData, [LabelledSpec] -> Value
object [LabelledSpec]
vals)


transpose :: [[a]] -> [[a]]
transpose :: [[a]] -> [[a]]
transpose [] = []
transpose ([]:[[a]]
xss) = [[a]] -> [[a]]
forall a. [[a]] -> [[a]]
transpose [[a]]
xss
transpose ((a
x:[a]
xs) : [[a]]
xss) =
  let heads :: [a]
heads = ([a] -> Maybe a) -> [[a]] -> [a]
forall a b. (a -> Maybe b) -> [a] -> [b]
filterMap [a] -> Maybe a
forall a. [a] -> Maybe a
elmHead [[a]]
xss --
      tails :: [[a]]
tails = ([a] -> Maybe [a]) -> [[a]] -> [[a]]
forall a b. (a -> Maybe b) -> [a] -> [b]
filterMap [a] -> Maybe [a]
forall a. [a] -> Maybe [a]
elmTail [[a]]
xss

      elmHead :: [a] -> Maybe a
elmHead (a
h:[a]
_) = a -> Maybe a
forall a. a -> Maybe a
Just a
h
      elmHead [] = Maybe a
forall a. Maybe a
Nothing

      elmTail :: [a] -> Maybe [a]
elmTail [] = Maybe [a]
forall a. Maybe a
Nothing
      elmTail (a
_:[a]
ts) = [a] -> Maybe [a]
forall a. a -> Maybe a
Just [a]
ts

      filterMap :: (a -> Maybe b) -> [a] -> [b]
filterMap = (a -> Maybe b) -> [a] -> [b]
forall a b. (a -> Maybe b) -> [a] -> [b]
mapMaybe

  in (a
x a -> [a] -> [a]
forall a. a -> [a] -> [a]
: [a]
heads) [a] -> [[a]] -> [[a]]
forall a. a -> [a] -> [a]
: [[a]] -> [[a]]
forall a. [[a]] -> [[a]]
transpose ([a]
xs [a] -> [[a]] -> [[a]]
forall a. a -> [a] -> [a]
: [[a]]
tails)


{-|

Declare a data source from a provided json specification. The most likely use-case
for specifying json inline is when creating <http://geojson.org geojson> objects,
when 'Graphics.Vega.VegaLite.geometry', 'Graphics.Vega.VegaLite.geometryCollection', and 'Graphics.Vega.VegaLite.geoFeatureCollection' functions
may be used. For more general cases of json creation, consider 'Data.Aeson.encode'.

@
let geojson =
        'Graphics.Vega.VegaLite.geometry' ('Graphics.Vega.VegaLite.GeoPolygon' [ [ ( -3, 59 ), ( 4, 59 ), ( 4, 52 ), ( -3, 59 ) ] ]) []
in 'Graphics.Vega.VegaLite.toVegaLite'
    [ 'Graphics.Vega.VegaLite.width' 200
    , 'Graphics.Vega.VegaLite.height' 200
    , 'dataFromJson' geojson []
    , 'Graphics.Vega.VegaLite.projection' [ 'Graphics.Vega.VegaLite.PrType' 'Graphics.Vega.VegaLite.Orthographic' ]
    , 'Graphics.Vega.VegaLite.mark' 'Graphics.Vega.VegaLite.Geoshape' []
    ]
@
-}
dataFromJson :: VLSpec -> [Format] -> Data
dataFromJson :: Value -> [Format] -> Data
dataFromJson Value
vlspec [Format]
fmts =
  let js :: Value
js = if [Format] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
null [Format]
fmts
           then [LabelledSpec] -> Value
object [(Text
"values", Value
vlspec)]
           else [LabelledSpec] -> Value
object [ (Text
"values", Value
vlspec)
                       , (Text
"format",
                          [LabelledSpec] -> Value
object ((Format -> [LabelledSpec]) -> [Format] -> [LabelledSpec]
forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
concatMap Format -> [LabelledSpec]
formatProperty [Format]
fmts)) ]
  in (VLProperty
VLData, Value
js)


{-|

Create a column of data. A column has a name and a list of values. The final
parameter is the list of any other columns to which this is added.

This is expected to be used with 'dataFromColumns'.

@
'dataColumn' \"Animal\" ('Strings' [ \"Cat\", \"Dog\", \"Mouse\"]) []
@
-}
dataColumn :: FieldName -> DataValues -> [DataColumn] -> [DataColumn]
dataColumn :: Text -> DataValues -> [[LabelledSpec]] -> [[LabelledSpec]]
dataColumn Text
colName DataValues
dVals [[LabelledSpec]]
xs =
  let col :: [Value]
col = case DataValues
dVals of
        Booleans [Bool]
cs -> (Bool -> Value) -> [Bool] -> [Value]
forall a b. (a -> b) -> [a] -> [b]
map Bool -> Value
forall a. ToJSON a => a -> Value
toJSON [Bool]
cs
        DateTimes [[DateTime]]
cs -> ([DateTime] -> Value) -> [[DateTime]] -> [Value]
forall a b. (a -> b) -> [a] -> [b]
map [DateTime] -> Value
dateTimeSpec [[DateTime]]
cs
        Numbers [Double]
cs -> (Double -> Value) -> [Double] -> [Value]
forall a b. (a -> b) -> [a] -> [b]
map Double -> Value
forall a. ToJSON a => a -> Value
toJSON [Double]
cs
        Strings [Text]
cs -> (Text -> Value) -> [Text] -> [Value]
forall a b. (a -> b) -> [a] -> [b]
map Text -> Value
forall a. ToJSON a => a -> Value
toJSON [Text]
cs

      x :: [LabelledSpec]
x = (Value -> LabelledSpec) -> [Value] -> [LabelledSpec]
forall a b. (a -> b) -> [a] -> [b]
map (Text
colName,) [Value]
col

  in [LabelledSpec]
x [LabelledSpec] -> [[LabelledSpec]] -> [[LabelledSpec]]
forall a. a -> [a] -> [a]
: [[LabelledSpec]]
xs


{-|

Declare a data source from a provided list of row values. Each row
contains a list of tuples where the first value is a string
representing the column name, and the second the column value for that
row. Each column can have a value of a different type but
__you must ensure__
that when subsequent rows are added, they match the types of
previous values with shared column names.

Note though that generally if you are creating data inline (as opposed
to reading from a file), adding data by column is more efficient and
less error-prone.

@
dataFromRows [ 'Parse' [ ( \"Year\", 'FoDate' "%Y" ) ] ]
  . 'dataRow' [ ( \"Animal\", 'Str' \"Fish\" ), ( \"Age\", 'Number' 28 ), ( \"Year\", 'Str' "2010" ) ]
  . 'dataRow' [ ( \"Animal\", 'Str' \"Dog\" ), ( \"Age\", 'Number' 12 ), ( \"Year\", 'Str' "2014" ) ]
  . 'dataRow' [ ( \"Animal\", 'Str' \"Cat\" ), ( \"Age\", 'Number' 6 ), ( \"Year\", 'Str' "2015" ) ]
@
-}
dataFromRows ::
  [Format]
  -- ^ An optional list of formatting instructions for the rows.
  --
  --   Simple numbers and strings do not normally need formatting, but it is
  --   good practice to explicitly declare date-time formats as handling of
  --   these values can vary between different viewers (e.g. browsers).
  --
  --   See the
  --   <https://vega.github.io/vega-lite/docs/data.html#format Vega-Lite documentation>
  --   for more details.
  -> [DataRow]
  -- ^ The rows to add. This is expected to be created with one or more
  --   calls to 'dataRow'.
  -> Data
dataFromRows :: [Format] -> [Value] -> Data
dataFromRows [Format]
fmts [Value]
rows =
  let kvs :: [LabelledSpec]
kvs = (Text
"values", [Value] -> Value
forall a. ToJSON a => a -> Value
toJSON [Value]
rows)
            LabelledSpec -> [LabelledSpec] -> [LabelledSpec]
forall a. a -> [a] -> [a]
: if [Format] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
null [Format]
fmts
              then []
              else [(Text
"format", [LabelledSpec] -> Value
object ((Format -> [LabelledSpec]) -> [Format] -> [LabelledSpec]
forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
concatMap Format -> [LabelledSpec]
formatProperty [Format]
fmts))]
  in (VLProperty
VLData, [LabelledSpec] -> Value
object [LabelledSpec]
kvs)


{-|

Declare data from a named source. The source may be from named 'datasets' within
a specification or a named data source created via the
<https://vega.github.io/vega/docs/api/view/#data Vega View API>.
An optional list of field formatting instructions can be provided as the second
parameter or an empty list to use the default formatting. See the
<https://vega.github.io/vega-lite/docs/data.html#named Vega-Lite documentation>
for details.

@
'Graphics.Vega.VegaLite.toVegaLite'
    [ 'datasets' [ ( "myData", dvals [] ),  ( "myJson", 'dataFromJson' json [] ) ]
    , 'dataFromSource' "myData" []
    , 'Graphics.Vega.VegaLite.mark' 'Graphics.Vega.VegaLite.Bar' []
    , ...
    ]
@
-}
dataFromSource :: T.Text -> [Format] -> Data
dataFromSource :: Text -> [Format] -> Data
dataFromSource Text
sourceName [Format]
fmts =
  let kvs :: [LabelledSpec]
kvs = (Text
"name" Text -> Text -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
sourceName)
            LabelledSpec -> [LabelledSpec] -> [LabelledSpec]
forall a. a -> [a] -> [a]
: if [Format] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
null [Format]
fmts
              then []
              else [(Text
"format", [LabelledSpec] -> Value
object ((Format -> [LabelledSpec]) -> [Format] -> [LabelledSpec]
forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
concatMap Format -> [LabelledSpec]
formatProperty [Format]
fmts))]
  in (VLProperty
VLData, [LabelledSpec] -> Value
object [LabelledSpec]
kvs)


{-|

Declare data source from a url. The url can be a local path on a web server
or an external http(s) url. Used to create a data ( property, specification ) pair.
An optional list of field formatting instructions can be provided as the second
parameter or an empty list to use the default formatting. See the
<https://vega.github.io/vega-lite/docs/data.html#format Vega-Lite documentation>
for details.

@
'dataFromUrl' "data/weather.csv" [ 'Parse' [ ( "date", 'FoDate' "%Y-%m-%d %H:%M" ) ] ]
@
-}
-- TODO: should this use a URL type?
dataFromUrl :: T.Text -> [Format] -> Data
dataFromUrl :: Text -> [Format] -> Data
dataFromUrl Text
url [Format]
fmts =
  let kvs :: [LabelledSpec]
kvs = (Text
"url" Text -> Text -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
url)
            LabelledSpec -> [LabelledSpec] -> [LabelledSpec]
forall a. a -> [a] -> [a]
: if [Format] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
null [Format]
fmts
              then []
              else [(Text
"format", [LabelledSpec] -> Value
object ((Format -> [LabelledSpec]) -> [Format] -> [LabelledSpec]
forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
concatMap Format -> [LabelledSpec]
formatProperty [Format]
fmts))]
  in (VLProperty
VLData, [LabelledSpec] -> Value
object [LabelledSpec]
kvs)


{-|

Generate a sequence of numbers as a data source. The resulting
sequence will have the name @\"data\"@. To give it an alternative name use
'dataSequenceAs'.

@
myData = 'dataSequence' 0 6.28 0.1
@

@since 0.4.0.0

-}
dataSequence ::
  Double     -- ^ start of the sequence (inclusive)
  -> Double  -- ^ end of the sequence (exclusive)
  -> Double  -- ^ step size
  -> Data
dataSequence :: Double -> Double -> Double -> Data
dataSequence Double
start Double
stop Double
step =
  let vals :: [LabelledSpec]
vals = [(Text
"sequence", [LabelledSpec] -> Value
object [LabelledSpec]
svals)]
      svals :: [LabelledSpec]
svals = [ Text
"start" Text -> Double -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double
start
              , Text
"stop" Text -> Double -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double
stop
              , Text
"step" Text -> Double -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double
step
              ]

  in (VLProperty
VLData, [LabelledSpec] -> Value
object [LabelledSpec]
vals)


{-|

Generate a sequence of numbers as a named data source. This extends
'dataSequence' by allowing you to name the data source.

@
myTheta = 'dataSequenceAs' 0 6.28 0.1 \"theta\"
@

@since 0.4.0.0

-}
dataSequenceAs ::
  Double     -- ^ start of the sequence (inclusive)
  -> Double  -- ^ end of the sequence (exclusive)
  -> Double  -- ^ step size
  -> FieldName  -- ^ The name of the data source
  -> Data
dataSequenceAs :: Double -> Double -> Double -> Text -> Data
dataSequenceAs Double
start Double
stop Double
step Text
outName =
  let vals :: [LabelledSpec]
vals = [ Text
"sequence" Text -> Value -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= [LabelledSpec] -> Value
object [LabelledSpec]
svals ]
      svals :: [LabelledSpec]
svals = [ Text
"start" Text -> Double -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double
start
              , Text
"stop" Text -> Double -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double
stop
              , Text
"step" Text -> Double -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Double
step
              , Text
"as" Text -> Text -> LabelledSpec
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
.= Text
outName
              ]

  in (VLProperty
VLData, [LabelledSpec] -> Value
object [LabelledSpec]
vals)