Small Viz Fixes (#14447)

- Fix bug with XML in table viz (was erroring as not JSON but JS Object).
- Fix single column in scatter plot issue.
- Fix database source for scatter plot (both Column and Table).
- Fix for Geo Map with database source.

Author: jdunkerley

distribution/lib/Standard/Base/0.0.0-dev/src/Network/Email/Email_Address.enso

@@ -21,7 +21,7 @@ type Email_Address
        ---
     default_widget (display : Display = ..Always) -> Widget =
         name = [Option "Address" "'[email protected]'"]
-        name_address = [Option "Name And Address" "..Address '[email protected]' 'Name'"]
+        name_address = [Option "Name And Address" "(..Address '[email protected]' 'Name')"]
         values = name + name_address
         Single_Choice values=values display=display
 

distribution/lib/Standard/Visualization/0.0.0-dev/src/Geo_Map.enso

@@ -1,7 +1,10 @@
 from Standard.Base import all
 
+import Standard.Table.In_Memory_Table.In_Memory_Table
 from Standard.Table import Table
 
+import Standard.Database.DB_Table.DB_Table
+
 import project.Helpers
 from project.Helpers import time_visualization
 
@@ -33,5 +36,6 @@ json_from_table table =
 process_to_json_text : Any -> Text
 process_to_json_text value = time_visualization Geo_Map ("process_to_json_text: " + value.to_display_text) <|
     case value of
-        _ : Table -> json_from_table value . to_text
+        _ : DB_Table -> json_from_table (value.read (..First 15000)) . to_text
+        _ : In_Memory_Table -> json_from_table value . to_text
         _ -> value.to_json

distribution/lib/Standard/Visualization/0.0.0-dev/src/Scatter_Plot.enso

@@ -1,7 +1,11 @@
 from Standard.Base import all
 
+import Standard.Table.In_Memory_Table.In_Memory_Table
 from Standard.Table import Column, Table
 
+import Standard.Database.DB_Column.DB_Column
+import Standard.Database.DB_Table.DB_Table
+
 import project.Helpers
 from project.Helpers import time_visualization
 
@@ -11,7 +15,7 @@ from project.Helpers import time_visualization
    Gets the x column from a table.
    This is either the column named 'X' or the left most column.
 x_column : Table -> Column
-x_column table =
+x_column table = if table.column_count==1 then Nothing else
     by_name = table.get 'X' (table.get 'x')
     if Nothing != by_name then by_name else
         c = table.at 0
@@ -22,7 +26,7 @@ x_column table =
    private: true
    ---
 json_from_table : Table -> Vector Integer | Nothing -> Integer | Nothing -> Text
-json_from_table table bounds limit =
+json_from_table table bounds limit = if table.column_count==1 && table.column_names.first.equals_ignore_case "x" then json_from_table (table.rename_columns ["Value"] . add_row_number "Index" . reorder_columns ["Index","Value"]) bounds limit else
     ## Get the x column
     col_x = x_column table
     if Nothing == col_x then json_from_table (table.add_row_number "x") bounds limit else
@@ -93,9 +97,13 @@ json_from_vector vec bounds limit =
     - `value`: the value to be visualized.
 process_to_json_text : Any -> Integer | Nothing -> Integer | Nothing -> Text
 process_to_json_text value bounds=Nothing limit=Nothing = time_visualization Scatter_Plot ("process_to_json_text: " + value.to_display_text) <|
+    ## If limit is Nothing will use 15,000 for in database operations
     json = case value of
-        _ : Table  -> json_from_table  value bounds limit
+        _ : DB_Table -> json_from_table (value.read (..First (limit.if_nothing 15000))) bounds limit
+        _ : DB_Column -> json_from_table (value.to_table.read (..First (limit.if_nothing 15000))) bounds limit
+        _ : In_Memory_Table -> json_from_table value bounds limit
+        _ : Column -> json_from_table value.to_table bounds limit
         _ : Vector -> json_from_vector value bounds limit
-        _ : Column -> json_from_table  value.to_table bounds limit
-        _          -> json_from_vector value.to_vector bounds limit
+        _ : Array -> json_from_vector value bounds limit
+        _ -> json_from_vector value.to_vector bounds limit
     json

distribution/lib/Standard/Visualization/0.0.0-dev/src/Table/Visualization.enso

@@ -196,7 +196,8 @@ make_json_for_xml_element xml_element max_items type:Text="XML_Element" =
     data = ["data", [map_vector.map .first, map_vector.map .second, map_vector.map i-> i.at 2]]
     child_node_action = if type == "XML_Element" then "get" else "get_child_element"
     get_child_node_fields = [["get_child_node_action", child_node_action + " {{#key}}"], ["get_child_node_link_name", "key"]]
-    JS_Object.from_pairs <| [header, data, all_rows, ["type", type]] + get_child_node_fields
+    js_object = JS_Object.from_pairs <| [header, data, all_rows, ["type", type]] + get_child_node_fields
+    js_object.to_json
 
 private _make_json_for_db_table t max_rows is_column =
     dataframe = t.read (..First max_rows)