"Error: Trace type must be one of the following:" produces an unordered list of trace types

If a user supplies an incorrect trace type the error message includes an unordered list of trace types that is difficult to read

#> Loading required package: ggplot2
#> 
#> Attaching package: 'plotly'
#> The following object is masked from 'package:ggplot2':
#> 
#>     last_plot
#> The following object is masked from 'package:stats':
#> 
#>     filter
#> The following object is masked from 'package:graphics':
#> 
#>     layout
iris %>% 
  plot_ly() %>% 
  add_trace(x = ~Petal.Length,
            y = ~Petal.Width,
            type = "non-existant-trace-type")
#> Error: Trace type must be one of the following: 
#> 'scatter', 'bar', 'box', 'heatmap', 'histogram', 'histogram2d', 'histogram2dcontour', 'contour', 'scatterternary', 'violin', 'funnel', 'waterfall', 'image', 'pie', 'sunburst', 'treemap', 'funnelarea', 'scatter3d', 'surface', 'isosurface', 'volume', 'mesh3d', 'cone', 'streamtube', 'scattergeo', 'choropleth', 'scattergl', 'splom', 'pointcloud', 'heatmapgl', 'parcoords', 'parcats', 'scattermapbox', 'choroplethmapbox', 'densitymapbox', 'sankey', 'indicator', 'table', 'carpet', 'scattercarpet', 'contourcarpet', 'ohlc', 'candlestick', 'scatterpolar', 'scatterpolargl', 'barpolar', 'area'

No file or test is named in the issue. Reproduce the invalid type example, then locate the code that assembles the trace-type error; done means the supported trace types are presented in a readable list and the invalid-type error remains clear.