Nothing
R/set_table_details.R
In flourishcharts: 'Flourish' for 'R' and 'Python'
Defines functions
set_table_details
Documented in
set_table_details
#' Set table chart details
#' @name set_table_details
#' @param table_min_width Min width. Flourish type hint: number, defaults to `NULL`
#' @param table_border_width Border. Flourish type hint: number, defaults to `NULL`
#' @param table_border_color Border color. Flourish type hint: color, defaults to `NULL`
#' @param sorting_enabled Sortable columns. Choices: all, none, custom. Determines whether a viewer can sort the table by clicking on the column headers. Custom allows the user only to sort listed columns. Flourish type hint: string, defaults to `NULL`
#' @param sorting_custom_columns Columns to make sortable. Write each column name you want to make sortable on a new line. Flourish type hint: text, defaults to `NULL`
#' @param pagination_amount Rows per page. If you dont want pagination, set this number to a value greater than the number of rows in your data. Flourish type hint: number, defaults to `NULL`
#' @param markdown_enabled Cell text styling. Choices: `TRUE`, `FALSE`. Enables Markdown for your cells. For example for _italic_, **bold** text. Flourish type hint: boolean, defaults to `NULL`
#' @param cell_height Min height. Flourish type hint: number, defaults to `NULL`
#' @param cell_padding_vertical Padding vertical. Flourish type hint: number, defaults to `NULL`
#' @param cell_padding_horizontal Padding horizontal. Flourish type hint: number, defaults to `NULL`
#' @param cell_wrap Wrap text in cell. Flourish type hint: boolean, defaults to `NULL`
#' @param cell_horizontal_alignment Text. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param cell_numeric_horizontal_alignment Numbers. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param cell_vertical_alignment Vertical alignment. Choices: top, center, bottom. Flourish type hint: string, defaults to `NULL`
#' @param cell_fill_1 Main color. Flourish type hint: color, defaults to `NULL`
#' @param cell_fill_2 Stripe color. Flourish type hint: color, defaults to `NULL`
#' @param cell_fill_direction Stripe direction. Choices: horizontal, vertical. Flourish type hint: string, defaults to `NULL`
#' @param cell_fill_custom_enabled Color cells based on content. Flourish type hint: boolean, defaults to `NULL`
#' @param cell_fill_custom_categorical Categorical coloring. To color cells based on their content, use the format: cell-color/text-color : cell-text : column name OR row-number To specify a row, write "row-" followed by the row number from the datasheet. Its also possible to leave out the column name or row number if you want to target all the cells in the table For example: red/white : Chelsea Use * in place of cell-text to select an entire column or row. For example: #0000dd/#ffffff : Alabama #ffffff/#dddddd : * : State #0000dd/#ffffff : * : row-2 #ffffff/#dddddd : n/a : Capital Flourish type hint: text, defaults to `NULL`
#' @param cell_fill_custom_numeric Numeric coloring. Color cells numerically based on their content. For sequential coloring, use the format: min_color >> max_color : column_name : domain_min >> domain_max The domain is optional, for example: #ffffff >> #00ff00 : Population #ffffff >> #00ff00 : Population : 0 >> 1000000000 For diverging coloring, use the format: min_color >> midpt_color >> max_color : col_name : domain_min >> domain_mid >> domain_max The domain is optional, for example: #ffffff >> #00ff00 >> #ff00ff : Vote share #ffffff >> #00ff00 >> #ff00ff : Vote share : 0 >> 50 >> 100 Where both numeric and categorical coloring are used on a cell, categorical will override numeric. Flourish type hint: text, defaults to `NULL`
#' @param cell_fill_margin_vertical Vertical margin. Flourish type hint: number, defaults to `NULL`
#' @param cell_fill_margin_horizontal Horizontal margin. Flourish type hint: number, defaults to `NULL`
#' @param cell_border_mode Mode. Choices: none, horizontal, vertical, both. Flourish type hint: string, defaults to `NULL`
#' @param cell_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param cell_border_width Thickness. Flourish type hint: number, defaults to `NULL`
#' @param cell_border_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param cell_font_color Color. Flourish type hint: color, defaults to `NULL`
#' @param cell_link_color Link color. Flourish type hint: color, defaults to `NULL`
#' @param cell_font_size Size. Choices: 1, 1.25, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param cell_font_size_custom Custom. Specify a custom responsive font size in rems Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param column_width_mode Choices: auto, equal, fixed. Flourish type hint: string, defaults to `NULL`
#' @param column_widths Column widths. A comma separated lists of column widths. The first column will be the first number in the list. You can use "px" to set fixed widths or "%" to use percentage of total width. (e.g. 200px,200px,25%). Flourish type hint: string, defaults to `NULL`
#' @param header_font_weight Text weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param header_fill Background. Flourish type hint: color, defaults to `NULL`
#' @param header_font_color Color. Flourish type hint: color, defaults to `NULL`
#' @param header_underline_sorting Underline sorting header. Flourish type hint: boolean, defaults to `NULL`
#' @param header_style_default Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param header_height Height. Flourish type hint: number, defaults to `NULL`
#' @param header_padding Padding. Flourish type hint: number, defaults to `NULL`
#' @param header_horizontal_alignment Horizontal alignment. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param header_font_default Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param header_font_size Size. Flourish type hint: number, defaults to `NULL`
#' @param header_border_default Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param header_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param header_border_width Thickness. Flourish type hint: number, defaults to `NULL`
#' @param header_border_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param cell_image_height Height. as a percentage of the cell height. Flourish type hint: number, defaults to `NULL`
#' @param cell_image_radius Rounded corners. Sets the radius of the corner roundness (in %). A value of 50 means your image will show as a circle. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_enabled Choices: `TRUE`, `FALSE`. This setting will convert numerical values in your data to a simple visual bar chart. Flourish type hint: boolean, defaults to `NULL`
#' @param bar_columns_bar_1_columns Which columns should be part of the bar chart?. Just write down the column names on a new line. Flourish type hint: text, defaults to `NULL`
#' @param bar_columns_bar_1_column_name New column name. Flourish type hint: string, defaults to `NULL`
#' @param bar_columns_type Bar type. Choices: bars, columns. Flourish type hint: string, defaults to `NULL`
#' @param bar_columns_bar_1_height Max height. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_bar_1_width Width. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_bar_1_column_padding Padding. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_bar_1_proportional Mode. Choices: `FALSE`, `TRUE`. Display data in a proportional bar chart or a standard stacked bar chart with a fixed min and max, e.g. for negative numbers. Flourish type hint: boolean, defaults to `NULL`
#' @param bar_columns_bar_1_same_scale Consistent scale. If enabled, all the bar charts in the table will use the same X scale. Flourish type hint: boolean, defaults to `NULL`
#' @param bar_columns_bar_1_zero_line Show zero line. Flourish type hint: boolean, defaults to `NULL`
#' @param bar_columns_bar_1_zero_line_color Zero line color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_categorical_palette Palette. Flourish type hint: colors, defaults to `NULL`
#' @param chart_color_scale_categorical_extend Extend. Automatically generate additional colours when needed to avoid the palette colours being used more than once. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_categorical_custom_palette Custom overrides. Enter the label name for which you wish to set the color, followed by a colon and the desired color value. Colors can be set using Hex, RGB, color names or RGBA, if you want to set the opacity Multiple colors can be set using multiple lines. For example: Party 1: red Party 2: #4455AA Party 3: rgb(30,168,26). Flourish type hint: text, defaults to `NULL`
#' @param chart_color_scale_numeric_type Scale type. Choices: sequential, diverging. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_binning Choices: `FALSE`, `TRUE`. In linear mode, the color scale will run as a smooth gradient between 2 colors. In binned mode, the gradient will be divided in smaller blocks. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_bin_mode Binning mode. Choices: fixed, quantile, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_bin_count Number of bins. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_bin_thresholds Custom thresholds. Enter your desired thresholds, separating them with a ";". For instance, "5;10;15". Bins form as follows: From the datas minimum value (domain minimum) up to the first threshold. Between consecutive thresholds. From the last threshold to the datas maximum value (domain maximum). For "5;10;15", youll get four bins based on your datas range. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_sequential_palette Palette. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_sequential_reverse Reverse. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_sequential_custom_min Minimum color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_sequential_custom_max Maximum color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_sequential_color_space Color space. Choices: rgb, lab, hcl, hsl. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_sequential_custom_domain Domain. Choices: `FALSE`, `TRUE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_sequential_domain_min Min. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_sequential_domain_max Max. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_diverging_palette Palette. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_diverging_reverse Reverse. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_diverging_custom_min Minimum color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_diverging_custom_mid Midpoint color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_diverging_custom_max Maximum color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_diverging_color_space Color space. Choices: rgb, lab, hcl, hsl. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_diverging_custom_domain Domain. Choices: `FALSE`, `TRUE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_diverging_domain_min Min. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_diverging_domain_mid Mid. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_diverging_domain_max Max. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_bar_1_labels Labels. Choices: none, popup, inline. Flourish type hint: string, defaults to `NULL`
#' @param bar_columns_bar_1_label_size Inline label size. Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_show_legend Legend. Choices: `TRUE`, `FALSE`. A legend will not show with a single entry. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_legend_title_mode Title mode. Choices: auto, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_title Title. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_swatch_width Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_swatch_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_swatch_radius Roundness. The radius of the corners of the swatch (in pixels). Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_legend_items_padding Padding. Padding between legend items ( in rems ). Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_swatch_outline Outline. An optional outline for the swatch in the legend. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_legend_swatch_outline_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_legend_order_override Custom order override. Manually specify the order of legend entries (one entry per line). Flourish type hint: text, defaults to `NULL`
#' @param chart_legend_icon_height Height. Height of icon ( in rems ). Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_icon_color Color. Fallback color (icon color if not determined by template). Flourish type hint: color, defaults to `NULL`
#' @param chart_legend_max_width Max width. Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_orientation Orientation. Choices: horizontal, vertical. Flourish type hint: string, defaults to `NULL`
#' @param legend_position Legend position. Choices: above, below. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_alignment Alignment. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_orientation Orientation. Choices: horizontal, vertical. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_title_weight Title weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_text_weight Text weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_text_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_legend_container_text_size Size. Flourish type hint: number, defaults to `NULL`
#' @param line_columns_enabled Choices: `TRUE`, `FALSE`. This setting will convert numerical values in your data to a simple visual line chart. Flourish type hint: boolean, defaults to `NULL`
#' @param line_columns_line_1_columns Which columns should be part of the line chart?. Write down the column names on a new line. Flourish type hint: text, defaults to `NULL`
#' @param line_columns_line_1_column_name New column name. Flourish type hint: string, defaults to `NULL`
#' @param line_columns_line_1_width Width. Flourish type hint: number, defaults to `NULL`
#' @param line_columns_line_1_height Max height. Flourish type hint: number, defaults to `NULL`
#' @param line_columns_line_1_color Color. Flourish type hint: color, defaults to `NULL`
#' @param line_columns_line_1_area Area chart. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param line_columns_line_1_min_enabled Min. Choices: `TRUE`, `FALSE`. Use a fixed min value. Flourish type hint: boolean, defaults to `NULL`
#' @param line_columns_line_1_min Min value. Flourish type hint: number, defaults to `NULL`
#' @param line_columns_line_1_max_enabled Max. Choices: `TRUE`, `FALSE`. Use a fixed max value. Flourish type hint: boolean, defaults to `NULL`
#' @param line_columns_line_1_max Max value. Flourish type hint: number, defaults to `NULL`
#' @param mobile_view Mobile view. Choices: `FALSE`, `TRUE`. Flourish type hint: boolean, defaults to `NULL`
#' @param mobile_breakpoint Mobile breakpoint width. Flourish type hint: number, defaults to `NULL`
#' @param mobile_cell_font_size Text size. Choices: 1, 1.25, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param mobile_cell_font_size_custom Custom. Specify a custom responsive font size in rems Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param mobile_pagination_amount Rows per page. If you dont want pagination, set this number to a value greater than the number of rows in your data. Flourish type hint: number, defaults to `NULL`
#' @param search_enabled Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param search_mode Search mode. Choices: anywhere, start, whole. Anywhere : Search for the specified text anywhere in the cell Start : Search for the specified text at the beginning of the cell Whole : Search for the exact specified text in the cell. Flourish type hint: string, defaults to `NULL`
#' @param search_width Width. Width of search container. Flourish type hint: number, defaults to `NULL`
#' @param search_background_color Background. Flourish type hint: color, defaults to `NULL`
#' @param search_text_color Text color. Flourish type hint: color, defaults to `NULL`
#' @param search_placeholder Placeholder text. Flourish type hint: string, defaults to `NULL`
#' @param no_results_text Text when no results. Flourish type hint: string, defaults to `NULL`
#' @param search_hide_table Hide table before search. Flourish type hint: boolean, defaults to `NULL`
#' @param search_hide_published Hide search when published. Keeps the search box visible in the editor (e.g. for filtering in a story) but hides it in the published visualization or storyFlourish type hint: boolean, defaults to `NULL`
#' @param search_columns Columns to search. Choices: all, first, custom. Choose which columns you want to search through. You might want to narrow this down with big datasets to speed it up You can select specific columns by writing them down on a new line, like this: Column A Column B. Flourish type hint: string, defaults to `NULL`
#' @param search_columns_custom Flourish type hint: text, defaults to `NULL`
#' @param search_resize Resize table after searching. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param search_dropdown Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param search_dropdown_persistent Always show dropdown suggestions. Flourish type hint: boolean, defaults to `NULL`
#' @param search_val Search value. The current string value of the search box. Flourish type hint: hidden, defaults to `NULL`
#' @param chart_popup_show_popups Popups. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_is_custom Popup contents. Choices: `FALSE`, `TRUE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_custom_template Popup content. The text to appear in the popup. You can use `{{column_name}}` to add a value from your data. It must be in a selected column, but you can add columns to Metadata if you just want to include them for use in the popup. Advanced users can include HTML to apply layouts, formatting, images, etc. Flourish type hint: text, defaults to `NULL`
#' @param chart_popup_show_pointer Pointer. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_show_shadow Shadow. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_style_popups Custom styling. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_text_color Text colour. Flourish type hint: color, defaults to `NULL`
#' @param chart_popup_align Alignment. Choices: left, center, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_popup_text_size Font size. Flourish type hint: number, defaults to `NULL`
#' @param chart_popup_fill_color Fill colour. Flourish type hint: color, defaults to `NULL`
#' @param chart_popup_opacity Fill opacity. Flourish type hint: number, defaults to `NULL`
#' @param chart_popup_padding Padding. Flourish type hint: number, defaults to `NULL`
#' @param chart_popup_border_radius Radius. Corner radius of popup. Flourish type hint: number, defaults to `NULL`
#' @param chart_popup_max_width Max width. Flourish type hint: number, defaults to `NULL`
#' @param formatted_columns Columns to format. Write down the column names on a new line that you want to apply formatting to. Flourish type hint: text, defaults to `NULL`
#' @param chart_number_date_format_prefix Prefix. Text to place in front of a number. Flourish type hint: string, defaults to `NULL`
#' @param chart_number_date_format_suffix Suffix. Text to place after a number. Flourish type hint: string, defaults to `NULL`
#' @param chart_number_date_format_n_dec Decimal places. Decimal places. You can also enter a negative integer to round to a whole number with that many zeros. For example, -2 will round to the nearest hundred. Flourish type hint: number, defaults to `NULL`
#' @param chart_number_date_format_advanced Advanced. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_number_date_format_negative_sign Styling of negative numbers. Choices: -$nk, $-nk, ($nk), $(n)k, none. Flourish type hint: string, defaults to `NULL`
#' @param chart_number_date_format_strip_zeros Remove trailing zeros. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_number_date_format_strip_separator Hide thousands separator below 10,000. Turn off if you want four-digit numbers to include a separator, e.g. 1,234 rather than 1234. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_number_date_format_transform_labels Multiply/divide values. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_number_date_format_transform Choices: multiply, divide, exponentiate. Flourish type hint: string, defaults to `NULL`
#' @param chart_number_date_format_multiply_divide_constant Flourish type hint: number, defaults to `NULL`
#' @param chart_number_date_format_exponentiate_constant Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_body_font Main font. This font will apply to the whole graphic by default. You can optionally change the font for the title, subtitle, footer, etc in the Header and Footer settings panels. Flourish type hint: font, defaults to `NULL`
#' @param chart_layout_font_color Text color. This color will apply to the whole graphic by default, You can optionally change the color for individual text elements, in other settings panels. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_background_color_enabled Color. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_background_image_enabled Image. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_background_color Background color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_background_image_src Image URL. Flourish type hint: url, defaults to `NULL`
#' @param chart_layout_background_image_size Size. Choices: cover, contain, auto, 100% 100%. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_background_image_position Position. Choices: top left, top center, top right, center left, center center, center right, bottom left, bottom center, bottom right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_max_width_target Maximum width. Choices: none, wrapper, primary. Apply a maximum width to just the main graphic or everything (main graphic plus header, footer, etc). Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_max_width Maximum width. Leave blank to stretch to container width. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_max_width_align Align. Choices: left, center, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_layout_order Layout order. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_space_between_sections Space between sections. Choices: 0.5, 1, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_space_between_sections_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_margin_top Top. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_margin_right Right. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_margin_bottom Bottom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_margin_left Left. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_enabled Show borders around visualisation. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_border_top_width Top. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_top_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_border_top_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_border_right_width Right. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_right_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_border_right_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_border_bottom_width Bottom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_bottom_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_border_bottom_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_border_left_width Left. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_left_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_border_left_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_read_direction Read direction. Choices: ltr, rtl. This will change the reading direction of the main text elements on the page. Its not possible to adjust this on all elements, such as axes. Note that when direction is set to right to left any alignment icons will be reversed. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_font_size_mobile_small Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_font_size_mobile_big Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_font_size_tablet Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_font_size_desktop Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_font_size_big_screen Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_mobile_small Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_mobile_big Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_tablet Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_desktop Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_big_screen Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_align Alignment. Choices: left, center, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_title Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_title_styling Styling. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_title_font Title Font. Flourish type hint: font, defaults to `NULL`
#' @param chart_layout_title_size Size. Choices: 1.4, 1.6, 2, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_title_size_custom Custom. Specify a custom responsive font size in rems The best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_title_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_title_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_title_line_height Line height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_title_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_title_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_subtitle Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_subtitle_styling Styling. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_subtitle_font Subtitle Font. Flourish type hint: font, defaults to `NULL`
#' @param chart_layout_subtitle_size Size. Choices: 1.4, 1.6, 2, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_subtitle_size_custom Custom. Specify a custom responsive font size in rems The best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_subtitle_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_subtitle_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_subtitle_line_height Line height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_subtitle_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_subtitle_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_text Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_header_text_styling Styling. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_header_text_size Size. Choices: 1.2, 1.4, 1.6, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_text_size_custom Custom. Specify a custom responsive font size in rems The best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_text_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_text_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_header_text_line_height Line height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_text_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_text_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_border Choices: top, bottom, top_and_bottom, none. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_border_width Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_header_border_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_border_space Space. Space between border and header text. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_enabled Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_header_logo_src Image. Flourish type hint: url, defaults to `NULL`
#' @param chart_layout_header_logo_alt Alt text. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_link_url Link. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_align Align. Choices: inside, outside. Align logo inside either the header or the main visualization container. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_position_inside Position. Choices: top, left, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_position_outside Position. Choices: left, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_margin_top Top. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_margin_right Right. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_margin_bottom Bottom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_margin_left Left. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_align Alignment. Choices: left, center, right, justify. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_text_size Size. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_text_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_footer_styling Advanced footer styles. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_footer_font Font. Flourish type hint: font, defaults to `NULL`
#' @param chart_layout_footer_text_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_name Source name. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_url Source url. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_multiple_sources Multiple sources. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_source_name_2 Source name. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_url_2 Source url. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_name_3 Source name. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_url_3 Source url. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_label Source label. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_note Note. To add the time/date stamp of when the data was last updated add `{{data_last_updated}}`. For example, "Last updated at `{{data_last_updated}}`". To customize the format, use the advanced options below. Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_footer_note_secondary Note (secondary). The secondary note is placed below the source and primary note. To add the time/date stamp of when the data was last updated add `{{data_last_updated}}`. For example, "Last updated at `{{data_last_updated}}`". To customize the format, use the advanced options below. Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_advanced_note_styling Advanced. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_footer_timestamp_format Time/date stamp formatting. Choices: %H:%M:%S, %I:%M %p, %H:%M, %H:%M %p, %H:%M:%S, %d %b %Y, %H:%M, %d %b %Y, %H:%M, %d/%m/%Y, %H:%M, %m/%d/%Y, %H:%M, %d-%m-%Y, %H:%M, %m-%d-%Y, %d %b %Y, %m/%d/%Y, %d/%m/%Y, %m-%d-%Y, %d-%m-%Y, %Y-%m-%d, %Y-%m-%d %H:%M:%S. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_logo_enabled Image. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_footer_logo_src Image. Flourish type hint: url, defaults to `NULL`
#' @param chart_layout_footer_logo_src_light Image (light version). If provided this version will be used whenever the background color is dark. Flourish type hint: hidden, defaults to `NULL`
#' @param chart_layout_footer_logo_alt Alt text. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_logo_link_url Link. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_logo_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_logo_margin Margin. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_logo_order Position. Choices: left, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_align_vertical V. align. Choices: flex-start, center, flex-end. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_border Choices: top, bottom, top_and_bottom, none. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_border_width Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_footer_border_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_border_space Space. Space between border and footer text. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_screenreader_text_primary Screenreader description. A text alternative to the visual content that will only be visible to screenreaders, e.g. The line chart shows China consistently higher than the other countries since 1990. Do not replicate your title, since that will also be read by screenreaders. Flourish type hint: text, defaults to `NULL`
#' @param chart_layout_screenreader_label Screenreader label. A short text label given to the main Flourish embed wrapper to provide an accessible name that is only visible to screenreaders Added in the form of an "aria-label". Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_screenreader_hide_primary Screenreader mode for main visual container. Choices: `TRUE`, `FALSE`. Whether the main visual container is visible to screenreaders (Text in the header and footer are always available to screenreaders.). Flourish type hint: boolean, defaults to `NULL`
#' @param chart_url_settings_enabled Update project from URL. Make it possible to change the visualizations settings/state from the URL hash, for example when embedding in an iframe or popup panel. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_url_settings_whitelist Allowed state properties. List each state property you want to make changeable with the URL hash See the template page for a full list of state properties. Add one property name per line. Use dot format for nested properties, e.g. `layout.background_color`. Flourish type hint: text, defaults to `NULL`
#' @param . The prior Flourish object. No need to specify name if piping graph as the graph will take the first argument (i.e. the prior existing graph).
#' @return A Flourish chart
#' @examples
#' try(
#' flourish(chart_type = "table", api_key = Sys.getenv("FLOURISH_API_KEY")) |>
#' bind_table_data(gapminder) |>
#' set_table_details()
#' )
#' @export
set_table_details <- function(
.,
table_min_width = NULL,
table_border_width = NULL,
table_border_color = NULL,
sorting_enabled = NULL,
sorting_custom_columns = NULL,
pagination_amount = NULL,
markdown_enabled = NULL,
cell_height = NULL,
cell_padding_vertical = NULL,
cell_padding_horizontal = NULL,
cell_wrap = NULL,
cell_horizontal_alignment = NULL,
cell_numeric_horizontal_alignment = NULL,
cell_vertical_alignment = NULL,
cell_fill_1 = NULL,
cell_fill_2 = NULL,
cell_fill_direction = NULL,
cell_fill_custom_enabled = NULL,
cell_fill_custom_categorical = NULL,
cell_fill_custom_numeric = NULL,
cell_fill_margin_vertical = NULL,
cell_fill_margin_horizontal = NULL,
cell_border_mode = NULL,
cell_border_color = NULL,
cell_border_width = NULL,
cell_border_style = NULL,
cell_font_color = NULL,
cell_link_color = NULL,
cell_font_size = NULL,
cell_font_size_custom = NULL,
column_width_mode = NULL,
column_widths = NULL,
header_font_weight = NULL,
header_fill = NULL,
header_font_color = NULL,
header_underline_sorting = NULL,
header_style_default = NULL,
header_height = NULL,
header_padding = NULL,
header_horizontal_alignment = NULL,
header_font_default = NULL,
header_font_size = NULL,
header_border_default = NULL,
header_border_color = NULL,
header_border_width = NULL,
header_border_style = NULL,
cell_image_height = NULL,
cell_image_radius = NULL,
bar_columns_enabled = NULL,
bar_columns_bar_1_columns = NULL,
bar_columns_bar_1_column_name = NULL,
bar_columns_type = NULL,
bar_columns_bar_1_height = NULL,
bar_columns_bar_1_width = NULL,
bar_columns_bar_1_column_padding = NULL,
bar_columns_bar_1_proportional = NULL,
bar_columns_bar_1_same_scale = NULL,
bar_columns_bar_1_zero_line = NULL,
bar_columns_bar_1_zero_line_color = NULL,
chart_color_scale_categorical_palette = NULL,
chart_color_scale_categorical_extend = NULL,
chart_color_scale_categorical_custom_palette = NULL,
chart_color_scale_numeric_type = NULL,
chart_color_scale_binning = NULL,
chart_color_scale_bin_mode = NULL,
chart_color_scale_bin_count = NULL,
chart_color_scale_bin_thresholds = NULL,
chart_color_scale_sequential_palette = NULL,
chart_color_scale_sequential_reverse = NULL,
chart_color_scale_sequential_custom_min = NULL,
chart_color_scale_sequential_custom_max = NULL,
chart_color_scale_sequential_color_space = NULL,
chart_color_scale_sequential_custom_domain = NULL,
chart_color_scale_sequential_domain_min = NULL,
chart_color_scale_sequential_domain_max = NULL,
chart_color_scale_diverging_palette = NULL,
chart_color_scale_diverging_reverse = NULL,
chart_color_scale_diverging_custom_min = NULL,
chart_color_scale_diverging_custom_mid = NULL,
chart_color_scale_diverging_custom_max = NULL,
chart_color_scale_diverging_color_space = NULL,
chart_color_scale_diverging_custom_domain = NULL,
chart_color_scale_diverging_domain_min = NULL,
chart_color_scale_diverging_domain_mid = NULL,
chart_color_scale_diverging_domain_max = NULL,
bar_columns_bar_1_labels = NULL,
bar_columns_bar_1_label_size = NULL,
chart_legend_show_legend = NULL,
chart_legend_title_mode = NULL,
chart_legend_title = NULL,
chart_legend_swatch_width = NULL,
chart_legend_swatch_height = NULL,
chart_legend_swatch_radius = NULL,
chart_legend_legend_items_padding = NULL,
chart_legend_swatch_outline = NULL,
chart_legend_swatch_outline_color = NULL,
chart_legend_order_override = NULL,
chart_legend_icon_height = NULL,
chart_legend_icon_color = NULL,
chart_legend_max_width = NULL,
chart_legend_orientation = NULL,
legend_position = NULL,
chart_legend_container_alignment = NULL,
chart_legend_container_orientation = NULL,
chart_legend_container_title_weight = NULL,
chart_legend_container_text_weight = NULL,
chart_legend_container_text_color = NULL,
chart_legend_container_text_size = NULL,
line_columns_enabled = NULL,
line_columns_line_1_columns = NULL,
line_columns_line_1_column_name = NULL,
line_columns_line_1_width = NULL,
line_columns_line_1_height = NULL,
line_columns_line_1_color = NULL,
line_columns_line_1_area = NULL,
line_columns_line_1_min_enabled = NULL,
line_columns_line_1_min = NULL,
line_columns_line_1_max_enabled = NULL,
line_columns_line_1_max = NULL,
mobile_view = NULL,
mobile_breakpoint = NULL,
mobile_cell_font_size = NULL,
mobile_cell_font_size_custom = NULL,
mobile_pagination_amount = NULL,
search_enabled = NULL,
search_mode = NULL,
search_width = NULL,
search_background_color = NULL,
search_text_color = NULL,
search_placeholder = NULL,
no_results_text = NULL,
search_hide_table = NULL,
search_hide_published = NULL,
search_columns = NULL,
search_columns_custom = NULL,
search_resize = NULL,
search_dropdown = NULL,
search_dropdown_persistent = NULL,
search_val = NULL,
chart_popup_show_popups = NULL,
chart_popup_is_custom = NULL,
chart_popup_custom_template = NULL,
chart_popup_show_pointer = NULL,
chart_popup_show_shadow = NULL,
chart_popup_style_popups = NULL,
chart_popup_text_color = NULL,
chart_popup_align = NULL,
chart_popup_text_size = NULL,
chart_popup_fill_color = NULL,
chart_popup_opacity = NULL,
chart_popup_padding = NULL,
chart_popup_border_radius = NULL,
chart_popup_max_width = NULL,
formatted_columns = NULL,
chart_number_date_format_prefix = NULL,
chart_number_date_format_suffix = NULL,
chart_number_date_format_n_dec = NULL,
chart_number_date_format_advanced = NULL,
chart_number_date_format_negative_sign = NULL,
chart_number_date_format_strip_zeros = NULL,
chart_number_date_format_strip_separator = NULL,
chart_number_date_format_transform_labels = NULL,
chart_number_date_format_transform = NULL,
chart_number_date_format_multiply_divide_constant = NULL,
chart_number_date_format_exponentiate_constant = NULL,
chart_layout_body_font = NULL,
chart_layout_font_color = NULL,
chart_layout_background_color_enabled = NULL,
chart_layout_background_image_enabled = NULL,
chart_layout_background_color = NULL,
chart_layout_background_image_src = NULL,
chart_layout_background_image_size = NULL,
chart_layout_background_image_position = NULL,
chart_layout_max_width_target = NULL,
chart_layout_max_width = NULL,
chart_layout_max_width_align = NULL,
chart_layout_layout_order = NULL,
chart_layout_space_between_sections = NULL,
chart_layout_space_between_sections_custom = NULL,
chart_layout_margin_top = NULL,
chart_layout_margin_right = NULL,
chart_layout_margin_bottom = NULL,
chart_layout_margin_left = NULL,
chart_layout_border_enabled = NULL,
chart_layout_border_top_width = NULL,
chart_layout_border_top_style = NULL,
chart_layout_border_top_color = NULL,
chart_layout_border_right_width = NULL,
chart_layout_border_right_style = NULL,
chart_layout_border_right_color = NULL,
chart_layout_border_bottom_width = NULL,
chart_layout_border_bottom_style = NULL,
chart_layout_border_bottom_color = NULL,
chart_layout_border_left_width = NULL,
chart_layout_border_left_style = NULL,
chart_layout_border_left_color = NULL,
chart_layout_read_direction = NULL,
chart_layout_font_size_mobile_small = NULL,
chart_layout_font_size_mobile_big = NULL,
chart_layout_font_size_tablet = NULL,
chart_layout_font_size_desktop = NULL,
chart_layout_font_size_big_screen = NULL,
chart_layout_breakpoint_mobile_small = NULL,
chart_layout_breakpoint_mobile_big = NULL,
chart_layout_breakpoint_tablet = NULL,
chart_layout_breakpoint_desktop = NULL,
chart_layout_breakpoint_big_screen = NULL,
chart_layout_header_align = NULL,
chart_layout_title = NULL,
chart_layout_title_styling = NULL,
chart_layout_title_font = NULL,
chart_layout_title_size = NULL,
chart_layout_title_size_custom = NULL,
chart_layout_title_weight = NULL,
chart_layout_title_color = NULL,
chart_layout_title_line_height = NULL,
chart_layout_title_space_above = NULL,
chart_layout_title_space_above_custom = NULL,
chart_layout_subtitle = NULL,
chart_layout_subtitle_styling = NULL,
chart_layout_subtitle_font = NULL,
chart_layout_subtitle_size = NULL,
chart_layout_subtitle_size_custom = NULL,
chart_layout_subtitle_weight = NULL,
chart_layout_subtitle_color = NULL,
chart_layout_subtitle_line_height = NULL,
chart_layout_subtitle_space_above = NULL,
chart_layout_subtitle_space_above_custom = NULL,
chart_layout_header_text = NULL,
chart_layout_header_text_styling = NULL,
chart_layout_header_text_size = NULL,
chart_layout_header_text_size_custom = NULL,
chart_layout_header_text_weight = NULL,
chart_layout_header_text_color = NULL,
chart_layout_header_text_line_height = NULL,
chart_layout_header_text_space_above = NULL,
chart_layout_header_text_space_above_custom = NULL,
chart_layout_header_border = NULL,
chart_layout_header_border_width = NULL,
chart_layout_header_border_color = NULL,
chart_layout_header_border_style = NULL,
chart_layout_header_border_space = NULL,
chart_layout_header_logo_enabled = NULL,
chart_layout_header_logo_src = NULL,
chart_layout_header_logo_alt = NULL,
chart_layout_header_logo_link_url = NULL,
chart_layout_header_logo_height = NULL,
chart_layout_header_logo_align = NULL,
chart_layout_header_logo_position_inside = NULL,
chart_layout_header_logo_position_outside = NULL,
chart_layout_header_logo_margin_top = NULL,
chart_layout_header_logo_margin_right = NULL,
chart_layout_header_logo_margin_bottom = NULL,
chart_layout_header_logo_margin_left = NULL,
chart_layout_footer_align = NULL,
chart_layout_footer_text_size = NULL,
chart_layout_footer_text_color = NULL,
chart_layout_footer_styling = NULL,
chart_layout_footer_font = NULL,
chart_layout_footer_text_weight = NULL,
chart_layout_source_name = NULL,
chart_layout_source_url = NULL,
chart_layout_multiple_sources = NULL,
chart_layout_source_name_2 = NULL,
chart_layout_source_url_2 = NULL,
chart_layout_source_name_3 = NULL,
chart_layout_source_url_3 = NULL,
chart_layout_source_label = NULL,
chart_layout_footer_note = NULL,
chart_layout_footer_note_secondary = NULL,
chart_layout_advanced_note_styling = NULL,
chart_layout_footer_timestamp_format = NULL,
chart_layout_footer_logo_enabled = NULL,
chart_layout_footer_logo_src = NULL,
chart_layout_footer_logo_src_light = NULL,
chart_layout_footer_logo_alt = NULL,
chart_layout_footer_logo_link_url = NULL,
chart_layout_footer_logo_height = NULL,
chart_layout_footer_logo_margin = NULL,
chart_layout_footer_logo_order = NULL,
chart_layout_footer_align_vertical = NULL,
chart_layout_footer_border = NULL,
chart_layout_footer_border_width = NULL,
chart_layout_footer_border_color = NULL,
chart_layout_footer_border_style = NULL,
chart_layout_footer_border_space = NULL,
chart_layout_screenreader_text_primary = NULL,
chart_layout_screenreader_label = NULL,
chart_layout_screenreader_hide_primary = NULL,
chart_url_settings_enabled = NULL,
chart_url_settings_whitelist = NULL) {
details_error(., "table")
old_list <- .
new_list <- list()
if (isTRUE(old_list$x$template != "@flourish/table")) {
stop("`set_table_details()` is not supported for this chart type.")
}
new_list$x$state$table_min_width <- table_min_width
new_list$x$state$table_border_width <- table_border_width
new_list$x$state$table_border_color <- table_border_color
list_sorting_enabled <- c("all", "none", "custom", NULL)
if (!is.null(sorting_enabled)) {
if (!sorting_enabled %in% list_sorting_enabled) {
stop("`sorting_enabled` must be one of: c('all', 'none', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"all": "all", "none": "none", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"all": "all", "none": "none", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && sorting_enabled %in% names(named_list)) {
if (is.logical(sorting_enabled)) {
sorting_enabled <- as.character(sorting_enabled)
}
named_list_value <- unname(named_list[sorting_enabled])[[1]]
new_list$x$state$sorting$enabled <- named_list_value
}
}
}
}
if (length(sorting_custom_columns) > 1) {
new_list$x$state$sorting$custom_columns <- paste(sorting_custom_columns, collapse = "\n")
} else {
new_list$x$state$sorting$custom_columns <- sorting_custom_columns
}
new_list$x$state$pagination_amount <- pagination_amount
list_markdown_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(markdown_enabled)) {
if (!markdown_enabled %in% list_markdown_enabled) {
stop("`markdown_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && markdown_enabled %in% names(named_list)) {
if (is.logical(markdown_enabled)) {
markdown_enabled <- as.character(markdown_enabled)
}
named_list_value <- unname(named_list[markdown_enabled])[[1]]
new_list$x$state$markdown_enabled <- named_list_value
}
}
}
}
new_list$x$state$cell_height <- cell_height
new_list$x$state$cell_padding_vertical <- cell_padding_vertical
new_list$x$state$cell_padding_horizontal <- cell_padding_horizontal
new_list$x$state$cell_wrap <- cell_wrap
list_cell_horizontal_alignment <- c("start", "center", "end", NULL)
if (!is.null(cell_horizontal_alignment)) {
if (!cell_horizontal_alignment %in% list_cell_horizontal_alignment) {
stop("`cell_horizontal_alignment` must be one of: c('start', 'center', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_horizontal_alignment %in% names(named_list)) {
if (is.logical(cell_horizontal_alignment)) {
cell_horizontal_alignment <- as.character(cell_horizontal_alignment)
}
named_list_value <- unname(named_list[cell_horizontal_alignment])[[1]]
new_list$x$state$cell_horizontal_alignment <- named_list_value
}
}
}
}
list_cell_numeric_horizontal_alignment <- c("start", "center", "end", NULL)
if (!is.null(cell_numeric_horizontal_alignment)) {
if (!cell_numeric_horizontal_alignment %in% list_cell_numeric_horizontal_alignment) {
stop("`cell_numeric_horizontal_alignment` must be one of: c('start', 'center', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_numeric_horizontal_alignment %in% names(named_list)) {
if (is.logical(cell_numeric_horizontal_alignment)) {
cell_numeric_horizontal_alignment <- as.character(cell_numeric_horizontal_alignment)
}
named_list_value <- unname(named_list[cell_numeric_horizontal_alignment])[[1]]
new_list$x$state$cell_numeric_horizontal_alignment <- named_list_value
}
}
}
}
list_cell_vertical_alignment <- c("top", "center", "bottom", NULL)
if (!is.null(cell_vertical_alignment)) {
if (!cell_vertical_alignment %in% list_cell_vertical_alignment) {
stop("`cell_vertical_alignment` must be one of: c('top', 'center', 'bottom')")
} else {
if (length(jsonlite::fromJSON('{"top": "top", "center": "center", "bottom": "bottom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top": "top", "center": "center", "bottom": "bottom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_vertical_alignment %in% names(named_list)) {
if (is.logical(cell_vertical_alignment)) {
cell_vertical_alignment <- as.character(cell_vertical_alignment)
}
named_list_value <- unname(named_list[cell_vertical_alignment])[[1]]
new_list$x$state$cell_vertical_alignment <- named_list_value
}
}
}
}
new_list$x$state$cell_fill_1 <- cell_fill_1
new_list$x$state$cell_fill_2 <- cell_fill_2
list_cell_fill_direction <- c("horizontal", "vertical", NULL)
if (!is.null(cell_fill_direction)) {
if (!cell_fill_direction %in% list_cell_fill_direction) {
stop("`cell_fill_direction` must be one of: c('horizontal', 'vertical')")
} else {
if (length(jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')) > 1) {
named_list <- jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_fill_direction %in% names(named_list)) {
if (is.logical(cell_fill_direction)) {
cell_fill_direction <- as.character(cell_fill_direction)
}
named_list_value <- unname(named_list[cell_fill_direction])[[1]]
new_list$x$state$cell_fill_direction <- named_list_value
}
}
}
}
new_list$x$state$cell_fill_custom_enabled <- cell_fill_custom_enabled
if (length(cell_fill_custom_categorical) > 1) {
new_list$x$state$cell_fill_custom_categorical <- paste(cell_fill_custom_categorical, collapse = "\n")
} else {
new_list$x$state$cell_fill_custom_categorical <- cell_fill_custom_categorical
}
if (length(cell_fill_custom_numeric) > 1) {
new_list$x$state$cell_fill_custom_numeric <- paste(cell_fill_custom_numeric, collapse = "\n")
} else {
new_list$x$state$cell_fill_custom_numeric <- cell_fill_custom_numeric
}
new_list$x$state$cell_fill_margin_vertical <- cell_fill_margin_vertical
new_list$x$state$cell_fill_margin_horizontal <- cell_fill_margin_horizontal
list_cell_border_mode <- c("none", "horizontal", "vertical", "both", NULL)
if (!is.null(cell_border_mode)) {
if (!cell_border_mode %in% list_cell_border_mode) {
stop("`cell_border_mode` must be one of: c('none', 'horizontal', 'vertical', 'both')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "horizontal": "horizontal", "vertical": "vertical", "both": "both"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "horizontal": "horizontal", "vertical": "vertical", "both": "both"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_border_mode %in% names(named_list)) {
if (is.logical(cell_border_mode)) {
cell_border_mode <- as.character(cell_border_mode)
}
named_list_value <- unname(named_list[cell_border_mode])[[1]]
new_list$x$state$cell_border_mode <- named_list_value
}
}
}
}
new_list$x$state$cell_border_color <- cell_border_color
new_list$x$state$cell_border_width <- cell_border_width
list_cell_border_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(cell_border_style)) {
if (!cell_border_style %in% list_cell_border_style) {
stop("`cell_border_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_border_style %in% names(named_list)) {
if (is.logical(cell_border_style)) {
cell_border_style <- as.character(cell_border_style)
}
named_list_value <- unname(named_list[cell_border_style])[[1]]
new_list$x$state$cell_border_style <- named_list_value
}
}
}
}
new_list$x$state$cell_font_color <- cell_font_color
new_list$x$state$cell_link_color <- cell_link_color
list_cell_font_size <- c("1", "1.25", "1.5", "custom", NULL)
if (!is.null(cell_font_size)) {
if (!cell_font_size %in% list_cell_font_size) {
stop("`cell_font_size` must be one of: c('1', '1.25', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.25": "1.25", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.25": "1.25", "1.5": "1.5", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_font_size %in% names(named_list)) {
if (is.logical(cell_font_size)) {
cell_font_size <- as.character(cell_font_size)
}
named_list_value <- unname(named_list[cell_font_size])[[1]]
new_list$x$state$cell_font_size <- named_list_value
}
}
}
}
new_list$x$state$cell_font_size_custom <- cell_font_size_custom
list_column_width_mode <- c("auto", "equal", "fixed", NULL)
if (!is.null(column_width_mode)) {
if (!column_width_mode %in% list_column_width_mode) {
stop("`column_width_mode` must be one of: c('auto', 'equal', 'fixed')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "equal": "equal", "fixed": "fixed"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "equal": "equal", "fixed": "fixed"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && column_width_mode %in% names(named_list)) {
if (is.logical(column_width_mode)) {
column_width_mode <- as.character(column_width_mode)
}
named_list_value <- unname(named_list[column_width_mode])[[1]]
new_list$x$state$column_width_mode <- named_list_value
}
}
}
}
new_list$x$state$column_widths <- column_widths
list_header_font_weight <- c("bold", "normal", NULL)
if (!is.null(header_font_weight)) {
if (!header_font_weight %in% list_header_font_weight) {
stop("`header_font_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_font_weight %in% names(named_list)) {
if (is.logical(header_font_weight)) {
header_font_weight <- as.character(header_font_weight)
}
named_list_value <- unname(named_list[header_font_weight])[[1]]
new_list$x$state$header_font_weight <- named_list_value
}
}
}
}
new_list$x$state$header_fill <- header_fill
new_list$x$state$header_font_color <- header_font_color
new_list$x$state$header_underline_sorting <- header_underline_sorting
list_header_style_default <- c(TRUE, FALSE, NULL)
if (!is.null(header_style_default)) {
if (!header_style_default %in% list_header_style_default) {
stop("`header_style_default` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_style_default %in% names(named_list)) {
if (is.logical(header_style_default)) {
header_style_default <- as.character(header_style_default)
}
named_list_value <- unname(named_list[header_style_default])[[1]]
new_list$x$state$header_style_default <- named_list_value
}
}
}
}
new_list$x$state$header_height <- header_height
new_list$x$state$header_padding <- header_padding
list_header_horizontal_alignment <- c("start", "center", "end", NULL)
if (!is.null(header_horizontal_alignment)) {
if (!header_horizontal_alignment %in% list_header_horizontal_alignment) {
stop("`header_horizontal_alignment` must be one of: c('start', 'center', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_horizontal_alignment %in% names(named_list)) {
if (is.logical(header_horizontal_alignment)) {
header_horizontal_alignment <- as.character(header_horizontal_alignment)
}
named_list_value <- unname(named_list[header_horizontal_alignment])[[1]]
new_list$x$state$header_horizontal_alignment <- named_list_value
}
}
}
}
list_header_font_default <- c(TRUE, FALSE, NULL)
if (!is.null(header_font_default)) {
if (!header_font_default %in% list_header_font_default) {
stop("`header_font_default` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_font_default %in% names(named_list)) {
if (is.logical(header_font_default)) {
header_font_default <- as.character(header_font_default)
}
named_list_value <- unname(named_list[header_font_default])[[1]]
new_list$x$state$header_font_default <- named_list_value
}
}
}
}
new_list$x$state$header_font_size <- header_font_size
list_header_border_default <- c(TRUE, FALSE, NULL)
if (!is.null(header_border_default)) {
if (!header_border_default %in% list_header_border_default) {
stop("`header_border_default` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_border_default %in% names(named_list)) {
if (is.logical(header_border_default)) {
header_border_default <- as.character(header_border_default)
}
named_list_value <- unname(named_list[header_border_default])[[1]]
new_list$x$state$header_border_default <- named_list_value
}
}
}
}
new_list$x$state$header_border_color <- header_border_color
new_list$x$state$header_border_width <- header_border_width
list_header_border_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(header_border_style)) {
if (!header_border_style %in% list_header_border_style) {
stop("`header_border_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_border_style %in% names(named_list)) {
if (is.logical(header_border_style)) {
header_border_style <- as.character(header_border_style)
}
named_list_value <- unname(named_list[header_border_style])[[1]]
new_list$x$state$header_border_style <- named_list_value
}
}
}
}
new_list$x$state$cell_image_height <- cell_image_height
new_list$x$state$cell_image_radius <- cell_image_radius
list_bar_columns_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(bar_columns_enabled)) {
if (!bar_columns_enabled %in% list_bar_columns_enabled) {
stop("`bar_columns_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && bar_columns_enabled %in% names(named_list)) {
if (is.logical(bar_columns_enabled)) {
bar_columns_enabled <- as.character(bar_columns_enabled)
}
named_list_value <- unname(named_list[bar_columns_enabled])[[1]]
new_list$x$state$bar_columns$enabled <- named_list_value
}
}
}
}
if (length(bar_columns_bar_1_columns) > 1) {
new_list$x$state$bar_columns$bar_1_columns <- paste(bar_columns_bar_1_columns, collapse = "\n")
} else {
new_list$x$state$bar_columns$bar_1_columns <- bar_columns_bar_1_columns
}
new_list$x$state$bar_columns$bar_1_column_name <- bar_columns_bar_1_column_name
list_bar_columns_type <- c("bars", "columns", NULL)
if (!is.null(bar_columns_type)) {
if (!bar_columns_type %in% list_bar_columns_type) {
stop("`bar_columns_type` must be one of: c('bars', 'columns')")
} else {
if (length(jsonlite::fromJSON('{"bars": "bars", "columns": "columns"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bars": "bars", "columns": "columns"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && bar_columns_type %in% names(named_list)) {
if (is.logical(bar_columns_type)) {
bar_columns_type <- as.character(bar_columns_type)
}
named_list_value <- unname(named_list[bar_columns_type])[[1]]
new_list$x$state$bar_columns$type <- named_list_value
}
}
}
}
new_list$x$state$bar_columns$bar_1_height <- bar_columns_bar_1_height
new_list$x$state$bar_columns$bar_1_width <- bar_columns_bar_1_width
new_list$x$state$bar_columns$bar_1_column_padding <- bar_columns_bar_1_column_padding
list_bar_columns_bar_1_proportional <- c(FALSE, TRUE, NULL)
if (!is.null(bar_columns_bar_1_proportional)) {
if (!bar_columns_bar_1_proportional %in% list_bar_columns_bar_1_proportional) {
stop("`bar_columns_bar_1_proportional` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && bar_columns_bar_1_proportional %in% names(named_list)) {
if (is.logical(bar_columns_bar_1_proportional)) {
bar_columns_bar_1_proportional <- as.character(bar_columns_bar_1_proportional)
}
named_list_value <- unname(named_list[bar_columns_bar_1_proportional])[[1]]
new_list$x$state$bar_columns$bar_1_proportional <- named_list_value
}
}
}
}
new_list$x$state$bar_columns$bar_1_same_scale <- bar_columns_bar_1_same_scale
new_list$x$state$bar_columns$bar_1_zero_line <- bar_columns_bar_1_zero_line
new_list$x$state$bar_columns$bar_1_zero_line_color <- bar_columns_bar_1_zero_line_color
if (length(chart_color_scale_categorical_palette) > 1) {
new_list$x$state$color$categorical_palette <- paste(chart_color_scale_categorical_palette, collapse = "\n")
} else {
new_list$x$state$color$categorical_palette <- chart_color_scale_categorical_palette
}
new_list$x$state$color$categorical_extend <- chart_color_scale_categorical_extend
if (length(chart_color_scale_categorical_custom_palette) > 1) {
new_list$x$state$color$categorical_custom_palette <- paste(chart_color_scale_categorical_custom_palette, collapse = "\n")
} else {
new_list$x$state$color$categorical_custom_palette <- chart_color_scale_categorical_custom_palette
}
list_chart_color_scale_numeric_type <- c("sequential", "diverging", NULL)
if (!is.null(chart_color_scale_numeric_type)) {
if (!chart_color_scale_numeric_type %in% list_chart_color_scale_numeric_type) {
stop("`chart_color_scale_numeric_type` must be one of: c('sequential', 'diverging')")
} else {
if (length(jsonlite::fromJSON('{"sequential": "sequential", "diverging": "diverging"}')) > 1) {
named_list <- jsonlite::fromJSON('{"sequential": "sequential", "diverging": "diverging"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_numeric_type %in% names(named_list)) {
if (is.logical(chart_color_scale_numeric_type)) {
chart_color_scale_numeric_type <- as.character(chart_color_scale_numeric_type)
}
named_list_value <- unname(named_list[chart_color_scale_numeric_type])[[1]]
new_list$x$state$color$numeric_type <- named_list_value
}
}
}
}
list_chart_color_scale_binning <- c(FALSE, TRUE, NULL)
if (!is.null(chart_color_scale_binning)) {
if (!chart_color_scale_binning %in% list_chart_color_scale_binning) {
stop("`chart_color_scale_binning` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_binning %in% names(named_list)) {
if (is.logical(chart_color_scale_binning)) {
chart_color_scale_binning <- as.character(chart_color_scale_binning)
}
named_list_value <- unname(named_list[chart_color_scale_binning])[[1]]
new_list$x$state$color$binning <- named_list_value
}
}
}
}
list_chart_color_scale_bin_mode <- c("fixed", "quantile", "custom", NULL)
if (!is.null(chart_color_scale_bin_mode)) {
if (!chart_color_scale_bin_mode %in% list_chart_color_scale_bin_mode) {
stop("`chart_color_scale_bin_mode` must be one of: c('fixed', 'quantile', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"fixed": "fixed", "quantile": "quantile", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"fixed": "fixed", "quantile": "quantile", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_bin_mode %in% names(named_list)) {
if (is.logical(chart_color_scale_bin_mode)) {
chart_color_scale_bin_mode <- as.character(chart_color_scale_bin_mode)
}
named_list_value <- unname(named_list[chart_color_scale_bin_mode])[[1]]
new_list$x$state$color$bin_mode <- named_list_value
}
}
}
}
new_list$x$state$color$bin_count <- chart_color_scale_bin_count
new_list$x$state$color$bin_thresholds <- chart_color_scale_bin_thresholds
new_list$x$state$color$sequential_palette <- chart_color_scale_sequential_palette
new_list$x$state$color$sequential_reverse <- chart_color_scale_sequential_reverse
new_list$x$state$color$sequential_custom_min <- chart_color_scale_sequential_custom_min
new_list$x$state$color$sequential_custom_max <- chart_color_scale_sequential_custom_max
list_chart_color_scale_sequential_color_space <- c("rgb", "lab", "hcl", "hsl", NULL)
if (!is.null(chart_color_scale_sequential_color_space)) {
if (!chart_color_scale_sequential_color_space %in% list_chart_color_scale_sequential_color_space) {
stop("`chart_color_scale_sequential_color_space` must be one of: c('rgb', 'lab', 'hcl', 'hsl')")
} else {
if (length(jsonlite::fromJSON('{"rgb": "rgb", "lab": "lab", "hcl": "hcl", "hsl": "hsl"}')) > 1) {
named_list <- jsonlite::fromJSON('{"rgb": "rgb", "lab": "lab", "hcl": "hcl", "hsl": "hsl"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_sequential_color_space %in% names(named_list)) {
if (is.logical(chart_color_scale_sequential_color_space)) {
chart_color_scale_sequential_color_space <- as.character(chart_color_scale_sequential_color_space)
}
named_list_value <- unname(named_list[chart_color_scale_sequential_color_space])[[1]]
new_list$x$state$color$sequential_color_space <- named_list_value
}
}
}
}
list_chart_color_scale_sequential_custom_domain <- c(FALSE, TRUE, NULL)
if (!is.null(chart_color_scale_sequential_custom_domain)) {
if (!chart_color_scale_sequential_custom_domain %in% list_chart_color_scale_sequential_custom_domain) {
stop("`chart_color_scale_sequential_custom_domain` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_sequential_custom_domain %in% names(named_list)) {
if (is.logical(chart_color_scale_sequential_custom_domain)) {
chart_color_scale_sequential_custom_domain <- as.character(chart_color_scale_sequential_custom_domain)
}
named_list_value <- unname(named_list[chart_color_scale_sequential_custom_domain])[[1]]
new_list$x$state$color$sequential_custom_domain <- named_list_value
}
}
}
}
new_list$x$state$color$sequential_domain_min <- chart_color_scale_sequential_domain_min
new_list$x$state$color$sequential_domain_max <- chart_color_scale_sequential_domain_max
new_list$x$state$color$diverging_palette <- chart_color_scale_diverging_palette
new_list$x$state$color$diverging_reverse <- chart_color_scale_diverging_reverse
new_list$x$state$color$diverging_custom_min <- chart_color_scale_diverging_custom_min
new_list$x$state$color$diverging_custom_mid <- chart_color_scale_diverging_custom_mid
new_list$x$state$color$diverging_custom_max <- chart_color_scale_diverging_custom_max
list_chart_color_scale_diverging_color_space <- c("rgb", "lab", "hcl", "hsl", NULL)
if (!is.null(chart_color_scale_diverging_color_space)) {
if (!chart_color_scale_diverging_color_space %in% list_chart_color_scale_diverging_color_space) {
stop("`chart_color_scale_diverging_color_space` must be one of: c('rgb', 'lab', 'hcl', 'hsl')")
} else {
if (length(jsonlite::fromJSON('{"rgb": "rgb", "lab": "lab", "hcl": "hcl", "hsl": "hsl"}')) > 1) {
named_list <- jsonlite::fromJSON('{"rgb": "rgb", "lab": "lab", "hcl": "hcl", "hsl": "hsl"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_diverging_color_space %in% names(named_list)) {
if (is.logical(chart_color_scale_diverging_color_space)) {
chart_color_scale_diverging_color_space <- as.character(chart_color_scale_diverging_color_space)
}
named_list_value <- unname(named_list[chart_color_scale_diverging_color_space])[[1]]
new_list$x$state$color$diverging_color_space <- named_list_value
}
}
}
}
list_chart_color_scale_diverging_custom_domain <- c(FALSE, TRUE, NULL)
if (!is.null(chart_color_scale_diverging_custom_domain)) {
if (!chart_color_scale_diverging_custom_domain %in% list_chart_color_scale_diverging_custom_domain) {
stop("`chart_color_scale_diverging_custom_domain` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_diverging_custom_domain %in% names(named_list)) {
if (is.logical(chart_color_scale_diverging_custom_domain)) {
chart_color_scale_diverging_custom_domain <- as.character(chart_color_scale_diverging_custom_domain)
}
named_list_value <- unname(named_list[chart_color_scale_diverging_custom_domain])[[1]]
new_list$x$state$color$diverging_custom_domain <- named_list_value
}
}
}
}
new_list$x$state$color$diverging_domain_min <- chart_color_scale_diverging_domain_min
new_list$x$state$color$diverging_domain_mid <- chart_color_scale_diverging_domain_mid
new_list$x$state$color$diverging_domain_max <- chart_color_scale_diverging_domain_max
list_bar_columns_bar_1_labels <- c("none", "popup", "inline", NULL)
if (!is.null(bar_columns_bar_1_labels)) {
if (!bar_columns_bar_1_labels %in% list_bar_columns_bar_1_labels) {
stop("`bar_columns_bar_1_labels` must be one of: c('none', 'popup', 'inline')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "popup": "popup", "inline": "inline"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "popup": "popup", "inline": "inline"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && bar_columns_bar_1_labels %in% names(named_list)) {
if (is.logical(bar_columns_bar_1_labels)) {
bar_columns_bar_1_labels <- as.character(bar_columns_bar_1_labels)
}
named_list_value <- unname(named_list[bar_columns_bar_1_labels])[[1]]
new_list$x$state$bar_columns$bar_1_labels <- named_list_value
}
}
}
}
new_list$x$state$bar_columns$bar_1_label_size <- bar_columns_bar_1_label_size
list_chart_legend_show_legend <- c(TRUE, FALSE, NULL)
if (!is.null(chart_legend_show_legend)) {
if (!chart_legend_show_legend %in% list_chart_legend_show_legend) {
stop("`chart_legend_show_legend` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_show_legend %in% names(named_list)) {
if (is.logical(chart_legend_show_legend)) {
chart_legend_show_legend <- as.character(chart_legend_show_legend)
}
named_list_value <- unname(named_list[chart_legend_show_legend])[[1]]
new_list$x$state$legend$show_legend <- named_list_value
}
}
}
}
list_chart_legend_title_mode <- c("auto", "custom", NULL)
if (!is.null(chart_legend_title_mode)) {
if (!chart_legend_title_mode %in% list_chart_legend_title_mode) {
stop("`chart_legend_title_mode` must be one of: c('auto', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_title_mode %in% names(named_list)) {
if (is.logical(chart_legend_title_mode)) {
chart_legend_title_mode <- as.character(chart_legend_title_mode)
}
named_list_value <- unname(named_list[chart_legend_title_mode])[[1]]
new_list$x$state$legend$title_mode <- named_list_value
}
}
}
}
new_list$x$state$legend$title <- chart_legend_title
new_list$x$state$legend$swatch_width <- chart_legend_swatch_width
new_list$x$state$legend$swatch_height <- chart_legend_swatch_height
new_list$x$state$legend$swatch_radius <- chart_legend_swatch_radius
new_list$x$state$legend$legend_items_padding <- chart_legend_legend_items_padding
new_list$x$state$legend$swatch_outline <- chart_legend_swatch_outline
new_list$x$state$legend$swatch_outline_color <- chart_legend_swatch_outline_color
if (length(chart_legend_order_override) > 1) {
new_list$x$state$legend$order_override <- paste(chart_legend_order_override, collapse = "\n")
} else {
new_list$x$state$legend$order_override <- chart_legend_order_override
}
new_list$x$state$legend$icon_height <- chart_legend_icon_height
new_list$x$state$legend$icon_color <- chart_legend_icon_color
new_list$x$state$legend$max_width <- chart_legend_max_width
list_chart_legend_orientation <- c("horizontal", "vertical", NULL)
if (!is.null(chart_legend_orientation)) {
if (!chart_legend_orientation %in% list_chart_legend_orientation) {
stop("`chart_legend_orientation` must be one of: c('horizontal', 'vertical')")
} else {
if (length(jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')) > 1) {
named_list <- jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_orientation %in% names(named_list)) {
if (is.logical(chart_legend_orientation)) {
chart_legend_orientation <- as.character(chart_legend_orientation)
}
named_list_value <- unname(named_list[chart_legend_orientation])[[1]]
new_list$x$state$legend$orientation <- named_list_value
}
}
}
}
list_legend_position <- c("above", "below", NULL)
if (!is.null(legend_position)) {
if (!legend_position %in% list_legend_position) {
stop("`legend_position` must be one of: c('above', 'below')")
} else {
if (length(jsonlite::fromJSON('{"above": "above", "below": "below"}')) > 1) {
named_list <- jsonlite::fromJSON('{"above": "above", "below": "below"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && legend_position %in% names(named_list)) {
if (is.logical(legend_position)) {
legend_position <- as.character(legend_position)
}
named_list_value <- unname(named_list[legend_position])[[1]]
new_list$x$state$legend_position <- named_list_value
}
}
}
}
list_chart_legend_container_alignment <- c("start", "center", "end", NULL)
if (!is.null(chart_legend_container_alignment)) {
if (!chart_legend_container_alignment %in% list_chart_legend_container_alignment) {
stop("`chart_legend_container_alignment` must be one of: c('start', 'center', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_container_alignment %in% names(named_list)) {
if (is.logical(chart_legend_container_alignment)) {
chart_legend_container_alignment <- as.character(chart_legend_container_alignment)
}
named_list_value <- unname(named_list[chart_legend_container_alignment])[[1]]
new_list$x$state$legend_container$alignment <- named_list_value
}
}
}
}
list_chart_legend_container_orientation <- c("horizontal", "vertical", NULL)
if (!is.null(chart_legend_container_orientation)) {
if (!chart_legend_container_orientation %in% list_chart_legend_container_orientation) {
stop("`chart_legend_container_orientation` must be one of: c('horizontal', 'vertical')")
} else {
if (length(jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')) > 1) {
named_list <- jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_container_orientation %in% names(named_list)) {
if (is.logical(chart_legend_container_orientation)) {
chart_legend_container_orientation <- as.character(chart_legend_container_orientation)
}
named_list_value <- unname(named_list[chart_legend_container_orientation])[[1]]
new_list$x$state$legend_container$orientation <- named_list_value
}
}
}
}
list_chart_legend_container_title_weight <- c("bold", "normal", NULL)
if (!is.null(chart_legend_container_title_weight)) {
if (!chart_legend_container_title_weight %in% list_chart_legend_container_title_weight) {
stop("`chart_legend_container_title_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_container_title_weight %in% names(named_list)) {
if (is.logical(chart_legend_container_title_weight)) {
chart_legend_container_title_weight <- as.character(chart_legend_container_title_weight)
}
named_list_value <- unname(named_list[chart_legend_container_title_weight])[[1]]
new_list$x$state$legend_container$title_weight <- named_list_value
}
}
}
}
list_chart_legend_container_text_weight <- c("bold", "normal", NULL)
if (!is.null(chart_legend_container_text_weight)) {
if (!chart_legend_container_text_weight %in% list_chart_legend_container_text_weight) {
stop("`chart_legend_container_text_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_container_text_weight %in% names(named_list)) {
if (is.logical(chart_legend_container_text_weight)) {
chart_legend_container_text_weight <- as.character(chart_legend_container_text_weight)
}
named_list_value <- unname(named_list[chart_legend_container_text_weight])[[1]]
new_list$x$state$legend_container$text_weight <- named_list_value
}
}
}
}
new_list$x$state$legend_container$text_color <- chart_legend_container_text_color
new_list$x$state$legend_container$text_size <- chart_legend_container_text_size
list_line_columns_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(line_columns_enabled)) {
if (!line_columns_enabled %in% list_line_columns_enabled) {
stop("`line_columns_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && line_columns_enabled %in% names(named_list)) {
if (is.logical(line_columns_enabled)) {
line_columns_enabled <- as.character(line_columns_enabled)
}
named_list_value <- unname(named_list[line_columns_enabled])[[1]]
new_list$x$state$line_columns$enabled <- named_list_value
}
}
}
}
if (length(line_columns_line_1_columns) > 1) {
new_list$x$state$line_columns$line_1_columns <- paste(line_columns_line_1_columns, collapse = "\n")
} else {
new_list$x$state$line_columns$line_1_columns <- line_columns_line_1_columns
}
new_list$x$state$line_columns$line_1_column_name <- line_columns_line_1_column_name
new_list$x$state$line_columns$line_1_width <- line_columns_line_1_width
new_list$x$state$line_columns$line_1_height <- line_columns_line_1_height
new_list$x$state$line_columns$line_1_color <- line_columns_line_1_color
list_line_columns_line_1_area <- c(TRUE, FALSE, NULL)
if (!is.null(line_columns_line_1_area)) {
if (!line_columns_line_1_area %in% list_line_columns_line_1_area) {
stop("`line_columns_line_1_area` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && line_columns_line_1_area %in% names(named_list)) {
if (is.logical(line_columns_line_1_area)) {
line_columns_line_1_area <- as.character(line_columns_line_1_area)
}
named_list_value <- unname(named_list[line_columns_line_1_area])[[1]]
new_list$x$state$line_columns$line_1_area <- named_list_value
}
}
}
}
list_line_columns_line_1_min_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(line_columns_line_1_min_enabled)) {
if (!line_columns_line_1_min_enabled %in% list_line_columns_line_1_min_enabled) {
stop("`line_columns_line_1_min_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && line_columns_line_1_min_enabled %in% names(named_list)) {
if (is.logical(line_columns_line_1_min_enabled)) {
line_columns_line_1_min_enabled <- as.character(line_columns_line_1_min_enabled)
}
named_list_value <- unname(named_list[line_columns_line_1_min_enabled])[[1]]
new_list$x$state$line_columns$line_1_min_enabled <- named_list_value
}
}
}
}
new_list$x$state$line_columns$line_1_min <- line_columns_line_1_min
list_line_columns_line_1_max_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(line_columns_line_1_max_enabled)) {
if (!line_columns_line_1_max_enabled %in% list_line_columns_line_1_max_enabled) {
stop("`line_columns_line_1_max_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && line_columns_line_1_max_enabled %in% names(named_list)) {
if (is.logical(line_columns_line_1_max_enabled)) {
line_columns_line_1_max_enabled <- as.character(line_columns_line_1_max_enabled)
}
named_list_value <- unname(named_list[line_columns_line_1_max_enabled])[[1]]
new_list$x$state$line_columns$line_1_max_enabled <- named_list_value
}
}
}
}
new_list$x$state$line_columns$line_1_max <- line_columns_line_1_max
list_mobile_view <- c(FALSE, TRUE, NULL)
if (!is.null(mobile_view)) {
if (!mobile_view %in% list_mobile_view) {
stop("`mobile_view` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && mobile_view %in% names(named_list)) {
if (is.logical(mobile_view)) {
mobile_view <- as.character(mobile_view)
}
named_list_value <- unname(named_list[mobile_view])[[1]]
new_list$x$state$mobile$view <- named_list_value
}
}
}
}
new_list$x$state$mobile$breakpoint <- mobile_breakpoint
list_mobile_cell_font_size <- c("1", "1.25", "1.5", "custom", NULL)
if (!is.null(mobile_cell_font_size)) {
if (!mobile_cell_font_size %in% list_mobile_cell_font_size) {
stop("`mobile_cell_font_size` must be one of: c('1', '1.25', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.25": "1.25", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.25": "1.25", "1.5": "1.5", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && mobile_cell_font_size %in% names(named_list)) {
if (is.logical(mobile_cell_font_size)) {
mobile_cell_font_size <- as.character(mobile_cell_font_size)
}
named_list_value <- unname(named_list[mobile_cell_font_size])[[1]]
new_list$x$state$mobile$cell_font_size <- named_list_value
}
}
}
}
new_list$x$state$mobile$cell_font_size_custom <- mobile_cell_font_size_custom
new_list$x$state$mobile$pagination_amount <- mobile_pagination_amount
list_search_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(search_enabled)) {
if (!search_enabled %in% list_search_enabled) {
stop("`search_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_enabled %in% names(named_list)) {
if (is.logical(search_enabled)) {
search_enabled <- as.character(search_enabled)
}
named_list_value <- unname(named_list[search_enabled])[[1]]
new_list$x$state$search_enabled <- named_list_value
}
}
}
}
list_search_mode <- c("anywhere", "start", "whole", NULL)
if (!is.null(search_mode)) {
if (!search_mode %in% list_search_mode) {
stop("`search_mode` must be one of: c('anywhere', 'start', 'whole')")
} else {
if (length(jsonlite::fromJSON('{"anywhere": "anywhere", "start": "start", "whole": "whole"}')) > 1) {
named_list <- jsonlite::fromJSON('{"anywhere": "anywhere", "start": "start", "whole": "whole"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_mode %in% names(named_list)) {
if (is.logical(search_mode)) {
search_mode <- as.character(search_mode)
}
named_list_value <- unname(named_list[search_mode])[[1]]
new_list$x$state$search_mode <- named_list_value
}
}
}
}
new_list$x$state$search_width <- search_width
new_list$x$state$search_background_color <- search_background_color
new_list$x$state$search_text_color <- search_text_color
new_list$x$state$search_placeholder <- search_placeholder
new_list$x$state$no_results_text <- no_results_text
new_list$x$state$search_hide_table <- search_hide_table
new_list$x$state$search_hide_published <- search_hide_published
list_search_columns <- c("all", "first", "custom", NULL)
if (!is.null(search_columns)) {
if (!search_columns %in% list_search_columns) {
stop("`search_columns` must be one of: c('all', 'first', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"all": "all", "first": "first", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"all": "all", "first": "first", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_columns %in% names(named_list)) {
if (is.logical(search_columns)) {
search_columns <- as.character(search_columns)
}
named_list_value <- unname(named_list[search_columns])[[1]]
new_list$x$state$search_columns <- named_list_value
}
}
}
}
if (length(search_columns_custom) > 1) {
new_list$x$state$search_columns_custom <- paste(search_columns_custom, collapse = "\n")
} else {
new_list$x$state$search_columns_custom <- search_columns_custom
}
list_search_resize <- c(TRUE, FALSE, NULL)
if (!is.null(search_resize)) {
if (!search_resize %in% list_search_resize) {
stop("`search_resize` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_resize %in% names(named_list)) {
if (is.logical(search_resize)) {
search_resize <- as.character(search_resize)
}
named_list_value <- unname(named_list[search_resize])[[1]]
new_list$x$state$search_resize <- named_list_value
}
}
}
}
list_search_dropdown <- c(TRUE, FALSE, NULL)
if (!is.null(search_dropdown)) {
if (!search_dropdown %in% list_search_dropdown) {
stop("`search_dropdown` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_dropdown %in% names(named_list)) {
if (is.logical(search_dropdown)) {
search_dropdown <- as.character(search_dropdown)
}
named_list_value <- unname(named_list[search_dropdown])[[1]]
new_list$x$state$search_dropdown <- named_list_value
}
}
}
}
new_list$x$state$search_dropdown_persistent <- search_dropdown_persistent
new_list$x$state$search_val <- search_val
list_chart_popup_show_popups <- c(TRUE, FALSE, NULL)
if (!is.null(chart_popup_show_popups)) {
if (!chart_popup_show_popups %in% list_chart_popup_show_popups) {
stop("`chart_popup_show_popups` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_popup_show_popups %in% names(named_list)) {
if (is.logical(chart_popup_show_popups)) {
chart_popup_show_popups <- as.character(chart_popup_show_popups)
}
named_list_value <- unname(named_list[chart_popup_show_popups])[[1]]
new_list$x$state$popup$show_popups <- named_list_value
}
}
}
}
list_chart_popup_is_custom <- c(FALSE, TRUE, NULL)
if (!is.null(chart_popup_is_custom)) {
if (!chart_popup_is_custom %in% list_chart_popup_is_custom) {
stop("`chart_popup_is_custom` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_popup_is_custom %in% names(named_list)) {
if (is.logical(chart_popup_is_custom)) {
chart_popup_is_custom <- as.character(chart_popup_is_custom)
}
named_list_value <- unname(named_list[chart_popup_is_custom])[[1]]
new_list$x$state$popup$is_custom <- named_list_value
}
}
}
}
if (length(chart_popup_custom_template) > 1) {
new_list$x$state$popup$custom_template <- paste(chart_popup_custom_template, collapse = "\n")
} else {
new_list$x$state$popup$custom_template <- chart_popup_custom_template
}
new_list$x$state$popup$show_pointer <- chart_popup_show_pointer
new_list$x$state$popup$show_shadow <- chart_popup_show_shadow
new_list$x$state$popup$style_popups <- chart_popup_style_popups
new_list$x$state$popup$text_color <- chart_popup_text_color
list_chart_popup_align <- c("left", "center", "right", NULL)
if (!is.null(chart_popup_align)) {
if (!chart_popup_align %in% list_chart_popup_align) {
stop("`chart_popup_align` must be one of: c('left', 'center', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_popup_align %in% names(named_list)) {
if (is.logical(chart_popup_align)) {
chart_popup_align <- as.character(chart_popup_align)
}
named_list_value <- unname(named_list[chart_popup_align])[[1]]
new_list$x$state$popup$align <- named_list_value
}
}
}
}
new_list$x$state$popup$text_size <- chart_popup_text_size
new_list$x$state$popup$fill_color <- chart_popup_fill_color
new_list$x$state$popup$opacity <- chart_popup_opacity
new_list$x$state$popup$padding <- chart_popup_padding
new_list$x$state$popup$border_radius <- chart_popup_border_radius
new_list$x$state$popup$max_width <- chart_popup_max_width
if (length(formatted_columns) > 1) {
new_list$x$state$formatted_columns <- paste(formatted_columns, collapse = "\n")
} else {
new_list$x$state$formatted_columns <- formatted_columns
}
new_list$x$state$number_format$prefix <- chart_number_date_format_prefix
new_list$x$state$number_format$suffix <- chart_number_date_format_suffix
new_list$x$state$number_format$n_dec <- chart_number_date_format_n_dec
new_list$x$state$number_format$advanced <- chart_number_date_format_advanced
list_chart_number_date_format_negative_sign <- c("-$nk", "$-nk", "($nk)", "$(n)k", "none", NULL)
if (!is.null(chart_number_date_format_negative_sign)) {
if (!chart_number_date_format_negative_sign %in% list_chart_number_date_format_negative_sign) {
stop("`chart_number_date_format_negative_sign` must be one of: c('-$nk', '$-nk', '($nk)', '$(n)k', 'none')")
} else {
if (length(jsonlite::fromJSON('{"-$nk": "-$nk", "$-nk": "$-nk", "($nk)": "($nk)", "$(n)k": "$(n)k", "none": "none"}')) > 1) {
named_list <- jsonlite::fromJSON('{"-$nk": "-$nk", "$-nk": "$-nk", "($nk)": "($nk)", "$(n)k": "$(n)k", "none": "none"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_number_date_format_negative_sign %in% names(named_list)) {
if (is.logical(chart_number_date_format_negative_sign)) {
chart_number_date_format_negative_sign <- as.character(chart_number_date_format_negative_sign)
}
named_list_value <- unname(named_list[chart_number_date_format_negative_sign])[[1]]
new_list$x$state$number_format$negative_sign <- named_list_value
}
}
}
}
new_list$x$state$number_format$strip_zeros <- chart_number_date_format_strip_zeros
new_list$x$state$number_format$strip_separator <- chart_number_date_format_strip_separator
new_list$x$state$number_format$transform_labels <- chart_number_date_format_transform_labels
list_chart_number_date_format_transform <- c("multiply", "divide", "exponentiate", NULL)
if (!is.null(chart_number_date_format_transform)) {
if (!chart_number_date_format_transform %in% list_chart_number_date_format_transform) {
stop("`chart_number_date_format_transform` must be one of: c('multiply', 'divide', 'exponentiate')")
} else {
if (length(jsonlite::fromJSON('{"multiply": "multiply", "divide": "divide", "exponentiate": "exponentiate"}')) > 1) {
named_list <- jsonlite::fromJSON('{"multiply": "multiply", "divide": "divide", "exponentiate": "exponentiate"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_number_date_format_transform %in% names(named_list)) {
if (is.logical(chart_number_date_format_transform)) {
chart_number_date_format_transform <- as.character(chart_number_date_format_transform)
}
named_list_value <- unname(named_list[chart_number_date_format_transform])[[1]]
new_list$x$state$number_format$transform <- named_list_value
}
}
}
}
new_list$x$state$number_format$multiply_divide_constant <- chart_number_date_format_multiply_divide_constant
new_list$x$state$number_format$exponentiate_constant <- chart_number_date_format_exponentiate_constant
new_list$x$state$layout$body_font <- chart_layout_body_font
new_list$x$state$layout$font_color <- chart_layout_font_color
list_chart_layout_background_color_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_background_color_enabled)) {
if (!chart_layout_background_color_enabled %in% list_chart_layout_background_color_enabled) {
stop("`chart_layout_background_color_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_background_color_enabled %in% names(named_list)) {
if (is.logical(chart_layout_background_color_enabled)) {
chart_layout_background_color_enabled <- as.character(chart_layout_background_color_enabled)
}
named_list_value <- unname(named_list[chart_layout_background_color_enabled])[[1]]
new_list$x$state$layout$background_color_enabled <- named_list_value
}
}
}
}
list_chart_layout_background_image_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_background_image_enabled)) {
if (!chart_layout_background_image_enabled %in% list_chart_layout_background_image_enabled) {
stop("`chart_layout_background_image_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_background_image_enabled %in% names(named_list)) {
if (is.logical(chart_layout_background_image_enabled)) {
chart_layout_background_image_enabled <- as.character(chart_layout_background_image_enabled)
}
named_list_value <- unname(named_list[chart_layout_background_image_enabled])[[1]]
new_list$x$state$layout$background_image_enabled <- named_list_value
}
}
}
}
new_list$x$state$layout$background_color <- chart_layout_background_color
new_list$x$state$layout$background_image_src <- chart_layout_background_image_src
list_chart_layout_background_image_size <- c("cover", "contain", "auto", "100% 100%", NULL)
if (!is.null(chart_layout_background_image_size)) {
if (!chart_layout_background_image_size %in% list_chart_layout_background_image_size) {
stop("`chart_layout_background_image_size` must be one of: c('cover', 'contain', 'auto', '100% 100%')")
} else {
if (length(jsonlite::fromJSON('{"cover": "cover", "contain": "contain", "auto": "auto", "100% 100%": "100% 100%"}')) > 1) {
named_list <- jsonlite::fromJSON('{"cover": "cover", "contain": "contain", "auto": "auto", "100% 100%": "100% 100%"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_background_image_size %in% names(named_list)) {
if (is.logical(chart_layout_background_image_size)) {
chart_layout_background_image_size <- as.character(chart_layout_background_image_size)
}
named_list_value <- unname(named_list[chart_layout_background_image_size])[[1]]
new_list$x$state$layout$background_image_size <- named_list_value
}
}
}
}
list_chart_layout_background_image_position <- c("top left", "top center", "top right", "center left", "center center", "center right", "bottom left", "bottom center", "bottom right", NULL)
if (!is.null(chart_layout_background_image_position)) {
if (!chart_layout_background_image_position %in% list_chart_layout_background_image_position) {
stop("`chart_layout_background_image_position` must be one of: c('top left', 'top center', 'top right', 'center left', 'center center', 'center right', 'bottom left', 'bottom center', 'bottom right')")
} else {
if (length(jsonlite::fromJSON('{"top left": "top left", "top center": "top center", "top right": "top right", "center left": "center left", "center center": "center center", "center right": "center right", "bottom left": "bottom left", "bottom center": "bottom center", "bottom right": "bottom right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top left": "top left", "top center": "top center", "top right": "top right", "center left": "center left", "center center": "center center", "center right": "center right", "bottom left": "bottom left", "bottom center": "bottom center", "bottom right": "bottom right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_background_image_position %in% names(named_list)) {
if (is.logical(chart_layout_background_image_position)) {
chart_layout_background_image_position <- as.character(chart_layout_background_image_position)
}
named_list_value <- unname(named_list[chart_layout_background_image_position])[[1]]
new_list$x$state$layout$background_image_position <- named_list_value
}
}
}
}
list_chart_layout_max_width_target <- c("none", "wrapper", "primary", NULL)
if (!is.null(chart_layout_max_width_target)) {
if (!chart_layout_max_width_target %in% list_chart_layout_max_width_target) {
stop("`chart_layout_max_width_target` must be one of: c('none', 'wrapper', 'primary')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "wrapper": "wrapper", "primary": "primary"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "wrapper": "wrapper", "primary": "primary"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_max_width_target %in% names(named_list)) {
if (is.logical(chart_layout_max_width_target)) {
chart_layout_max_width_target <- as.character(chart_layout_max_width_target)
}
named_list_value <- unname(named_list[chart_layout_max_width_target])[[1]]
new_list$x$state$layout$max_width_target <- named_list_value
}
}
}
}
new_list$x$state$layout$max_width <- chart_layout_max_width
list_chart_layout_max_width_align <- c("left", "center", "right", NULL)
if (!is.null(chart_layout_max_width_align)) {
if (!chart_layout_max_width_align %in% list_chart_layout_max_width_align) {
stop("`chart_layout_max_width_align` must be one of: c('left', 'center', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_max_width_align %in% names(named_list)) {
if (is.logical(chart_layout_max_width_align)) {
chart_layout_max_width_align <- as.character(chart_layout_max_width_align)
}
named_list_value <- unname(named_list[chart_layout_max_width_align])[[1]]
new_list$x$state$layout$max_width_align <- named_list_value
}
}
}
}
new_list$x$state$layout$layout_order <- chart_layout_layout_order
list_chart_layout_space_between_sections <- c("0.5", "1", "1.5", "custom", NULL)
if (!is.null(chart_layout_space_between_sections)) {
if (!chart_layout_space_between_sections %in% list_chart_layout_space_between_sections) {
stop("`chart_layout_space_between_sections` must be one of: c('0.5', '1', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.5": "0.5", "1": "1", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.5": "0.5", "1": "1", "1.5": "1.5", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_space_between_sections %in% names(named_list)) {
if (is.logical(chart_layout_space_between_sections)) {
chart_layout_space_between_sections <- as.character(chart_layout_space_between_sections)
}
named_list_value <- unname(named_list[chart_layout_space_between_sections])[[1]]
new_list$x$state$layout$space_between_sections <- named_list_value
}
}
}
}
new_list$x$state$layout$space_between_sections_custom <- chart_layout_space_between_sections_custom
new_list$x$state$layout$margin_top <- chart_layout_margin_top
new_list$x$state$layout$margin_right <- chart_layout_margin_right
new_list$x$state$layout$margin_bottom <- chart_layout_margin_bottom
new_list$x$state$layout$margin_left <- chart_layout_margin_left
new_list$x$state$layout$border$enabled <- chart_layout_border_enabled
new_list$x$state$layout$border$top$width <- chart_layout_border_top_width
list_chart_layout_border_top_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_border_top_style)) {
if (!chart_layout_border_top_style %in% list_chart_layout_border_top_style) {
stop("`chart_layout_border_top_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_border_top_style %in% names(named_list)) {
if (is.logical(chart_layout_border_top_style)) {
chart_layout_border_top_style <- as.character(chart_layout_border_top_style)
}
named_list_value <- unname(named_list[chart_layout_border_top_style])[[1]]
new_list$x$state$layout$border$top$style <- named_list_value
}
}
}
}
new_list$x$state$layout$border$top$color <- chart_layout_border_top_color
new_list$x$state$layout$border$right$width <- chart_layout_border_right_width
list_chart_layout_border_right_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_border_right_style)) {
if (!chart_layout_border_right_style %in% list_chart_layout_border_right_style) {
stop("`chart_layout_border_right_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_border_right_style %in% names(named_list)) {
if (is.logical(chart_layout_border_right_style)) {
chart_layout_border_right_style <- as.character(chart_layout_border_right_style)
}
named_list_value <- unname(named_list[chart_layout_border_right_style])[[1]]
new_list$x$state$layout$border$right$style <- named_list_value
}
}
}
}
new_list$x$state$layout$border$right$color <- chart_layout_border_right_color
new_list$x$state$layout$border$bottom$width <- chart_layout_border_bottom_width
list_chart_layout_border_bottom_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_border_bottom_style)) {
if (!chart_layout_border_bottom_style %in% list_chart_layout_border_bottom_style) {
stop("`chart_layout_border_bottom_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_border_bottom_style %in% names(named_list)) {
if (is.logical(chart_layout_border_bottom_style)) {
chart_layout_border_bottom_style <- as.character(chart_layout_border_bottom_style)
}
named_list_value <- unname(named_list[chart_layout_border_bottom_style])[[1]]
new_list$x$state$layout$border$bottom$style <- named_list_value
}
}
}
}
new_list$x$state$layout$border$bottom$color <- chart_layout_border_bottom_color
new_list$x$state$layout$border$left$width <- chart_layout_border_left_width
list_chart_layout_border_left_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_border_left_style)) {
if (!chart_layout_border_left_style %in% list_chart_layout_border_left_style) {
stop("`chart_layout_border_left_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_border_left_style %in% names(named_list)) {
if (is.logical(chart_layout_border_left_style)) {
chart_layout_border_left_style <- as.character(chart_layout_border_left_style)
}
named_list_value <- unname(named_list[chart_layout_border_left_style])[[1]]
new_list$x$state$layout$border$left$style <- named_list_value
}
}
}
}
new_list$x$state$layout$border$left$color <- chart_layout_border_left_color
list_chart_layout_read_direction <- c("ltr", "rtl", NULL)
if (!is.null(chart_layout_read_direction)) {
if (!chart_layout_read_direction %in% list_chart_layout_read_direction) {
stop("`chart_layout_read_direction` must be one of: c('ltr', 'rtl')")
} else {
if (length(jsonlite::fromJSON('{"ltr": "ltr", "rtl": "rtl"}')) > 1) {
named_list <- jsonlite::fromJSON('{"ltr": "ltr", "rtl": "rtl"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_read_direction %in% names(named_list)) {
if (is.logical(chart_layout_read_direction)) {
chart_layout_read_direction <- as.character(chart_layout_read_direction)
}
named_list_value <- unname(named_list[chart_layout_read_direction])[[1]]
new_list$x$state$layout$read_direction <- named_list_value
}
}
}
}
new_list$x$state$layout$font_size_mobile_small <- chart_layout_font_size_mobile_small
new_list$x$state$layout$font_size_mobile_big <- chart_layout_font_size_mobile_big
new_list$x$state$layout$font_size_tablet <- chart_layout_font_size_tablet
new_list$x$state$layout$font_size_desktop <- chart_layout_font_size_desktop
new_list$x$state$layout$font_size_big_screen <- chart_layout_font_size_big_screen
new_list$x$state$layout$breakpoint_mobile_small <- chart_layout_breakpoint_mobile_small
new_list$x$state$layout$breakpoint_mobile_big <- chart_layout_breakpoint_mobile_big
new_list$x$state$layout$breakpoint_tablet <- chart_layout_breakpoint_tablet
new_list$x$state$layout$breakpoint_desktop <- chart_layout_breakpoint_desktop
new_list$x$state$layout$breakpoint_big_screen <- chart_layout_breakpoint_big_screen
list_chart_layout_header_align <- c("left", "center", "right", NULL)
if (!is.null(chart_layout_header_align)) {
if (!chart_layout_header_align %in% list_chart_layout_header_align) {
stop("`chart_layout_header_align` must be one of: c('left', 'center', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_align %in% names(named_list)) {
if (is.logical(chart_layout_header_align)) {
chart_layout_header_align <- as.character(chart_layout_header_align)
}
named_list_value <- unname(named_list[chart_layout_header_align])[[1]]
new_list$x$state$layout$header_align <- named_list_value
}
}
}
}
if (length(chart_layout_title) > 1) {
new_list$x$state$layout$title <- paste(chart_layout_title, collapse = "\n")
} else {
new_list$x$state$layout$title <- chart_layout_title
}
new_list$x$state$layout$title_styling <- chart_layout_title_styling
new_list$x$state$layout$title_font <- chart_layout_title_font
list_chart_layout_title_size <- c("1.4", "1.6", "2", "custom", NULL)
if (!is.null(chart_layout_title_size)) {
if (!chart_layout_title_size %in% list_chart_layout_title_size) {
stop("`chart_layout_title_size` must be one of: c('1.4', '1.6', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1.4": "1.4", "1.6": "1.6", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1.4": "1.4", "1.6": "1.6", "2": "2", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_title_size %in% names(named_list)) {
if (is.logical(chart_layout_title_size)) {
chart_layout_title_size <- as.character(chart_layout_title_size)
}
named_list_value <- unname(named_list[chart_layout_title_size])[[1]]
new_list$x$state$layout$title_size <- named_list_value
}
}
}
}
new_list$x$state$layout$title_size_custom <- chart_layout_title_size_custom
list_chart_layout_title_weight <- c("bold", "normal", NULL)
if (!is.null(chart_layout_title_weight)) {
if (!chart_layout_title_weight %in% list_chart_layout_title_weight) {
stop("`chart_layout_title_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_title_weight %in% names(named_list)) {
if (is.logical(chart_layout_title_weight)) {
chart_layout_title_weight <- as.character(chart_layout_title_weight)
}
named_list_value <- unname(named_list[chart_layout_title_weight])[[1]]
new_list$x$state$layout$title_weight <- named_list_value
}
}
}
}
new_list$x$state$layout$title_color <- chart_layout_title_color
new_list$x$state$layout$title_line_height <- chart_layout_title_line_height
list_chart_layout_title_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(chart_layout_title_space_above)) {
if (!chart_layout_title_space_above %in% list_chart_layout_title_space_above) {
stop("`chart_layout_title_space_above` must be one of: c('0', '0.5', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_title_space_above %in% names(named_list)) {
if (is.logical(chart_layout_title_space_above)) {
chart_layout_title_space_above <- as.character(chart_layout_title_space_above)
}
named_list_value <- unname(named_list[chart_layout_title_space_above])[[1]]
new_list$x$state$layout$title_space_above <- named_list_value
}
}
}
}
new_list$x$state$layout$title_space_above_custom <- chart_layout_title_space_above_custom
if (length(chart_layout_subtitle) > 1) {
new_list$x$state$layout$subtitle <- paste(chart_layout_subtitle, collapse = "\n")
} else {
new_list$x$state$layout$subtitle <- chart_layout_subtitle
}
new_list$x$state$layout$subtitle_styling <- chart_layout_subtitle_styling
new_list$x$state$layout$subtitle_font <- chart_layout_subtitle_font
list_chart_layout_subtitle_size <- c("1.4", "1.6", "2", "custom", NULL)
if (!is.null(chart_layout_subtitle_size)) {
if (!chart_layout_subtitle_size %in% list_chart_layout_subtitle_size) {
stop("`chart_layout_subtitle_size` must be one of: c('1.4', '1.6', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1.4": "1.4", "1.6": "1.6", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1.4": "1.4", "1.6": "1.6", "2": "2", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_subtitle_size %in% names(named_list)) {
if (is.logical(chart_layout_subtitle_size)) {
chart_layout_subtitle_size <- as.character(chart_layout_subtitle_size)
}
named_list_value <- unname(named_list[chart_layout_subtitle_size])[[1]]
new_list$x$state$layout$subtitle_size <- named_list_value
}
}
}
}
new_list$x$state$layout$subtitle_size_custom <- chart_layout_subtitle_size_custom
list_chart_layout_subtitle_weight <- c("bold", "normal", NULL)
if (!is.null(chart_layout_subtitle_weight)) {
if (!chart_layout_subtitle_weight %in% list_chart_layout_subtitle_weight) {
stop("`chart_layout_subtitle_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_subtitle_weight %in% names(named_list)) {
if (is.logical(chart_layout_subtitle_weight)) {
chart_layout_subtitle_weight <- as.character(chart_layout_subtitle_weight)
}
named_list_value <- unname(named_list[chart_layout_subtitle_weight])[[1]]
new_list$x$state$layout$subtitle_weight <- named_list_value
}
}
}
}
new_list$x$state$layout$subtitle_color <- chart_layout_subtitle_color
new_list$x$state$layout$subtitle_line_height <- chart_layout_subtitle_line_height
list_chart_layout_subtitle_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(chart_layout_subtitle_space_above)) {
if (!chart_layout_subtitle_space_above %in% list_chart_layout_subtitle_space_above) {
stop("`chart_layout_subtitle_space_above` must be one of: c('0', '0.5', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_subtitle_space_above %in% names(named_list)) {
if (is.logical(chart_layout_subtitle_space_above)) {
chart_layout_subtitle_space_above <- as.character(chart_layout_subtitle_space_above)
}
named_list_value <- unname(named_list[chart_layout_subtitle_space_above])[[1]]
new_list$x$state$layout$subtitle_space_above <- named_list_value
}
}
}
}
new_list$x$state$layout$subtitle_space_above_custom <- chart_layout_subtitle_space_above_custom
if (length(chart_layout_header_text) > 1) {
new_list$x$state$layout$header_text <- paste(chart_layout_header_text, collapse = "\n")
} else {
new_list$x$state$layout$header_text <- chart_layout_header_text
}
new_list$x$state$layout$header_text_styling <- chart_layout_header_text_styling
list_chart_layout_header_text_size <- c("1.2", "1.4", "1.6", "custom", NULL)
if (!is.null(chart_layout_header_text_size)) {
if (!chart_layout_header_text_size %in% list_chart_layout_header_text_size) {
stop("`chart_layout_header_text_size` must be one of: c('1.2', '1.4', '1.6', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1.2": "1.2", "1.4": "1.4", "1.6": "1.6", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1.2": "1.2", "1.4": "1.4", "1.6": "1.6", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_text_size %in% names(named_list)) {
if (is.logical(chart_layout_header_text_size)) {
chart_layout_header_text_size <- as.character(chart_layout_header_text_size)
}
named_list_value <- unname(named_list[chart_layout_header_text_size])[[1]]
new_list$x$state$layout$header_text_size <- named_list_value
}
}
}
}
new_list$x$state$layout$header_text_size_custom <- chart_layout_header_text_size_custom
list_chart_layout_header_text_weight <- c("bold", "normal", NULL)
if (!is.null(chart_layout_header_text_weight)) {
if (!chart_layout_header_text_weight %in% list_chart_layout_header_text_weight) {
stop("`chart_layout_header_text_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_text_weight %in% names(named_list)) {
if (is.logical(chart_layout_header_text_weight)) {
chart_layout_header_text_weight <- as.character(chart_layout_header_text_weight)
}
named_list_value <- unname(named_list[chart_layout_header_text_weight])[[1]]
new_list$x$state$layout$header_text_weight <- named_list_value
}
}
}
}
new_list$x$state$layout$header_text_color <- chart_layout_header_text_color
new_list$x$state$layout$header_text_line_height <- chart_layout_header_text_line_height
list_chart_layout_header_text_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(chart_layout_header_text_space_above)) {
if (!chart_layout_header_text_space_above %in% list_chart_layout_header_text_space_above) {
stop("`chart_layout_header_text_space_above` must be one of: c('0', '0.5', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_text_space_above %in% names(named_list)) {
if (is.logical(chart_layout_header_text_space_above)) {
chart_layout_header_text_space_above <- as.character(chart_layout_header_text_space_above)
}
named_list_value <- unname(named_list[chart_layout_header_text_space_above])[[1]]
new_list$x$state$layout$header_text_space_above <- named_list_value
}
}
}
}
new_list$x$state$layout$header_text_space_above_custom <- chart_layout_header_text_space_above_custom
list_chart_layout_header_border <- c("top", "bottom", "top_and_bottom", "none", NULL)
if (!is.null(chart_layout_header_border)) {
if (!chart_layout_header_border %in% list_chart_layout_header_border) {
stop("`chart_layout_header_border` must be one of: c('top', 'bottom', 'top_and_bottom', 'none')")
} else {
if (length(jsonlite::fromJSON('{"top": "top", "bottom": "bottom", "top_and_bottom": "top_and_bottom", "none": "none"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top": "top", "bottom": "bottom", "top_and_bottom": "top_and_bottom", "none": "none"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_border %in% names(named_list)) {
if (is.logical(chart_layout_header_border)) {
chart_layout_header_border <- as.character(chart_layout_header_border)
}
named_list_value <- unname(named_list[chart_layout_header_border])[[1]]
new_list$x$state$layout$header_border <- named_list_value
}
}
}
}
new_list$x$state$layout$header_border_width <- chart_layout_header_border_width
new_list$x$state$layout$header_border_color <- chart_layout_header_border_color
list_chart_layout_header_border_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_header_border_style)) {
if (!chart_layout_header_border_style %in% list_chart_layout_header_border_style) {
stop("`chart_layout_header_border_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_border_style %in% names(named_list)) {
if (is.logical(chart_layout_header_border_style)) {
chart_layout_header_border_style <- as.character(chart_layout_header_border_style)
}
named_list_value <- unname(named_list[chart_layout_header_border_style])[[1]]
new_list$x$state$layout$header_border_style <- named_list_value
}
}
}
}
new_list$x$state$layout$header_border_space <- chart_layout_header_border_space
list_chart_layout_header_logo_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_header_logo_enabled)) {
if (!chart_layout_header_logo_enabled %in% list_chart_layout_header_logo_enabled) {
stop("`chart_layout_header_logo_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_logo_enabled %in% names(named_list)) {
if (is.logical(chart_layout_header_logo_enabled)) {
chart_layout_header_logo_enabled <- as.character(chart_layout_header_logo_enabled)
}
named_list_value <- unname(named_list[chart_layout_header_logo_enabled])[[1]]
new_list$x$state$layout$header_logo_enabled <- named_list_value
}
}
}
}
new_list$x$state$layout$header_logo_src <- chart_layout_header_logo_src
new_list$x$state$layout$header_logo_alt <- chart_layout_header_logo_alt
new_list$x$state$layout$header_logo_link_url <- chart_layout_header_logo_link_url
new_list$x$state$layout$header_logo_height <- chart_layout_header_logo_height
list_chart_layout_header_logo_align <- c("inside", "outside", NULL)
if (!is.null(chart_layout_header_logo_align)) {
if (!chart_layout_header_logo_align %in% list_chart_layout_header_logo_align) {
stop("`chart_layout_header_logo_align` must be one of: c('inside', 'outside')")
} else {
if (length(jsonlite::fromJSON('{"inside": "inside", "outside": "outside"}')) > 1) {
named_list <- jsonlite::fromJSON('{"inside": "inside", "outside": "outside"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_logo_align %in% names(named_list)) {
if (is.logical(chart_layout_header_logo_align)) {
chart_layout_header_logo_align <- as.character(chart_layout_header_logo_align)
}
named_list_value <- unname(named_list[chart_layout_header_logo_align])[[1]]
new_list$x$state$layout$header_logo_align <- named_list_value
}
}
}
}
list_chart_layout_header_logo_position_inside <- c("top", "left", "right", NULL)
if (!is.null(chart_layout_header_logo_position_inside)) {
if (!chart_layout_header_logo_position_inside %in% list_chart_layout_header_logo_position_inside) {
stop("`chart_layout_header_logo_position_inside` must be one of: c('top', 'left', 'right')")
} else {
if (length(jsonlite::fromJSON('{"top": "top", "left": "left", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top": "top", "left": "left", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_logo_position_inside %in% names(named_list)) {
if (is.logical(chart_layout_header_logo_position_inside)) {
chart_layout_header_logo_position_inside <- as.character(chart_layout_header_logo_position_inside)
}
named_list_value <- unname(named_list[chart_layout_header_logo_position_inside])[[1]]
new_list$x$state$layout$header_logo_position_inside <- named_list_value
}
}
}
}
list_chart_layout_header_logo_position_outside <- c("left", "right", NULL)
if (!is.null(chart_layout_header_logo_position_outside)) {
if (!chart_layout_header_logo_position_outside %in% list_chart_layout_header_logo_position_outside) {
stop("`chart_layout_header_logo_position_outside` must be one of: c('left', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_logo_position_outside %in% names(named_list)) {
if (is.logical(chart_layout_header_logo_position_outside)) {
chart_layout_header_logo_position_outside <- as.character(chart_layout_header_logo_position_outside)
}
named_list_value <- unname(named_list[chart_layout_header_logo_position_outside])[[1]]
new_list$x$state$layout$header_logo_position_outside <- named_list_value
}
}
}
}
new_list$x$state$layout$header_logo_margin_top <- chart_layout_header_logo_margin_top
new_list$x$state$layout$header_logo_margin_right <- chart_layout_header_logo_margin_right
new_list$x$state$layout$header_logo_margin_bottom <- chart_layout_header_logo_margin_bottom
new_list$x$state$layout$header_logo_margin_left <- chart_layout_header_logo_margin_left
list_chart_layout_footer_align <- c("left", "center", "right", "justify", NULL)
if (!is.null(chart_layout_footer_align)) {
if (!chart_layout_footer_align %in% list_chart_layout_footer_align) {
stop("`chart_layout_footer_align` must be one of: c('left', 'center', 'right', 'justify')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right", "justify": "justify"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right", "justify": "justify"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_align %in% names(named_list)) {
if (is.logical(chart_layout_footer_align)) {
chart_layout_footer_align <- as.character(chart_layout_footer_align)
}
named_list_value <- unname(named_list[chart_layout_footer_align])[[1]]
new_list$x$state$layout$footer_align <- named_list_value
}
}
}
}
new_list$x$state$layout$footer_text_size <- chart_layout_footer_text_size
new_list$x$state$layout$footer_text_color <- chart_layout_footer_text_color
new_list$x$state$layout$footer_styling <- chart_layout_footer_styling
new_list$x$state$layout$footer_font <- chart_layout_footer_font
list_chart_layout_footer_text_weight <- c("bold", "normal", NULL)
if (!is.null(chart_layout_footer_text_weight)) {
if (!chart_layout_footer_text_weight %in% list_chart_layout_footer_text_weight) {
stop("`chart_layout_footer_text_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_text_weight %in% names(named_list)) {
if (is.logical(chart_layout_footer_text_weight)) {
chart_layout_footer_text_weight <- as.character(chart_layout_footer_text_weight)
}
named_list_value <- unname(named_list[chart_layout_footer_text_weight])[[1]]
new_list$x$state$layout$footer_text_weight <- named_list_value
}
}
}
}
new_list$x$state$layout$source_name <- chart_layout_source_name
new_list$x$state$layout$source_url <- chart_layout_source_url
new_list$x$state$layout$multiple_sources <- chart_layout_multiple_sources
new_list$x$state$layout$source_name_2 <- chart_layout_source_name_2
new_list$x$state$layout$source_url_2 <- chart_layout_source_url_2
new_list$x$state$layout$source_name_3 <- chart_layout_source_name_3
new_list$x$state$layout$source_url_3 <- chart_layout_source_url_3
new_list$x$state$layout$source_label <- chart_layout_source_label
if (length(chart_layout_footer_note) > 1) {
new_list$x$state$layout$footer_note <- paste(chart_layout_footer_note, collapse = "\n")
} else {
new_list$x$state$layout$footer_note <- chart_layout_footer_note
}
if (length(chart_layout_footer_note_secondary) > 1) {
new_list$x$state$layout$footer_note_secondary <- paste(chart_layout_footer_note_secondary, collapse = "\n")
} else {
new_list$x$state$layout$footer_note_secondary <- chart_layout_footer_note_secondary
}
new_list$x$state$layout$advanced_note_styling <- chart_layout_advanced_note_styling
list_chart_layout_footer_timestamp_format <- c("%H:%M:%S", "%I:%M %p", "%H:%M", "%H:%M %p", "%H:%M:%S, %d %b %Y", "%H:%M, %d %b %Y", "%H:%M, %d/%m/%Y", "%H:%M, %m/%d/%Y", "%H:%M, %d-%m-%Y", "%H:%M, %m-%d-%Y", "%d %b %Y", "%m/%d/%Y", "%d/%m/%Y", "%m-%d-%Y", "%d-%m-%Y", "%Y-%m-%d", "%Y-%m-%d %H:%M:%S", NULL)
if (!is.null(chart_layout_footer_timestamp_format)) {
if (!chart_layout_footer_timestamp_format %in% list_chart_layout_footer_timestamp_format) {
stop("`chart_layout_footer_timestamp_format` must be one of: c('%H:%M:%S', '%I:%M %p', '%H:%M', '%H:%M %p', '%H:%M:%S, %d %b %Y', '%H:%M, %d %b %Y', '%H:%M, %d/%m/%Y', '%H:%M, %m/%d/%Y', '%H:%M, %d-%m-%Y', '%H:%M, %m-%d-%Y', '%d %b %Y', '%m/%d/%Y', '%d/%m/%Y', '%m-%d-%Y', '%d-%m-%Y', '%Y-%m-%d', '%Y-%m-%d %H:%M:%S')")
} else {
if (length(jsonlite::fromJSON('{"%H:%M:%S": "%H:%M:%S", "%I:%M %p": "%I:%M %p", "%H:%M": "%H:%M", "%H:%M %p": "%H:%M %p", "%H:%M:%S, %d %b %Y": "%H:%M:%S, %d %b %Y", "%H:%M, %d %b %Y": "%H:%M, %d %b %Y", "%H:%M, %d/%m/%Y": "%H:%M, %d/%m/%Y", "%H:%M, %m/%d/%Y": "%H:%M, %m/%d/%Y", "%H:%M, %d-%m-%Y": "%H:%M, %d-%m-%Y", "%H:%M, %m-%d-%Y": "%H:%M, %m-%d-%Y", "%d %b %Y": "%d %b %Y", "%m/%d/%Y": "%m/%d/%Y", "%d/%m/%Y": "%d/%m/%Y", "%m-%d-%Y": "%m-%d-%Y", "%d-%m-%Y": "%d-%m-%Y", "%Y-%m-%d": "%Y-%m-%d", "%Y-%m-%d %H:%M:%S": "%Y-%m-%d %H:%M:%S"}')) > 1) {
named_list <- jsonlite::fromJSON('{"%H:%M:%S": "%H:%M:%S", "%I:%M %p": "%I:%M %p", "%H:%M": "%H:%M", "%H:%M %p": "%H:%M %p", "%H:%M:%S, %d %b %Y": "%H:%M:%S, %d %b %Y", "%H:%M, %d %b %Y": "%H:%M, %d %b %Y", "%H:%M, %d/%m/%Y": "%H:%M, %d/%m/%Y", "%H:%M, %m/%d/%Y": "%H:%M, %m/%d/%Y", "%H:%M, %d-%m-%Y": "%H:%M, %d-%m-%Y", "%H:%M, %m-%d-%Y": "%H:%M, %m-%d-%Y", "%d %b %Y": "%d %b %Y", "%m/%d/%Y": "%m/%d/%Y", "%d/%m/%Y": "%d/%m/%Y", "%m-%d-%Y": "%m-%d-%Y", "%d-%m-%Y": "%d-%m-%Y", "%Y-%m-%d": "%Y-%m-%d", "%Y-%m-%d %H:%M:%S": "%Y-%m-%d %H:%M:%S"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_timestamp_format %in% names(named_list)) {
if (is.logical(chart_layout_footer_timestamp_format)) {
chart_layout_footer_timestamp_format <- as.character(chart_layout_footer_timestamp_format)
}
named_list_value <- unname(named_list[chart_layout_footer_timestamp_format])[[1]]
new_list$x$state$layout$footer_timestamp_format <- named_list_value
}
}
}
}
list_chart_layout_footer_logo_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_footer_logo_enabled)) {
if (!chart_layout_footer_logo_enabled %in% list_chart_layout_footer_logo_enabled) {
stop("`chart_layout_footer_logo_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_logo_enabled %in% names(named_list)) {
if (is.logical(chart_layout_footer_logo_enabled)) {
chart_layout_footer_logo_enabled <- as.character(chart_layout_footer_logo_enabled)
}
named_list_value <- unname(named_list[chart_layout_footer_logo_enabled])[[1]]
new_list$x$state$layout$footer_logo_enabled <- named_list_value
}
}
}
}
new_list$x$state$layout$footer_logo_src <- chart_layout_footer_logo_src
new_list$x$state$layout$footer_logo_src_light <- chart_layout_footer_logo_src_light
new_list$x$state$layout$footer_logo_alt <- chart_layout_footer_logo_alt
new_list$x$state$layout$footer_logo_link_url <- chart_layout_footer_logo_link_url
new_list$x$state$layout$footer_logo_height <- chart_layout_footer_logo_height
new_list$x$state$layout$footer_logo_margin <- chart_layout_footer_logo_margin
list_chart_layout_footer_logo_order <- c("left", "right", NULL)
if (!is.null(chart_layout_footer_logo_order)) {
if (!chart_layout_footer_logo_order %in% list_chart_layout_footer_logo_order) {
stop("`chart_layout_footer_logo_order` must be one of: c('left', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_logo_order %in% names(named_list)) {
if (is.logical(chart_layout_footer_logo_order)) {
chart_layout_footer_logo_order <- as.character(chart_layout_footer_logo_order)
}
named_list_value <- unname(named_list[chart_layout_footer_logo_order])[[1]]
new_list$x$state$layout$footer_logo_order <- named_list_value
}
}
}
}
list_chart_layout_footer_align_vertical <- c("flex-start", "center", "flex-end", NULL)
if (!is.null(chart_layout_footer_align_vertical)) {
if (!chart_layout_footer_align_vertical %in% list_chart_layout_footer_align_vertical) {
stop("`chart_layout_footer_align_vertical` must be one of: c('flex-start', 'center', 'flex-end')")
} else {
if (length(jsonlite::fromJSON('{"flex-start": "flex-start", "center": "center", "flex-end": "flex-end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"flex-start": "flex-start", "center": "center", "flex-end": "flex-end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_align_vertical %in% names(named_list)) {
if (is.logical(chart_layout_footer_align_vertical)) {
chart_layout_footer_align_vertical <- as.character(chart_layout_footer_align_vertical)
}
named_list_value <- unname(named_list[chart_layout_footer_align_vertical])[[1]]
new_list$x$state$layout$footer_align_vertical <- named_list_value
}
}
}
}
list_chart_layout_footer_border <- c("top", "bottom", "top_and_bottom", "none", NULL)
if (!is.null(chart_layout_footer_border)) {
if (!chart_layout_footer_border %in% list_chart_layout_footer_border) {
stop("`chart_layout_footer_border` must be one of: c('top', 'bottom', 'top_and_bottom', 'none')")
} else {
if (length(jsonlite::fromJSON('{"top": "top", "bottom": "bottom", "top_and_bottom": "top_and_bottom", "none": "none"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top": "top", "bottom": "bottom", "top_and_bottom": "top_and_bottom", "none": "none"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_border %in% names(named_list)) {
if (is.logical(chart_layout_footer_border)) {
chart_layout_footer_border <- as.character(chart_layout_footer_border)
}
named_list_value <- unname(named_list[chart_layout_footer_border])[[1]]
new_list$x$state$layout$footer_border <- named_list_value
}
}
}
}
new_list$x$state$layout$footer_border_width <- chart_layout_footer_border_width
new_list$x$state$layout$footer_border_color <- chart_layout_footer_border_color
list_chart_layout_footer_border_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_footer_border_style)) {
if (!chart_layout_footer_border_style %in% list_chart_layout_footer_border_style) {
stop("`chart_layout_footer_border_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_border_style %in% names(named_list)) {
if (is.logical(chart_layout_footer_border_style)) {
chart_layout_footer_border_style <- as.character(chart_layout_footer_border_style)
}
named_list_value <- unname(named_list[chart_layout_footer_border_style])[[1]]
new_list$x$state$layout$footer_border_style <- named_list_value
}
}
}
}
new_list$x$state$layout$footer_border_space <- chart_layout_footer_border_space
if (length(chart_layout_screenreader_text_primary) > 1) {
new_list$x$state$layout$screenreader_text_primary <- paste(chart_layout_screenreader_text_primary, collapse = "\n")
} else {
new_list$x$state$layout$screenreader_text_primary <- chart_layout_screenreader_text_primary
}
new_list$x$state$layout$screenreader_label <- chart_layout_screenreader_label
list_chart_layout_screenreader_hide_primary <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_screenreader_hide_primary)) {
if (!chart_layout_screenreader_hide_primary %in% list_chart_layout_screenreader_hide_primary) {
stop("`chart_layout_screenreader_hide_primary` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_screenreader_hide_primary %in% names(named_list)) {
if (is.logical(chart_layout_screenreader_hide_primary)) {
chart_layout_screenreader_hide_primary <- as.character(chart_layout_screenreader_hide_primary)
}
named_list_value <- unname(named_list[chart_layout_screenreader_hide_primary])[[1]]
new_list$x$state$layout$screenreader_hide_primary <- named_list_value
}
}
}
}
new_list$x$state$url_state$enabled <- chart_url_settings_enabled
if (length(chart_url_settings_whitelist) > 1) {
new_list$x$state$url_state$whitelist <- paste(chart_url_settings_whitelist, collapse = "\n")
} else {
new_list$x$state$url_state$whitelist <- chart_url_settings_whitelist
}
deep_merge(old_list, new_list)
}
Try the flourishcharts package in your browser
Any scripts or data that you put into this service are public.
flourishcharts documentation built on Oct. 30, 2024, 9:07 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions set_table_details
Documented in set_table_details
#' Set table chart details
#' @name set_table_details
#' @param table_min_width Min width. Flourish type hint: number, defaults to `NULL`
#' @param table_border_width Border. Flourish type hint: number, defaults to `NULL`
#' @param table_border_color Border color. Flourish type hint: color, defaults to `NULL`
#' @param sorting_enabled Sortable columns. Choices: all, none, custom. Determines whether a viewer can sort the table by clicking on the column headers. Custom allows the user only to sort listed columns. Flourish type hint: string, defaults to `NULL`
#' @param sorting_custom_columns Columns to make sortable. Write each column name you want to make sortable on a new line. Flourish type hint: text, defaults to `NULL`
#' @param pagination_amount Rows per page. If you dont want pagination, set this number to a value greater than the number of rows in your data. Flourish type hint: number, defaults to `NULL`
#' @param markdown_enabled Cell text styling. Choices: `TRUE`, `FALSE`. Enables Markdown for your cells. For example for _italic_, **bold** text. Flourish type hint: boolean, defaults to `NULL`
#' @param cell_height Min height. Flourish type hint: number, defaults to `NULL`
#' @param cell_padding_vertical Padding vertical. Flourish type hint: number, defaults to `NULL`
#' @param cell_padding_horizontal Padding horizontal. Flourish type hint: number, defaults to `NULL`
#' @param cell_wrap Wrap text in cell. Flourish type hint: boolean, defaults to `NULL`
#' @param cell_horizontal_alignment Text. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param cell_numeric_horizontal_alignment Numbers. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param cell_vertical_alignment Vertical alignment. Choices: top, center, bottom. Flourish type hint: string, defaults to `NULL`
#' @param cell_fill_1 Main color. Flourish type hint: color, defaults to `NULL`
#' @param cell_fill_2 Stripe color. Flourish type hint: color, defaults to `NULL`
#' @param cell_fill_direction Stripe direction. Choices: horizontal, vertical. Flourish type hint: string, defaults to `NULL`
#' @param cell_fill_custom_enabled Color cells based on content. Flourish type hint: boolean, defaults to `NULL`
#' @param cell_fill_custom_categorical Categorical coloring. To color cells based on their content, use the format: cell-color/text-color : cell-text : column name OR row-number To specify a row, write "row-" followed by the row number from the datasheet. Its also possible to leave out the column name or row number if you want to target all the cells in the table For example: red/white : Chelsea Use * in place of cell-text to select an entire column or row. For example: #0000dd/#ffffff : Alabama #ffffff/#dddddd : * : State #0000dd/#ffffff : * : row-2 #ffffff/#dddddd : n/a : Capital Flourish type hint: text, defaults to `NULL`
#' @param cell_fill_custom_numeric Numeric coloring. Color cells numerically based on their content. For sequential coloring, use the format: min_color >> max_color : column_name : domain_min >> domain_max The domain is optional, for example: #ffffff >> #00ff00 : Population #ffffff >> #00ff00 : Population : 0 >> 1000000000 For diverging coloring, use the format: min_color >> midpt_color >> max_color : col_name : domain_min >> domain_mid >> domain_max The domain is optional, for example: #ffffff >> #00ff00 >> #ff00ff : Vote share #ffffff >> #00ff00 >> #ff00ff : Vote share : 0 >> 50 >> 100 Where both numeric and categorical coloring are used on a cell, categorical will override numeric. Flourish type hint: text, defaults to `NULL`
#' @param cell_fill_margin_vertical Vertical margin. Flourish type hint: number, defaults to `NULL`
#' @param cell_fill_margin_horizontal Horizontal margin. Flourish type hint: number, defaults to `NULL`
#' @param cell_border_mode Mode. Choices: none, horizontal, vertical, both. Flourish type hint: string, defaults to `NULL`
#' @param cell_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param cell_border_width Thickness. Flourish type hint: number, defaults to `NULL`
#' @param cell_border_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param cell_font_color Color. Flourish type hint: color, defaults to `NULL`
#' @param cell_link_color Link color. Flourish type hint: color, defaults to `NULL`
#' @param cell_font_size Size. Choices: 1, 1.25, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param cell_font_size_custom Custom. Specify a custom responsive font size in rems Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param column_width_mode Choices: auto, equal, fixed. Flourish type hint: string, defaults to `NULL`
#' @param column_widths Column widths. A comma separated lists of column widths. The first column will be the first number in the list. You can use "px" to set fixed widths or "%" to use percentage of total width. (e.g. 200px,200px,25%). Flourish type hint: string, defaults to `NULL`
#' @param header_font_weight Text weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param header_fill Background. Flourish type hint: color, defaults to `NULL`
#' @param header_font_color Color. Flourish type hint: color, defaults to `NULL`
#' @param header_underline_sorting Underline sorting header. Flourish type hint: boolean, defaults to `NULL`
#' @param header_style_default Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param header_height Height. Flourish type hint: number, defaults to `NULL`
#' @param header_padding Padding. Flourish type hint: number, defaults to `NULL`
#' @param header_horizontal_alignment Horizontal alignment. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param header_font_default Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param header_font_size Size. Flourish type hint: number, defaults to `NULL`
#' @param header_border_default Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param header_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param header_border_width Thickness. Flourish type hint: number, defaults to `NULL`
#' @param header_border_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param cell_image_height Height. as a percentage of the cell height. Flourish type hint: number, defaults to `NULL`
#' @param cell_image_radius Rounded corners. Sets the radius of the corner roundness (in %). A value of 50 means your image will show as a circle. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_enabled Choices: `TRUE`, `FALSE`. This setting will convert numerical values in your data to a simple visual bar chart. Flourish type hint: boolean, defaults to `NULL`
#' @param bar_columns_bar_1_columns Which columns should be part of the bar chart?. Just write down the column names on a new line. Flourish type hint: text, defaults to `NULL`
#' @param bar_columns_bar_1_column_name New column name. Flourish type hint: string, defaults to `NULL`
#' @param bar_columns_type Bar type. Choices: bars, columns. Flourish type hint: string, defaults to `NULL`
#' @param bar_columns_bar_1_height Max height. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_bar_1_width Width. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_bar_1_column_padding Padding. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_bar_1_proportional Mode. Choices: `FALSE`, `TRUE`. Display data in a proportional bar chart or a standard stacked bar chart with a fixed min and max, e.g. for negative numbers. Flourish type hint: boolean, defaults to `NULL`
#' @param bar_columns_bar_1_same_scale Consistent scale. If enabled, all the bar charts in the table will use the same X scale. Flourish type hint: boolean, defaults to `NULL`
#' @param bar_columns_bar_1_zero_line Show zero line. Flourish type hint: boolean, defaults to `NULL`
#' @param bar_columns_bar_1_zero_line_color Zero line color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_categorical_palette Palette. Flourish type hint: colors, defaults to `NULL`
#' @param chart_color_scale_categorical_extend Extend. Automatically generate additional colours when needed to avoid the palette colours being used more than once. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_categorical_custom_palette Custom overrides. Enter the label name for which you wish to set the color, followed by a colon and the desired color value. Colors can be set using Hex, RGB, color names or RGBA, if you want to set the opacity Multiple colors can be set using multiple lines. For example: Party 1: red Party 2: #4455AA Party 3: rgb(30,168,26). Flourish type hint: text, defaults to `NULL`
#' @param chart_color_scale_numeric_type Scale type. Choices: sequential, diverging. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_binning Choices: `FALSE`, `TRUE`. In linear mode, the color scale will run as a smooth gradient between 2 colors. In binned mode, the gradient will be divided in smaller blocks. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_bin_mode Binning mode. Choices: fixed, quantile, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_bin_count Number of bins. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_bin_thresholds Custom thresholds. Enter your desired thresholds, separating them with a ";". For instance, "5;10;15". Bins form as follows: From the datas minimum value (domain minimum) up to the first threshold. Between consecutive thresholds. From the last threshold to the datas maximum value (domain maximum). For "5;10;15", youll get four bins based on your datas range. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_sequential_palette Palette. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_sequential_reverse Reverse. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_sequential_custom_min Minimum color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_sequential_custom_max Maximum color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_sequential_color_space Color space. Choices: rgb, lab, hcl, hsl. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_sequential_custom_domain Domain. Choices: `FALSE`, `TRUE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_sequential_domain_min Min. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_sequential_domain_max Max. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_diverging_palette Palette. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_diverging_reverse Reverse. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_diverging_custom_min Minimum color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_diverging_custom_mid Midpoint color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_diverging_custom_max Maximum color. Flourish type hint: color, defaults to `NULL`
#' @param chart_color_scale_diverging_color_space Color space. Choices: rgb, lab, hcl, hsl. Flourish type hint: string, defaults to `NULL`
#' @param chart_color_scale_diverging_custom_domain Domain. Choices: `FALSE`, `TRUE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_color_scale_diverging_domain_min Min. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_diverging_domain_mid Mid. Flourish type hint: number, defaults to `NULL`
#' @param chart_color_scale_diverging_domain_max Max. Flourish type hint: number, defaults to `NULL`
#' @param bar_columns_bar_1_labels Labels. Choices: none, popup, inline. Flourish type hint: string, defaults to `NULL`
#' @param bar_columns_bar_1_label_size Inline label size. Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_show_legend Legend. Choices: `TRUE`, `FALSE`. A legend will not show with a single entry. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_legend_title_mode Title mode. Choices: auto, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_title Title. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_swatch_width Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_swatch_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_swatch_radius Roundness. The radius of the corners of the swatch (in pixels). Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_legend_items_padding Padding. Padding between legend items ( in rems ). Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_swatch_outline Outline. An optional outline for the swatch in the legend. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_legend_swatch_outline_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_legend_order_override Custom order override. Manually specify the order of legend entries (one entry per line). Flourish type hint: text, defaults to `NULL`
#' @param chart_legend_icon_height Height. Height of icon ( in rems ). Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_icon_color Color. Fallback color (icon color if not determined by template). Flourish type hint: color, defaults to `NULL`
#' @param chart_legend_max_width Max width. Flourish type hint: number, defaults to `NULL`
#' @param chart_legend_orientation Orientation. Choices: horizontal, vertical. Flourish type hint: string, defaults to `NULL`
#' @param legend_position Legend position. Choices: above, below. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_alignment Alignment. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_orientation Orientation. Choices: horizontal, vertical. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_title_weight Title weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_text_weight Text weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_legend_container_text_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_legend_container_text_size Size. Flourish type hint: number, defaults to `NULL`
#' @param line_columns_enabled Choices: `TRUE`, `FALSE`. This setting will convert numerical values in your data to a simple visual line chart. Flourish type hint: boolean, defaults to `NULL`
#' @param line_columns_line_1_columns Which columns should be part of the line chart?. Write down the column names on a new line. Flourish type hint: text, defaults to `NULL`
#' @param line_columns_line_1_column_name New column name. Flourish type hint: string, defaults to `NULL`
#' @param line_columns_line_1_width Width. Flourish type hint: number, defaults to `NULL`
#' @param line_columns_line_1_height Max height. Flourish type hint: number, defaults to `NULL`
#' @param line_columns_line_1_color Color. Flourish type hint: color, defaults to `NULL`
#' @param line_columns_line_1_area Area chart. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param line_columns_line_1_min_enabled Min. Choices: `TRUE`, `FALSE`. Use a fixed min value. Flourish type hint: boolean, defaults to `NULL`
#' @param line_columns_line_1_min Min value. Flourish type hint: number, defaults to `NULL`
#' @param line_columns_line_1_max_enabled Max. Choices: `TRUE`, `FALSE`. Use a fixed max value. Flourish type hint: boolean, defaults to `NULL`
#' @param line_columns_line_1_max Max value. Flourish type hint: number, defaults to `NULL`
#' @param mobile_view Mobile view. Choices: `FALSE`, `TRUE`. Flourish type hint: boolean, defaults to `NULL`
#' @param mobile_breakpoint Mobile breakpoint width. Flourish type hint: number, defaults to `NULL`
#' @param mobile_cell_font_size Text size. Choices: 1, 1.25, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param mobile_cell_font_size_custom Custom. Specify a custom responsive font size in rems Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param mobile_pagination_amount Rows per page. If you dont want pagination, set this number to a value greater than the number of rows in your data. Flourish type hint: number, defaults to `NULL`
#' @param search_enabled Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param search_mode Search mode. Choices: anywhere, start, whole. Anywhere : Search for the specified text anywhere in the cell Start : Search for the specified text at the beginning of the cell Whole : Search for the exact specified text in the cell. Flourish type hint: string, defaults to `NULL`
#' @param search_width Width. Width of search container. Flourish type hint: number, defaults to `NULL`
#' @param search_background_color Background. Flourish type hint: color, defaults to `NULL`
#' @param search_text_color Text color. Flourish type hint: color, defaults to `NULL`
#' @param search_placeholder Placeholder text. Flourish type hint: string, defaults to `NULL`
#' @param no_results_text Text when no results. Flourish type hint: string, defaults to `NULL`
#' @param search_hide_table Hide table before search. Flourish type hint: boolean, defaults to `NULL`
#' @param search_hide_published Hide search when published. Keeps the search box visible in the editor (e.g. for filtering in a story) but hides it in the published visualization or storyFlourish type hint: boolean, defaults to `NULL`
#' @param search_columns Columns to search. Choices: all, first, custom. Choose which columns you want to search through. You might want to narrow this down with big datasets to speed it up You can select specific columns by writing them down on a new line, like this: Column A Column B. Flourish type hint: string, defaults to `NULL`
#' @param search_columns_custom Flourish type hint: text, defaults to `NULL`
#' @param search_resize Resize table after searching. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param search_dropdown Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param search_dropdown_persistent Always show dropdown suggestions. Flourish type hint: boolean, defaults to `NULL`
#' @param search_val Search value. The current string value of the search box. Flourish type hint: hidden, defaults to `NULL`
#' @param chart_popup_show_popups Popups. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_is_custom Popup contents. Choices: `FALSE`, `TRUE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_custom_template Popup content. The text to appear in the popup. You can use `{{column_name}}` to add a value from your data. It must be in a selected column, but you can add columns to Metadata if you just want to include them for use in the popup. Advanced users can include HTML to apply layouts, formatting, images, etc. Flourish type hint: text, defaults to `NULL`
#' @param chart_popup_show_pointer Pointer. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_show_shadow Shadow. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_style_popups Custom styling. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_popup_text_color Text colour. Flourish type hint: color, defaults to `NULL`
#' @param chart_popup_align Alignment. Choices: left, center, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_popup_text_size Font size. Flourish type hint: number, defaults to `NULL`
#' @param chart_popup_fill_color Fill colour. Flourish type hint: color, defaults to `NULL`
#' @param chart_popup_opacity Fill opacity. Flourish type hint: number, defaults to `NULL`
#' @param chart_popup_padding Padding. Flourish type hint: number, defaults to `NULL`
#' @param chart_popup_border_radius Radius. Corner radius of popup. Flourish type hint: number, defaults to `NULL`
#' @param chart_popup_max_width Max width. Flourish type hint: number, defaults to `NULL`
#' @param formatted_columns Columns to format. Write down the column names on a new line that you want to apply formatting to. Flourish type hint: text, defaults to `NULL`
#' @param chart_number_date_format_prefix Prefix. Text to place in front of a number. Flourish type hint: string, defaults to `NULL`
#' @param chart_number_date_format_suffix Suffix. Text to place after a number. Flourish type hint: string, defaults to `NULL`
#' @param chart_number_date_format_n_dec Decimal places. Decimal places. You can also enter a negative integer to round to a whole number with that many zeros. For example, -2 will round to the nearest hundred. Flourish type hint: number, defaults to `NULL`
#' @param chart_number_date_format_advanced Advanced. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_number_date_format_negative_sign Styling of negative numbers. Choices: -$nk, $-nk, ($nk), $(n)k, none. Flourish type hint: string, defaults to `NULL`
#' @param chart_number_date_format_strip_zeros Remove trailing zeros. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_number_date_format_strip_separator Hide thousands separator below 10,000. Turn off if you want four-digit numbers to include a separator, e.g. 1,234 rather than 1234. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_number_date_format_transform_labels Multiply/divide values. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_number_date_format_transform Choices: multiply, divide, exponentiate. Flourish type hint: string, defaults to `NULL`
#' @param chart_number_date_format_multiply_divide_constant Flourish type hint: number, defaults to `NULL`
#' @param chart_number_date_format_exponentiate_constant Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_body_font Main font. This font will apply to the whole graphic by default. You can optionally change the font for the title, subtitle, footer, etc in the Header and Footer settings panels. Flourish type hint: font, defaults to `NULL`
#' @param chart_layout_font_color Text color. This color will apply to the whole graphic by default, You can optionally change the color for individual text elements, in other settings panels. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_background_color_enabled Color. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_background_image_enabled Image. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_background_color Background color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_background_image_src Image URL. Flourish type hint: url, defaults to `NULL`
#' @param chart_layout_background_image_size Size. Choices: cover, contain, auto, 100% 100%. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_background_image_position Position. Choices: top left, top center, top right, center left, center center, center right, bottom left, bottom center, bottom right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_max_width_target Maximum width. Choices: none, wrapper, primary. Apply a maximum width to just the main graphic or everything (main graphic plus header, footer, etc). Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_max_width Maximum width. Leave blank to stretch to container width. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_max_width_align Align. Choices: left, center, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_layout_order Layout order. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_space_between_sections Space between sections. Choices: 0.5, 1, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_space_between_sections_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_margin_top Top. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_margin_right Right. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_margin_bottom Bottom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_margin_left Left. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_enabled Show borders around visualisation. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_border_top_width Top. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_top_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_border_top_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_border_right_width Right. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_right_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_border_right_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_border_bottom_width Bottom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_bottom_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_border_bottom_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_border_left_width Left. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_border_left_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_border_left_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_read_direction Read direction. Choices: ltr, rtl. This will change the reading direction of the main text elements on the page. Its not possible to adjust this on all elements, such as axes. Note that when direction is set to right to left any alignment icons will be reversed. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_font_size_mobile_small Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_font_size_mobile_big Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_font_size_tablet Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_font_size_desktop Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_font_size_big_screen Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_mobile_small Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_mobile_big Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_tablet Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_desktop Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_breakpoint_big_screen Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_align Alignment. Choices: left, center, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_title Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_title_styling Styling. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_title_font Title Font. Flourish type hint: font, defaults to `NULL`
#' @param chart_layout_title_size Size. Choices: 1.4, 1.6, 2, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_title_size_custom Custom. Specify a custom responsive font size in rems The best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_title_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_title_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_title_line_height Line height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_title_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_title_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_subtitle Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_subtitle_styling Styling. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_subtitle_font Subtitle Font. Flourish type hint: font, defaults to `NULL`
#' @param chart_layout_subtitle_size Size. Choices: 1.4, 1.6, 2, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_subtitle_size_custom Custom. Specify a custom responsive font size in rems The best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_subtitle_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_subtitle_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_subtitle_line_height Line height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_subtitle_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_subtitle_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_text Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_header_text_styling Styling. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_header_text_size Size. Choices: 1.2, 1.4, 1.6, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_text_size_custom Custom. Specify a custom responsive font size in rems The best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_text_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_text_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_header_text_line_height Line height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_text_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_text_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_border Choices: top, bottom, top_and_bottom, none. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_border_width Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_header_border_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_border_space Space. Space between border and header text. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_enabled Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_header_logo_src Image. Flourish type hint: url, defaults to `NULL`
#' @param chart_layout_header_logo_alt Alt text. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_link_url Link. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_align Align. Choices: inside, outside. Align logo inside either the header or the main visualization container. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_position_inside Position. Choices: top, left, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_position_outside Position. Choices: left, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_header_logo_margin_top Top. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_margin_right Right. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_margin_bottom Bottom. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_header_logo_margin_left Left. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_align Alignment. Choices: left, center, right, justify. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_text_size Size. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_text_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_footer_styling Advanced footer styles. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_footer_font Font. Flourish type hint: font, defaults to `NULL`
#' @param chart_layout_footer_text_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_name Source name. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_url Source url. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_multiple_sources Multiple sources. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_source_name_2 Source name. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_url_2 Source url. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_name_3 Source name. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_url_3 Source url. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_source_label Source label. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_note Note. To add the time/date stamp of when the data was last updated add `{{data_last_updated}}`. For example, "Last updated at `{{data_last_updated}}`". To customize the format, use the advanced options below. Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_footer_note_secondary Note (secondary). The secondary note is placed below the source and primary note. To add the time/date stamp of when the data was last updated add `{{data_last_updated}}`. For example, "Last updated at `{{data_last_updated}}`". To customize the format, use the advanced options below. Flourish type hint: html, defaults to `NULL`
#' @param chart_layout_advanced_note_styling Advanced. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_footer_timestamp_format Time/date stamp formatting. Choices: %H:%M:%S, %I:%M %p, %H:%M, %H:%M %p, %H:%M:%S, %d %b %Y, %H:%M, %d %b %Y, %H:%M, %d/%m/%Y, %H:%M, %m/%d/%Y, %H:%M, %d-%m-%Y, %H:%M, %m-%d-%Y, %d %b %Y, %m/%d/%Y, %d/%m/%Y, %m-%d-%Y, %d-%m-%Y, %Y-%m-%d, %Y-%m-%d %H:%M:%S. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_logo_enabled Image. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_layout_footer_logo_src Image. Flourish type hint: url, defaults to `NULL`
#' @param chart_layout_footer_logo_src_light Image (light version). If provided this version will be used whenever the background color is dark. Flourish type hint: hidden, defaults to `NULL`
#' @param chart_layout_footer_logo_alt Alt text. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_logo_link_url Link. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_logo_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_logo_margin Margin. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_logo_order Position. Choices: left, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_align_vertical V. align. Choices: flex-start, center, flex-end. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_border Choices: top, bottom, top_and_bottom, none. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_border_width Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_footer_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_layout_footer_border_style Style. Choices: solid, dashed, dotted. Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_footer_border_space Space. Space between border and footer text. Flourish type hint: number, defaults to `NULL`
#' @param chart_layout_screenreader_text_primary Screenreader description. A text alternative to the visual content that will only be visible to screenreaders, e.g. The line chart shows China consistently higher than the other countries since 1990. Do not replicate your title, since that will also be read by screenreaders. Flourish type hint: text, defaults to `NULL`
#' @param chart_layout_screenreader_label Screenreader label. A short text label given to the main Flourish embed wrapper to provide an accessible name that is only visible to screenreaders Added in the form of an "aria-label". Flourish type hint: string, defaults to `NULL`
#' @param chart_layout_screenreader_hide_primary Screenreader mode for main visual container. Choices: `TRUE`, `FALSE`. Whether the main visual container is visible to screenreaders (Text in the header and footer are always available to screenreaders.). Flourish type hint: boolean, defaults to `NULL`
#' @param chart_url_settings_enabled Update project from URL. Make it possible to change the visualizations settings/state from the URL hash, for example when embedding in an iframe or popup panel. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_url_settings_whitelist Allowed state properties. List each state property you want to make changeable with the URL hash See the template page for a full list of state properties. Add one property name per line. Use dot format for nested properties, e.g. `layout.background_color`. Flourish type hint: text, defaults to `NULL`
#' @param . The prior Flourish object. No need to specify name if piping graph as the graph will take the first argument (i.e. the prior existing graph).
#' @return A Flourish chart
#' @examples
#' try(
#' flourish(chart_type = "table", api_key = Sys.getenv("FLOURISH_API_KEY")) |>
#' bind_table_data(gapminder) |>
#' set_table_details()
#' )
#' @export
set_table_details <- function(
.,
table_min_width = NULL,
table_border_width = NULL,
table_border_color = NULL,
sorting_enabled = NULL,
sorting_custom_columns = NULL,
pagination_amount = NULL,
markdown_enabled = NULL,
cell_height = NULL,
cell_padding_vertical = NULL,
cell_padding_horizontal = NULL,
cell_wrap = NULL,
cell_horizontal_alignment = NULL,
cell_numeric_horizontal_alignment = NULL,
cell_vertical_alignment = NULL,
cell_fill_1 = NULL,
cell_fill_2 = NULL,
cell_fill_direction = NULL,
cell_fill_custom_enabled = NULL,
cell_fill_custom_categorical = NULL,
cell_fill_custom_numeric = NULL,
cell_fill_margin_vertical = NULL,
cell_fill_margin_horizontal = NULL,
cell_border_mode = NULL,
cell_border_color = NULL,
cell_border_width = NULL,
cell_border_style = NULL,
cell_font_color = NULL,
cell_link_color = NULL,
cell_font_size = NULL,
cell_font_size_custom = NULL,
column_width_mode = NULL,
column_widths = NULL,
header_font_weight = NULL,
header_fill = NULL,
header_font_color = NULL,
header_underline_sorting = NULL,
header_style_default = NULL,
header_height = NULL,
header_padding = NULL,
header_horizontal_alignment = NULL,
header_font_default = NULL,
header_font_size = NULL,
header_border_default = NULL,
header_border_color = NULL,
header_border_width = NULL,
header_border_style = NULL,
cell_image_height = NULL,
cell_image_radius = NULL,
bar_columns_enabled = NULL,
bar_columns_bar_1_columns = NULL,
bar_columns_bar_1_column_name = NULL,
bar_columns_type = NULL,
bar_columns_bar_1_height = NULL,
bar_columns_bar_1_width = NULL,
bar_columns_bar_1_column_padding = NULL,
bar_columns_bar_1_proportional = NULL,
bar_columns_bar_1_same_scale = NULL,
bar_columns_bar_1_zero_line = NULL,
bar_columns_bar_1_zero_line_color = NULL,
chart_color_scale_categorical_palette = NULL,
chart_color_scale_categorical_extend = NULL,
chart_color_scale_categorical_custom_palette = NULL,
chart_color_scale_numeric_type = NULL,
chart_color_scale_binning = NULL,
chart_color_scale_bin_mode = NULL,
chart_color_scale_bin_count = NULL,
chart_color_scale_bin_thresholds = NULL,
chart_color_scale_sequential_palette = NULL,
chart_color_scale_sequential_reverse = NULL,
chart_color_scale_sequential_custom_min = NULL,
chart_color_scale_sequential_custom_max = NULL,
chart_color_scale_sequential_color_space = NULL,
chart_color_scale_sequential_custom_domain = NULL,
chart_color_scale_sequential_domain_min = NULL,
chart_color_scale_sequential_domain_max = NULL,
chart_color_scale_diverging_palette = NULL,
chart_color_scale_diverging_reverse = NULL,
chart_color_scale_diverging_custom_min = NULL,
chart_color_scale_diverging_custom_mid = NULL,
chart_color_scale_diverging_custom_max = NULL,
chart_color_scale_diverging_color_space = NULL,
chart_color_scale_diverging_custom_domain = NULL,
chart_color_scale_diverging_domain_min = NULL,
chart_color_scale_diverging_domain_mid = NULL,
chart_color_scale_diverging_domain_max = NULL,
bar_columns_bar_1_labels = NULL,
bar_columns_bar_1_label_size = NULL,
chart_legend_show_legend = NULL,
chart_legend_title_mode = NULL,
chart_legend_title = NULL,
chart_legend_swatch_width = NULL,
chart_legend_swatch_height = NULL,
chart_legend_swatch_radius = NULL,
chart_legend_legend_items_padding = NULL,
chart_legend_swatch_outline = NULL,
chart_legend_swatch_outline_color = NULL,
chart_legend_order_override = NULL,
chart_legend_icon_height = NULL,
chart_legend_icon_color = NULL,
chart_legend_max_width = NULL,
chart_legend_orientation = NULL,
legend_position = NULL,
chart_legend_container_alignment = NULL,
chart_legend_container_orientation = NULL,
chart_legend_container_title_weight = NULL,
chart_legend_container_text_weight = NULL,
chart_legend_container_text_color = NULL,
chart_legend_container_text_size = NULL,
line_columns_enabled = NULL,
line_columns_line_1_columns = NULL,
line_columns_line_1_column_name = NULL,
line_columns_line_1_width = NULL,
line_columns_line_1_height = NULL,
line_columns_line_1_color = NULL,
line_columns_line_1_area = NULL,
line_columns_line_1_min_enabled = NULL,
line_columns_line_1_min = NULL,
line_columns_line_1_max_enabled = NULL,
line_columns_line_1_max = NULL,
mobile_view = NULL,
mobile_breakpoint = NULL,
mobile_cell_font_size = NULL,
mobile_cell_font_size_custom = NULL,
mobile_pagination_amount = NULL,
search_enabled = NULL,
search_mode = NULL,
search_width = NULL,
search_background_color = NULL,
search_text_color = NULL,
search_placeholder = NULL,
no_results_text = NULL,
search_hide_table = NULL,
search_hide_published = NULL,
search_columns = NULL,
search_columns_custom = NULL,
search_resize = NULL,
search_dropdown = NULL,
search_dropdown_persistent = NULL,
search_val = NULL,
chart_popup_show_popups = NULL,
chart_popup_is_custom = NULL,
chart_popup_custom_template = NULL,
chart_popup_show_pointer = NULL,
chart_popup_show_shadow = NULL,
chart_popup_style_popups = NULL,
chart_popup_text_color = NULL,
chart_popup_align = NULL,
chart_popup_text_size = NULL,
chart_popup_fill_color = NULL,
chart_popup_opacity = NULL,
chart_popup_padding = NULL,
chart_popup_border_radius = NULL,
chart_popup_max_width = NULL,
formatted_columns = NULL,
chart_number_date_format_prefix = NULL,
chart_number_date_format_suffix = NULL,
chart_number_date_format_n_dec = NULL,
chart_number_date_format_advanced = NULL,
chart_number_date_format_negative_sign = NULL,
chart_number_date_format_strip_zeros = NULL,
chart_number_date_format_strip_separator = NULL,
chart_number_date_format_transform_labels = NULL,
chart_number_date_format_transform = NULL,
chart_number_date_format_multiply_divide_constant = NULL,
chart_number_date_format_exponentiate_constant = NULL,
chart_layout_body_font = NULL,
chart_layout_font_color = NULL,
chart_layout_background_color_enabled = NULL,
chart_layout_background_image_enabled = NULL,
chart_layout_background_color = NULL,
chart_layout_background_image_src = NULL,
chart_layout_background_image_size = NULL,
chart_layout_background_image_position = NULL,
chart_layout_max_width_target = NULL,
chart_layout_max_width = NULL,
chart_layout_max_width_align = NULL,
chart_layout_layout_order = NULL,
chart_layout_space_between_sections = NULL,
chart_layout_space_between_sections_custom = NULL,
chart_layout_margin_top = NULL,
chart_layout_margin_right = NULL,
chart_layout_margin_bottom = NULL,
chart_layout_margin_left = NULL,
chart_layout_border_enabled = NULL,
chart_layout_border_top_width = NULL,
chart_layout_border_top_style = NULL,
chart_layout_border_top_color = NULL,
chart_layout_border_right_width = NULL,
chart_layout_border_right_style = NULL,
chart_layout_border_right_color = NULL,
chart_layout_border_bottom_width = NULL,
chart_layout_border_bottom_style = NULL,
chart_layout_border_bottom_color = NULL,
chart_layout_border_left_width = NULL,
chart_layout_border_left_style = NULL,
chart_layout_border_left_color = NULL,
chart_layout_read_direction = NULL,
chart_layout_font_size_mobile_small = NULL,
chart_layout_font_size_mobile_big = NULL,
chart_layout_font_size_tablet = NULL,
chart_layout_font_size_desktop = NULL,
chart_layout_font_size_big_screen = NULL,
chart_layout_breakpoint_mobile_small = NULL,
chart_layout_breakpoint_mobile_big = NULL,
chart_layout_breakpoint_tablet = NULL,
chart_layout_breakpoint_desktop = NULL,
chart_layout_breakpoint_big_screen = NULL,
chart_layout_header_align = NULL,
chart_layout_title = NULL,
chart_layout_title_styling = NULL,
chart_layout_title_font = NULL,
chart_layout_title_size = NULL,
chart_layout_title_size_custom = NULL,
chart_layout_title_weight = NULL,
chart_layout_title_color = NULL,
chart_layout_title_line_height = NULL,
chart_layout_title_space_above = NULL,
chart_layout_title_space_above_custom = NULL,
chart_layout_subtitle = NULL,
chart_layout_subtitle_styling = NULL,
chart_layout_subtitle_font = NULL,
chart_layout_subtitle_size = NULL,
chart_layout_subtitle_size_custom = NULL,
chart_layout_subtitle_weight = NULL,
chart_layout_subtitle_color = NULL,
chart_layout_subtitle_line_height = NULL,
chart_layout_subtitle_space_above = NULL,
chart_layout_subtitle_space_above_custom = NULL,
chart_layout_header_text = NULL,
chart_layout_header_text_styling = NULL,
chart_layout_header_text_size = NULL,
chart_layout_header_text_size_custom = NULL,
chart_layout_header_text_weight = NULL,
chart_layout_header_text_color = NULL,
chart_layout_header_text_line_height = NULL,
chart_layout_header_text_space_above = NULL,
chart_layout_header_text_space_above_custom = NULL,
chart_layout_header_border = NULL,
chart_layout_header_border_width = NULL,
chart_layout_header_border_color = NULL,
chart_layout_header_border_style = NULL,
chart_layout_header_border_space = NULL,
chart_layout_header_logo_enabled = NULL,
chart_layout_header_logo_src = NULL,
chart_layout_header_logo_alt = NULL,
chart_layout_header_logo_link_url = NULL,
chart_layout_header_logo_height = NULL,
chart_layout_header_logo_align = NULL,
chart_layout_header_logo_position_inside = NULL,
chart_layout_header_logo_position_outside = NULL,
chart_layout_header_logo_margin_top = NULL,
chart_layout_header_logo_margin_right = NULL,
chart_layout_header_logo_margin_bottom = NULL,
chart_layout_header_logo_margin_left = NULL,
chart_layout_footer_align = NULL,
chart_layout_footer_text_size = NULL,
chart_layout_footer_text_color = NULL,
chart_layout_footer_styling = NULL,
chart_layout_footer_font = NULL,
chart_layout_footer_text_weight = NULL,
chart_layout_source_name = NULL,
chart_layout_source_url = NULL,
chart_layout_multiple_sources = NULL,
chart_layout_source_name_2 = NULL,
chart_layout_source_url_2 = NULL,
chart_layout_source_name_3 = NULL,
chart_layout_source_url_3 = NULL,
chart_layout_source_label = NULL,
chart_layout_footer_note = NULL,
chart_layout_footer_note_secondary = NULL,
chart_layout_advanced_note_styling = NULL,
chart_layout_footer_timestamp_format = NULL,
chart_layout_footer_logo_enabled = NULL,
chart_layout_footer_logo_src = NULL,
chart_layout_footer_logo_src_light = NULL,
chart_layout_footer_logo_alt = NULL,
chart_layout_footer_logo_link_url = NULL,
chart_layout_footer_logo_height = NULL,
chart_layout_footer_logo_margin = NULL,
chart_layout_footer_logo_order = NULL,
chart_layout_footer_align_vertical = NULL,
chart_layout_footer_border = NULL,
chart_layout_footer_border_width = NULL,
chart_layout_footer_border_color = NULL,
chart_layout_footer_border_style = NULL,
chart_layout_footer_border_space = NULL,
chart_layout_screenreader_text_primary = NULL,
chart_layout_screenreader_label = NULL,
chart_layout_screenreader_hide_primary = NULL,
chart_url_settings_enabled = NULL,
chart_url_settings_whitelist = NULL) {
details_error(., "table")
old_list <- .
new_list <- list()
if (isTRUE(old_list$x$template != "@flourish/table")) {
stop("`set_table_details()` is not supported for this chart type.")
}
new_list$x$state$table_min_width <- table_min_width
new_list$x$state$table_border_width <- table_border_width
new_list$x$state$table_border_color <- table_border_color
list_sorting_enabled <- c("all", "none", "custom", NULL)
if (!is.null(sorting_enabled)) {
if (!sorting_enabled %in% list_sorting_enabled) {
stop("`sorting_enabled` must be one of: c('all', 'none', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"all": "all", "none": "none", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"all": "all", "none": "none", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && sorting_enabled %in% names(named_list)) {
if (is.logical(sorting_enabled)) {
sorting_enabled <- as.character(sorting_enabled)
}
named_list_value <- unname(named_list[sorting_enabled])[[1]]
new_list$x$state$sorting$enabled <- named_list_value
}
}
}
}
if (length(sorting_custom_columns) > 1) {
new_list$x$state$sorting$custom_columns <- paste(sorting_custom_columns, collapse = "\n")
} else {
new_list$x$state$sorting$custom_columns <- sorting_custom_columns
}
new_list$x$state$pagination_amount <- pagination_amount
list_markdown_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(markdown_enabled)) {
if (!markdown_enabled %in% list_markdown_enabled) {
stop("`markdown_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && markdown_enabled %in% names(named_list)) {
if (is.logical(markdown_enabled)) {
markdown_enabled <- as.character(markdown_enabled)
}
named_list_value <- unname(named_list[markdown_enabled])[[1]]
new_list$x$state$markdown_enabled <- named_list_value
}
}
}
}
new_list$x$state$cell_height <- cell_height
new_list$x$state$cell_padding_vertical <- cell_padding_vertical
new_list$x$state$cell_padding_horizontal <- cell_padding_horizontal
new_list$x$state$cell_wrap <- cell_wrap
list_cell_horizontal_alignment <- c("start", "center", "end", NULL)
if (!is.null(cell_horizontal_alignment)) {
if (!cell_horizontal_alignment %in% list_cell_horizontal_alignment) {
stop("`cell_horizontal_alignment` must be one of: c('start', 'center', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_horizontal_alignment %in% names(named_list)) {
if (is.logical(cell_horizontal_alignment)) {
cell_horizontal_alignment <- as.character(cell_horizontal_alignment)
}
named_list_value <- unname(named_list[cell_horizontal_alignment])[[1]]
new_list$x$state$cell_horizontal_alignment <- named_list_value
}
}
}
}
list_cell_numeric_horizontal_alignment <- c("start", "center", "end", NULL)
if (!is.null(cell_numeric_horizontal_alignment)) {
if (!cell_numeric_horizontal_alignment %in% list_cell_numeric_horizontal_alignment) {
stop("`cell_numeric_horizontal_alignment` must be one of: c('start', 'center', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_numeric_horizontal_alignment %in% names(named_list)) {
if (is.logical(cell_numeric_horizontal_alignment)) {
cell_numeric_horizontal_alignment <- as.character(cell_numeric_horizontal_alignment)
}
named_list_value <- unname(named_list[cell_numeric_horizontal_alignment])[[1]]
new_list$x$state$cell_numeric_horizontal_alignment <- named_list_value
}
}
}
}
list_cell_vertical_alignment <- c("top", "center", "bottom", NULL)
if (!is.null(cell_vertical_alignment)) {
if (!cell_vertical_alignment %in% list_cell_vertical_alignment) {
stop("`cell_vertical_alignment` must be one of: c('top', 'center', 'bottom')")
} else {
if (length(jsonlite::fromJSON('{"top": "top", "center": "center", "bottom": "bottom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top": "top", "center": "center", "bottom": "bottom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_vertical_alignment %in% names(named_list)) {
if (is.logical(cell_vertical_alignment)) {
cell_vertical_alignment <- as.character(cell_vertical_alignment)
}
named_list_value <- unname(named_list[cell_vertical_alignment])[[1]]
new_list$x$state$cell_vertical_alignment <- named_list_value
}
}
}
}
new_list$x$state$cell_fill_1 <- cell_fill_1
new_list$x$state$cell_fill_2 <- cell_fill_2
list_cell_fill_direction <- c("horizontal", "vertical", NULL)
if (!is.null(cell_fill_direction)) {
if (!cell_fill_direction %in% list_cell_fill_direction) {
stop("`cell_fill_direction` must be one of: c('horizontal', 'vertical')")
} else {
if (length(jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')) > 1) {
named_list <- jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_fill_direction %in% names(named_list)) {
if (is.logical(cell_fill_direction)) {
cell_fill_direction <- as.character(cell_fill_direction)
}
named_list_value <- unname(named_list[cell_fill_direction])[[1]]
new_list$x$state$cell_fill_direction <- named_list_value
}
}
}
}
new_list$x$state$cell_fill_custom_enabled <- cell_fill_custom_enabled
if (length(cell_fill_custom_categorical) > 1) {
new_list$x$state$cell_fill_custom_categorical <- paste(cell_fill_custom_categorical, collapse = "\n")
} else {
new_list$x$state$cell_fill_custom_categorical <- cell_fill_custom_categorical
}
if (length(cell_fill_custom_numeric) > 1) {
new_list$x$state$cell_fill_custom_numeric <- paste(cell_fill_custom_numeric, collapse = "\n")
} else {
new_list$x$state$cell_fill_custom_numeric <- cell_fill_custom_numeric
}
new_list$x$state$cell_fill_margin_vertical <- cell_fill_margin_vertical
new_list$x$state$cell_fill_margin_horizontal <- cell_fill_margin_horizontal
list_cell_border_mode <- c("none", "horizontal", "vertical", "both", NULL)
if (!is.null(cell_border_mode)) {
if (!cell_border_mode %in% list_cell_border_mode) {
stop("`cell_border_mode` must be one of: c('none', 'horizontal', 'vertical', 'both')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "horizontal": "horizontal", "vertical": "vertical", "both": "both"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "horizontal": "horizontal", "vertical": "vertical", "both": "both"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_border_mode %in% names(named_list)) {
if (is.logical(cell_border_mode)) {
cell_border_mode <- as.character(cell_border_mode)
}
named_list_value <- unname(named_list[cell_border_mode])[[1]]
new_list$x$state$cell_border_mode <- named_list_value
}
}
}
}
new_list$x$state$cell_border_color <- cell_border_color
new_list$x$state$cell_border_width <- cell_border_width
list_cell_border_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(cell_border_style)) {
if (!cell_border_style %in% list_cell_border_style) {
stop("`cell_border_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_border_style %in% names(named_list)) {
if (is.logical(cell_border_style)) {
cell_border_style <- as.character(cell_border_style)
}
named_list_value <- unname(named_list[cell_border_style])[[1]]
new_list$x$state$cell_border_style <- named_list_value
}
}
}
}
new_list$x$state$cell_font_color <- cell_font_color
new_list$x$state$cell_link_color <- cell_link_color
list_cell_font_size <- c("1", "1.25", "1.5", "custom", NULL)
if (!is.null(cell_font_size)) {
if (!cell_font_size %in% list_cell_font_size) {
stop("`cell_font_size` must be one of: c('1', '1.25', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.25": "1.25", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.25": "1.25", "1.5": "1.5", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && cell_font_size %in% names(named_list)) {
if (is.logical(cell_font_size)) {
cell_font_size <- as.character(cell_font_size)
}
named_list_value <- unname(named_list[cell_font_size])[[1]]
new_list$x$state$cell_font_size <- named_list_value
}
}
}
}
new_list$x$state$cell_font_size_custom <- cell_font_size_custom
list_column_width_mode <- c("auto", "equal", "fixed", NULL)
if (!is.null(column_width_mode)) {
if (!column_width_mode %in% list_column_width_mode) {
stop("`column_width_mode` must be one of: c('auto', 'equal', 'fixed')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "equal": "equal", "fixed": "fixed"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "equal": "equal", "fixed": "fixed"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && column_width_mode %in% names(named_list)) {
if (is.logical(column_width_mode)) {
column_width_mode <- as.character(column_width_mode)
}
named_list_value <- unname(named_list[column_width_mode])[[1]]
new_list$x$state$column_width_mode <- named_list_value
}
}
}
}
new_list$x$state$column_widths <- column_widths
list_header_font_weight <- c("bold", "normal", NULL)
if (!is.null(header_font_weight)) {
if (!header_font_weight %in% list_header_font_weight) {
stop("`header_font_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_font_weight %in% names(named_list)) {
if (is.logical(header_font_weight)) {
header_font_weight <- as.character(header_font_weight)
}
named_list_value <- unname(named_list[header_font_weight])[[1]]
new_list$x$state$header_font_weight <- named_list_value
}
}
}
}
new_list$x$state$header_fill <- header_fill
new_list$x$state$header_font_color <- header_font_color
new_list$x$state$header_underline_sorting <- header_underline_sorting
list_header_style_default <- c(TRUE, FALSE, NULL)
if (!is.null(header_style_default)) {
if (!header_style_default %in% list_header_style_default) {
stop("`header_style_default` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_style_default %in% names(named_list)) {
if (is.logical(header_style_default)) {
header_style_default <- as.character(header_style_default)
}
named_list_value <- unname(named_list[header_style_default])[[1]]
new_list$x$state$header_style_default <- named_list_value
}
}
}
}
new_list$x$state$header_height <- header_height
new_list$x$state$header_padding <- header_padding
list_header_horizontal_alignment <- c("start", "center", "end", NULL)
if (!is.null(header_horizontal_alignment)) {
if (!header_horizontal_alignment %in% list_header_horizontal_alignment) {
stop("`header_horizontal_alignment` must be one of: c('start', 'center', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_horizontal_alignment %in% names(named_list)) {
if (is.logical(header_horizontal_alignment)) {
header_horizontal_alignment <- as.character(header_horizontal_alignment)
}
named_list_value <- unname(named_list[header_horizontal_alignment])[[1]]
new_list$x$state$header_horizontal_alignment <- named_list_value
}
}
}
}
list_header_font_default <- c(TRUE, FALSE, NULL)
if (!is.null(header_font_default)) {
if (!header_font_default %in% list_header_font_default) {
stop("`header_font_default` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_font_default %in% names(named_list)) {
if (is.logical(header_font_default)) {
header_font_default <- as.character(header_font_default)
}
named_list_value <- unname(named_list[header_font_default])[[1]]
new_list$x$state$header_font_default <- named_list_value
}
}
}
}
new_list$x$state$header_font_size <- header_font_size
list_header_border_default <- c(TRUE, FALSE, NULL)
if (!is.null(header_border_default)) {
if (!header_border_default %in% list_header_border_default) {
stop("`header_border_default` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_border_default %in% names(named_list)) {
if (is.logical(header_border_default)) {
header_border_default <- as.character(header_border_default)
}
named_list_value <- unname(named_list[header_border_default])[[1]]
new_list$x$state$header_border_default <- named_list_value
}
}
}
}
new_list$x$state$header_border_color <- header_border_color
new_list$x$state$header_border_width <- header_border_width
list_header_border_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(header_border_style)) {
if (!header_border_style %in% list_header_border_style) {
stop("`header_border_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && header_border_style %in% names(named_list)) {
if (is.logical(header_border_style)) {
header_border_style <- as.character(header_border_style)
}
named_list_value <- unname(named_list[header_border_style])[[1]]
new_list$x$state$header_border_style <- named_list_value
}
}
}
}
new_list$x$state$cell_image_height <- cell_image_height
new_list$x$state$cell_image_radius <- cell_image_radius
list_bar_columns_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(bar_columns_enabled)) {
if (!bar_columns_enabled %in% list_bar_columns_enabled) {
stop("`bar_columns_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && bar_columns_enabled %in% names(named_list)) {
if (is.logical(bar_columns_enabled)) {
bar_columns_enabled <- as.character(bar_columns_enabled)
}
named_list_value <- unname(named_list[bar_columns_enabled])[[1]]
new_list$x$state$bar_columns$enabled <- named_list_value
}
}
}
}
if (length(bar_columns_bar_1_columns) > 1) {
new_list$x$state$bar_columns$bar_1_columns <- paste(bar_columns_bar_1_columns, collapse = "\n")
} else {
new_list$x$state$bar_columns$bar_1_columns <- bar_columns_bar_1_columns
}
new_list$x$state$bar_columns$bar_1_column_name <- bar_columns_bar_1_column_name
list_bar_columns_type <- c("bars", "columns", NULL)
if (!is.null(bar_columns_type)) {
if (!bar_columns_type %in% list_bar_columns_type) {
stop("`bar_columns_type` must be one of: c('bars', 'columns')")
} else {
if (length(jsonlite::fromJSON('{"bars": "bars", "columns": "columns"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bars": "bars", "columns": "columns"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && bar_columns_type %in% names(named_list)) {
if (is.logical(bar_columns_type)) {
bar_columns_type <- as.character(bar_columns_type)
}
named_list_value <- unname(named_list[bar_columns_type])[[1]]
new_list$x$state$bar_columns$type <- named_list_value
}
}
}
}
new_list$x$state$bar_columns$bar_1_height <- bar_columns_bar_1_height
new_list$x$state$bar_columns$bar_1_width <- bar_columns_bar_1_width
new_list$x$state$bar_columns$bar_1_column_padding <- bar_columns_bar_1_column_padding
list_bar_columns_bar_1_proportional <- c(FALSE, TRUE, NULL)
if (!is.null(bar_columns_bar_1_proportional)) {
if (!bar_columns_bar_1_proportional %in% list_bar_columns_bar_1_proportional) {
stop("`bar_columns_bar_1_proportional` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && bar_columns_bar_1_proportional %in% names(named_list)) {
if (is.logical(bar_columns_bar_1_proportional)) {
bar_columns_bar_1_proportional <- as.character(bar_columns_bar_1_proportional)
}
named_list_value <- unname(named_list[bar_columns_bar_1_proportional])[[1]]
new_list$x$state$bar_columns$bar_1_proportional <- named_list_value
}
}
}
}
new_list$x$state$bar_columns$bar_1_same_scale <- bar_columns_bar_1_same_scale
new_list$x$state$bar_columns$bar_1_zero_line <- bar_columns_bar_1_zero_line
new_list$x$state$bar_columns$bar_1_zero_line_color <- bar_columns_bar_1_zero_line_color
if (length(chart_color_scale_categorical_palette) > 1) {
new_list$x$state$color$categorical_palette <- paste(chart_color_scale_categorical_palette, collapse = "\n")
} else {
new_list$x$state$color$categorical_palette <- chart_color_scale_categorical_palette
}
new_list$x$state$color$categorical_extend <- chart_color_scale_categorical_extend
if (length(chart_color_scale_categorical_custom_palette) > 1) {
new_list$x$state$color$categorical_custom_palette <- paste(chart_color_scale_categorical_custom_palette, collapse = "\n")
} else {
new_list$x$state$color$categorical_custom_palette <- chart_color_scale_categorical_custom_palette
}
list_chart_color_scale_numeric_type <- c("sequential", "diverging", NULL)
if (!is.null(chart_color_scale_numeric_type)) {
if (!chart_color_scale_numeric_type %in% list_chart_color_scale_numeric_type) {
stop("`chart_color_scale_numeric_type` must be one of: c('sequential', 'diverging')")
} else {
if (length(jsonlite::fromJSON('{"sequential": "sequential", "diverging": "diverging"}')) > 1) {
named_list <- jsonlite::fromJSON('{"sequential": "sequential", "diverging": "diverging"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_numeric_type %in% names(named_list)) {
if (is.logical(chart_color_scale_numeric_type)) {
chart_color_scale_numeric_type <- as.character(chart_color_scale_numeric_type)
}
named_list_value <- unname(named_list[chart_color_scale_numeric_type])[[1]]
new_list$x$state$color$numeric_type <- named_list_value
}
}
}
}
list_chart_color_scale_binning <- c(FALSE, TRUE, NULL)
if (!is.null(chart_color_scale_binning)) {
if (!chart_color_scale_binning %in% list_chart_color_scale_binning) {
stop("`chart_color_scale_binning` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_binning %in% names(named_list)) {
if (is.logical(chart_color_scale_binning)) {
chart_color_scale_binning <- as.character(chart_color_scale_binning)
}
named_list_value <- unname(named_list[chart_color_scale_binning])[[1]]
new_list$x$state$color$binning <- named_list_value
}
}
}
}
list_chart_color_scale_bin_mode <- c("fixed", "quantile", "custom", NULL)
if (!is.null(chart_color_scale_bin_mode)) {
if (!chart_color_scale_bin_mode %in% list_chart_color_scale_bin_mode) {
stop("`chart_color_scale_bin_mode` must be one of: c('fixed', 'quantile', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"fixed": "fixed", "quantile": "quantile", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"fixed": "fixed", "quantile": "quantile", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_bin_mode %in% names(named_list)) {
if (is.logical(chart_color_scale_bin_mode)) {
chart_color_scale_bin_mode <- as.character(chart_color_scale_bin_mode)
}
named_list_value <- unname(named_list[chart_color_scale_bin_mode])[[1]]
new_list$x$state$color$bin_mode <- named_list_value
}
}
}
}
new_list$x$state$color$bin_count <- chart_color_scale_bin_count
new_list$x$state$color$bin_thresholds <- chart_color_scale_bin_thresholds
new_list$x$state$color$sequential_palette <- chart_color_scale_sequential_palette
new_list$x$state$color$sequential_reverse <- chart_color_scale_sequential_reverse
new_list$x$state$color$sequential_custom_min <- chart_color_scale_sequential_custom_min
new_list$x$state$color$sequential_custom_max <- chart_color_scale_sequential_custom_max
list_chart_color_scale_sequential_color_space <- c("rgb", "lab", "hcl", "hsl", NULL)
if (!is.null(chart_color_scale_sequential_color_space)) {
if (!chart_color_scale_sequential_color_space %in% list_chart_color_scale_sequential_color_space) {
stop("`chart_color_scale_sequential_color_space` must be one of: c('rgb', 'lab', 'hcl', 'hsl')")
} else {
if (length(jsonlite::fromJSON('{"rgb": "rgb", "lab": "lab", "hcl": "hcl", "hsl": "hsl"}')) > 1) {
named_list <- jsonlite::fromJSON('{"rgb": "rgb", "lab": "lab", "hcl": "hcl", "hsl": "hsl"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_sequential_color_space %in% names(named_list)) {
if (is.logical(chart_color_scale_sequential_color_space)) {
chart_color_scale_sequential_color_space <- as.character(chart_color_scale_sequential_color_space)
}
named_list_value <- unname(named_list[chart_color_scale_sequential_color_space])[[1]]
new_list$x$state$color$sequential_color_space <- named_list_value
}
}
}
}
list_chart_color_scale_sequential_custom_domain <- c(FALSE, TRUE, NULL)
if (!is.null(chart_color_scale_sequential_custom_domain)) {
if (!chart_color_scale_sequential_custom_domain %in% list_chart_color_scale_sequential_custom_domain) {
stop("`chart_color_scale_sequential_custom_domain` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_sequential_custom_domain %in% names(named_list)) {
if (is.logical(chart_color_scale_sequential_custom_domain)) {
chart_color_scale_sequential_custom_domain <- as.character(chart_color_scale_sequential_custom_domain)
}
named_list_value <- unname(named_list[chart_color_scale_sequential_custom_domain])[[1]]
new_list$x$state$color$sequential_custom_domain <- named_list_value
}
}
}
}
new_list$x$state$color$sequential_domain_min <- chart_color_scale_sequential_domain_min
new_list$x$state$color$sequential_domain_max <- chart_color_scale_sequential_domain_max
new_list$x$state$color$diverging_palette <- chart_color_scale_diverging_palette
new_list$x$state$color$diverging_reverse <- chart_color_scale_diverging_reverse
new_list$x$state$color$diverging_custom_min <- chart_color_scale_diverging_custom_min
new_list$x$state$color$diverging_custom_mid <- chart_color_scale_diverging_custom_mid
new_list$x$state$color$diverging_custom_max <- chart_color_scale_diverging_custom_max
list_chart_color_scale_diverging_color_space <- c("rgb", "lab", "hcl", "hsl", NULL)
if (!is.null(chart_color_scale_diverging_color_space)) {
if (!chart_color_scale_diverging_color_space %in% list_chart_color_scale_diverging_color_space) {
stop("`chart_color_scale_diverging_color_space` must be one of: c('rgb', 'lab', 'hcl', 'hsl')")
} else {
if (length(jsonlite::fromJSON('{"rgb": "rgb", "lab": "lab", "hcl": "hcl", "hsl": "hsl"}')) > 1) {
named_list <- jsonlite::fromJSON('{"rgb": "rgb", "lab": "lab", "hcl": "hcl", "hsl": "hsl"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_diverging_color_space %in% names(named_list)) {
if (is.logical(chart_color_scale_diverging_color_space)) {
chart_color_scale_diverging_color_space <- as.character(chart_color_scale_diverging_color_space)
}
named_list_value <- unname(named_list[chart_color_scale_diverging_color_space])[[1]]
new_list$x$state$color$diverging_color_space <- named_list_value
}
}
}
}
list_chart_color_scale_diverging_custom_domain <- c(FALSE, TRUE, NULL)
if (!is.null(chart_color_scale_diverging_custom_domain)) {
if (!chart_color_scale_diverging_custom_domain %in% list_chart_color_scale_diverging_custom_domain) {
stop("`chart_color_scale_diverging_custom_domain` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_color_scale_diverging_custom_domain %in% names(named_list)) {
if (is.logical(chart_color_scale_diverging_custom_domain)) {
chart_color_scale_diverging_custom_domain <- as.character(chart_color_scale_diverging_custom_domain)
}
named_list_value <- unname(named_list[chart_color_scale_diverging_custom_domain])[[1]]
new_list$x$state$color$diverging_custom_domain <- named_list_value
}
}
}
}
new_list$x$state$color$diverging_domain_min <- chart_color_scale_diverging_domain_min
new_list$x$state$color$diverging_domain_mid <- chart_color_scale_diverging_domain_mid
new_list$x$state$color$diverging_domain_max <- chart_color_scale_diverging_domain_max
list_bar_columns_bar_1_labels <- c("none", "popup", "inline", NULL)
if (!is.null(bar_columns_bar_1_labels)) {
if (!bar_columns_bar_1_labels %in% list_bar_columns_bar_1_labels) {
stop("`bar_columns_bar_1_labels` must be one of: c('none', 'popup', 'inline')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "popup": "popup", "inline": "inline"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "popup": "popup", "inline": "inline"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && bar_columns_bar_1_labels %in% names(named_list)) {
if (is.logical(bar_columns_bar_1_labels)) {
bar_columns_bar_1_labels <- as.character(bar_columns_bar_1_labels)
}
named_list_value <- unname(named_list[bar_columns_bar_1_labels])[[1]]
new_list$x$state$bar_columns$bar_1_labels <- named_list_value
}
}
}
}
new_list$x$state$bar_columns$bar_1_label_size <- bar_columns_bar_1_label_size
list_chart_legend_show_legend <- c(TRUE, FALSE, NULL)
if (!is.null(chart_legend_show_legend)) {
if (!chart_legend_show_legend %in% list_chart_legend_show_legend) {
stop("`chart_legend_show_legend` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_show_legend %in% names(named_list)) {
if (is.logical(chart_legend_show_legend)) {
chart_legend_show_legend <- as.character(chart_legend_show_legend)
}
named_list_value <- unname(named_list[chart_legend_show_legend])[[1]]
new_list$x$state$legend$show_legend <- named_list_value
}
}
}
}
list_chart_legend_title_mode <- c("auto", "custom", NULL)
if (!is.null(chart_legend_title_mode)) {
if (!chart_legend_title_mode %in% list_chart_legend_title_mode) {
stop("`chart_legend_title_mode` must be one of: c('auto', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_title_mode %in% names(named_list)) {
if (is.logical(chart_legend_title_mode)) {
chart_legend_title_mode <- as.character(chart_legend_title_mode)
}
named_list_value <- unname(named_list[chart_legend_title_mode])[[1]]
new_list$x$state$legend$title_mode <- named_list_value
}
}
}
}
new_list$x$state$legend$title <- chart_legend_title
new_list$x$state$legend$swatch_width <- chart_legend_swatch_width
new_list$x$state$legend$swatch_height <- chart_legend_swatch_height
new_list$x$state$legend$swatch_radius <- chart_legend_swatch_radius
new_list$x$state$legend$legend_items_padding <- chart_legend_legend_items_padding
new_list$x$state$legend$swatch_outline <- chart_legend_swatch_outline
new_list$x$state$legend$swatch_outline_color <- chart_legend_swatch_outline_color
if (length(chart_legend_order_override) > 1) {
new_list$x$state$legend$order_override <- paste(chart_legend_order_override, collapse = "\n")
} else {
new_list$x$state$legend$order_override <- chart_legend_order_override
}
new_list$x$state$legend$icon_height <- chart_legend_icon_height
new_list$x$state$legend$icon_color <- chart_legend_icon_color
new_list$x$state$legend$max_width <- chart_legend_max_width
list_chart_legend_orientation <- c("horizontal", "vertical", NULL)
if (!is.null(chart_legend_orientation)) {
if (!chart_legend_orientation %in% list_chart_legend_orientation) {
stop("`chart_legend_orientation` must be one of: c('horizontal', 'vertical')")
} else {
if (length(jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')) > 1) {
named_list <- jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_orientation %in% names(named_list)) {
if (is.logical(chart_legend_orientation)) {
chart_legend_orientation <- as.character(chart_legend_orientation)
}
named_list_value <- unname(named_list[chart_legend_orientation])[[1]]
new_list$x$state$legend$orientation <- named_list_value
}
}
}
}
list_legend_position <- c("above", "below", NULL)
if (!is.null(legend_position)) {
if (!legend_position %in% list_legend_position) {
stop("`legend_position` must be one of: c('above', 'below')")
} else {
if (length(jsonlite::fromJSON('{"above": "above", "below": "below"}')) > 1) {
named_list <- jsonlite::fromJSON('{"above": "above", "below": "below"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && legend_position %in% names(named_list)) {
if (is.logical(legend_position)) {
legend_position <- as.character(legend_position)
}
named_list_value <- unname(named_list[legend_position])[[1]]
new_list$x$state$legend_position <- named_list_value
}
}
}
}
list_chart_legend_container_alignment <- c("start", "center", "end", NULL)
if (!is.null(chart_legend_container_alignment)) {
if (!chart_legend_container_alignment %in% list_chart_legend_container_alignment) {
stop("`chart_legend_container_alignment` must be one of: c('start', 'center', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "center": "center", "end": "end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_container_alignment %in% names(named_list)) {
if (is.logical(chart_legend_container_alignment)) {
chart_legend_container_alignment <- as.character(chart_legend_container_alignment)
}
named_list_value <- unname(named_list[chart_legend_container_alignment])[[1]]
new_list$x$state$legend_container$alignment <- named_list_value
}
}
}
}
list_chart_legend_container_orientation <- c("horizontal", "vertical", NULL)
if (!is.null(chart_legend_container_orientation)) {
if (!chart_legend_container_orientation %in% list_chart_legend_container_orientation) {
stop("`chart_legend_container_orientation` must be one of: c('horizontal', 'vertical')")
} else {
if (length(jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')) > 1) {
named_list <- jsonlite::fromJSON('{"horizontal": "horizontal", "vertical": "vertical"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_container_orientation %in% names(named_list)) {
if (is.logical(chart_legend_container_orientation)) {
chart_legend_container_orientation <- as.character(chart_legend_container_orientation)
}
named_list_value <- unname(named_list[chart_legend_container_orientation])[[1]]
new_list$x$state$legend_container$orientation <- named_list_value
}
}
}
}
list_chart_legend_container_title_weight <- c("bold", "normal", NULL)
if (!is.null(chart_legend_container_title_weight)) {
if (!chart_legend_container_title_weight %in% list_chart_legend_container_title_weight) {
stop("`chart_legend_container_title_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_container_title_weight %in% names(named_list)) {
if (is.logical(chart_legend_container_title_weight)) {
chart_legend_container_title_weight <- as.character(chart_legend_container_title_weight)
}
named_list_value <- unname(named_list[chart_legend_container_title_weight])[[1]]
new_list$x$state$legend_container$title_weight <- named_list_value
}
}
}
}
list_chart_legend_container_text_weight <- c("bold", "normal", NULL)
if (!is.null(chart_legend_container_text_weight)) {
if (!chart_legend_container_text_weight %in% list_chart_legend_container_text_weight) {
stop("`chart_legend_container_text_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_legend_container_text_weight %in% names(named_list)) {
if (is.logical(chart_legend_container_text_weight)) {
chart_legend_container_text_weight <- as.character(chart_legend_container_text_weight)
}
named_list_value <- unname(named_list[chart_legend_container_text_weight])[[1]]
new_list$x$state$legend_container$text_weight <- named_list_value
}
}
}
}
new_list$x$state$legend_container$text_color <- chart_legend_container_text_color
new_list$x$state$legend_container$text_size <- chart_legend_container_text_size
list_line_columns_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(line_columns_enabled)) {
if (!line_columns_enabled %in% list_line_columns_enabled) {
stop("`line_columns_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && line_columns_enabled %in% names(named_list)) {
if (is.logical(line_columns_enabled)) {
line_columns_enabled <- as.character(line_columns_enabled)
}
named_list_value <- unname(named_list[line_columns_enabled])[[1]]
new_list$x$state$line_columns$enabled <- named_list_value
}
}
}
}
if (length(line_columns_line_1_columns) > 1) {
new_list$x$state$line_columns$line_1_columns <- paste(line_columns_line_1_columns, collapse = "\n")
} else {
new_list$x$state$line_columns$line_1_columns <- line_columns_line_1_columns
}
new_list$x$state$line_columns$line_1_column_name <- line_columns_line_1_column_name
new_list$x$state$line_columns$line_1_width <- line_columns_line_1_width
new_list$x$state$line_columns$line_1_height <- line_columns_line_1_height
new_list$x$state$line_columns$line_1_color <- line_columns_line_1_color
list_line_columns_line_1_area <- c(TRUE, FALSE, NULL)
if (!is.null(line_columns_line_1_area)) {
if (!line_columns_line_1_area %in% list_line_columns_line_1_area) {
stop("`line_columns_line_1_area` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && line_columns_line_1_area %in% names(named_list)) {
if (is.logical(line_columns_line_1_area)) {
line_columns_line_1_area <- as.character(line_columns_line_1_area)
}
named_list_value <- unname(named_list[line_columns_line_1_area])[[1]]
new_list$x$state$line_columns$line_1_area <- named_list_value
}
}
}
}
list_line_columns_line_1_min_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(line_columns_line_1_min_enabled)) {
if (!line_columns_line_1_min_enabled %in% list_line_columns_line_1_min_enabled) {
stop("`line_columns_line_1_min_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && line_columns_line_1_min_enabled %in% names(named_list)) {
if (is.logical(line_columns_line_1_min_enabled)) {
line_columns_line_1_min_enabled <- as.character(line_columns_line_1_min_enabled)
}
named_list_value <- unname(named_list[line_columns_line_1_min_enabled])[[1]]
new_list$x$state$line_columns$line_1_min_enabled <- named_list_value
}
}
}
}
new_list$x$state$line_columns$line_1_min <- line_columns_line_1_min
list_line_columns_line_1_max_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(line_columns_line_1_max_enabled)) {
if (!line_columns_line_1_max_enabled %in% list_line_columns_line_1_max_enabled) {
stop("`line_columns_line_1_max_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && line_columns_line_1_max_enabled %in% names(named_list)) {
if (is.logical(line_columns_line_1_max_enabled)) {
line_columns_line_1_max_enabled <- as.character(line_columns_line_1_max_enabled)
}
named_list_value <- unname(named_list[line_columns_line_1_max_enabled])[[1]]
new_list$x$state$line_columns$line_1_max_enabled <- named_list_value
}
}
}
}
new_list$x$state$line_columns$line_1_max <- line_columns_line_1_max
list_mobile_view <- c(FALSE, TRUE, NULL)
if (!is.null(mobile_view)) {
if (!mobile_view %in% list_mobile_view) {
stop("`mobile_view` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && mobile_view %in% names(named_list)) {
if (is.logical(mobile_view)) {
mobile_view <- as.character(mobile_view)
}
named_list_value <- unname(named_list[mobile_view])[[1]]
new_list$x$state$mobile$view <- named_list_value
}
}
}
}
new_list$x$state$mobile$breakpoint <- mobile_breakpoint
list_mobile_cell_font_size <- c("1", "1.25", "1.5", "custom", NULL)
if (!is.null(mobile_cell_font_size)) {
if (!mobile_cell_font_size %in% list_mobile_cell_font_size) {
stop("`mobile_cell_font_size` must be one of: c('1', '1.25', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.25": "1.25", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.25": "1.25", "1.5": "1.5", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && mobile_cell_font_size %in% names(named_list)) {
if (is.logical(mobile_cell_font_size)) {
mobile_cell_font_size <- as.character(mobile_cell_font_size)
}
named_list_value <- unname(named_list[mobile_cell_font_size])[[1]]
new_list$x$state$mobile$cell_font_size <- named_list_value
}
}
}
}
new_list$x$state$mobile$cell_font_size_custom <- mobile_cell_font_size_custom
new_list$x$state$mobile$pagination_amount <- mobile_pagination_amount
list_search_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(search_enabled)) {
if (!search_enabled %in% list_search_enabled) {
stop("`search_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_enabled %in% names(named_list)) {
if (is.logical(search_enabled)) {
search_enabled <- as.character(search_enabled)
}
named_list_value <- unname(named_list[search_enabled])[[1]]
new_list$x$state$search_enabled <- named_list_value
}
}
}
}
list_search_mode <- c("anywhere", "start", "whole", NULL)
if (!is.null(search_mode)) {
if (!search_mode %in% list_search_mode) {
stop("`search_mode` must be one of: c('anywhere', 'start', 'whole')")
} else {
if (length(jsonlite::fromJSON('{"anywhere": "anywhere", "start": "start", "whole": "whole"}')) > 1) {
named_list <- jsonlite::fromJSON('{"anywhere": "anywhere", "start": "start", "whole": "whole"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_mode %in% names(named_list)) {
if (is.logical(search_mode)) {
search_mode <- as.character(search_mode)
}
named_list_value <- unname(named_list[search_mode])[[1]]
new_list$x$state$search_mode <- named_list_value
}
}
}
}
new_list$x$state$search_width <- search_width
new_list$x$state$search_background_color <- search_background_color
new_list$x$state$search_text_color <- search_text_color
new_list$x$state$search_placeholder <- search_placeholder
new_list$x$state$no_results_text <- no_results_text
new_list$x$state$search_hide_table <- search_hide_table
new_list$x$state$search_hide_published <- search_hide_published
list_search_columns <- c("all", "first", "custom", NULL)
if (!is.null(search_columns)) {
if (!search_columns %in% list_search_columns) {
stop("`search_columns` must be one of: c('all', 'first', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"all": "all", "first": "first", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"all": "all", "first": "first", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_columns %in% names(named_list)) {
if (is.logical(search_columns)) {
search_columns <- as.character(search_columns)
}
named_list_value <- unname(named_list[search_columns])[[1]]
new_list$x$state$search_columns <- named_list_value
}
}
}
}
if (length(search_columns_custom) > 1) {
new_list$x$state$search_columns_custom <- paste(search_columns_custom, collapse = "\n")
} else {
new_list$x$state$search_columns_custom <- search_columns_custom
}
list_search_resize <- c(TRUE, FALSE, NULL)
if (!is.null(search_resize)) {
if (!search_resize %in% list_search_resize) {
stop("`search_resize` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_resize %in% names(named_list)) {
if (is.logical(search_resize)) {
search_resize <- as.character(search_resize)
}
named_list_value <- unname(named_list[search_resize])[[1]]
new_list$x$state$search_resize <- named_list_value
}
}
}
}
list_search_dropdown <- c(TRUE, FALSE, NULL)
if (!is.null(search_dropdown)) {
if (!search_dropdown %in% list_search_dropdown) {
stop("`search_dropdown` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && search_dropdown %in% names(named_list)) {
if (is.logical(search_dropdown)) {
search_dropdown <- as.character(search_dropdown)
}
named_list_value <- unname(named_list[search_dropdown])[[1]]
new_list$x$state$search_dropdown <- named_list_value
}
}
}
}
new_list$x$state$search_dropdown_persistent <- search_dropdown_persistent
new_list$x$state$search_val <- search_val
list_chart_popup_show_popups <- c(TRUE, FALSE, NULL)
if (!is.null(chart_popup_show_popups)) {
if (!chart_popup_show_popups %in% list_chart_popup_show_popups) {
stop("`chart_popup_show_popups` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_popup_show_popups %in% names(named_list)) {
if (is.logical(chart_popup_show_popups)) {
chart_popup_show_popups <- as.character(chart_popup_show_popups)
}
named_list_value <- unname(named_list[chart_popup_show_popups])[[1]]
new_list$x$state$popup$show_popups <- named_list_value
}
}
}
}
list_chart_popup_is_custom <- c(FALSE, TRUE, NULL)
if (!is.null(chart_popup_is_custom)) {
if (!chart_popup_is_custom %in% list_chart_popup_is_custom) {
stop("`chart_popup_is_custom` must be one of: c(FALSE, TRUE)")
} else {
if (length(jsonlite::fromJSON('{"false": false, "true": true}')) > 1) {
named_list <- jsonlite::fromJSON('{"false": false, "true": true}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_popup_is_custom %in% names(named_list)) {
if (is.logical(chart_popup_is_custom)) {
chart_popup_is_custom <- as.character(chart_popup_is_custom)
}
named_list_value <- unname(named_list[chart_popup_is_custom])[[1]]
new_list$x$state$popup$is_custom <- named_list_value
}
}
}
}
if (length(chart_popup_custom_template) > 1) {
new_list$x$state$popup$custom_template <- paste(chart_popup_custom_template, collapse = "\n")
} else {
new_list$x$state$popup$custom_template <- chart_popup_custom_template
}
new_list$x$state$popup$show_pointer <- chart_popup_show_pointer
new_list$x$state$popup$show_shadow <- chart_popup_show_shadow
new_list$x$state$popup$style_popups <- chart_popup_style_popups
new_list$x$state$popup$text_color <- chart_popup_text_color
list_chart_popup_align <- c("left", "center", "right", NULL)
if (!is.null(chart_popup_align)) {
if (!chart_popup_align %in% list_chart_popup_align) {
stop("`chart_popup_align` must be one of: c('left', 'center', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_popup_align %in% names(named_list)) {
if (is.logical(chart_popup_align)) {
chart_popup_align <- as.character(chart_popup_align)
}
named_list_value <- unname(named_list[chart_popup_align])[[1]]
new_list$x$state$popup$align <- named_list_value
}
}
}
}
new_list$x$state$popup$text_size <- chart_popup_text_size
new_list$x$state$popup$fill_color <- chart_popup_fill_color
new_list$x$state$popup$opacity <- chart_popup_opacity
new_list$x$state$popup$padding <- chart_popup_padding
new_list$x$state$popup$border_radius <- chart_popup_border_radius
new_list$x$state$popup$max_width <- chart_popup_max_width
if (length(formatted_columns) > 1) {
new_list$x$state$formatted_columns <- paste(formatted_columns, collapse = "\n")
} else {
new_list$x$state$formatted_columns <- formatted_columns
}
new_list$x$state$number_format$prefix <- chart_number_date_format_prefix
new_list$x$state$number_format$suffix <- chart_number_date_format_suffix
new_list$x$state$number_format$n_dec <- chart_number_date_format_n_dec
new_list$x$state$number_format$advanced <- chart_number_date_format_advanced
list_chart_number_date_format_negative_sign <- c("-$nk", "$-nk", "($nk)", "$(n)k", "none", NULL)
if (!is.null(chart_number_date_format_negative_sign)) {
if (!chart_number_date_format_negative_sign %in% list_chart_number_date_format_negative_sign) {
stop("`chart_number_date_format_negative_sign` must be one of: c('-$nk', '$-nk', '($nk)', '$(n)k', 'none')")
} else {
if (length(jsonlite::fromJSON('{"-$nk": "-$nk", "$-nk": "$-nk", "($nk)": "($nk)", "$(n)k": "$(n)k", "none": "none"}')) > 1) {
named_list <- jsonlite::fromJSON('{"-$nk": "-$nk", "$-nk": "$-nk", "($nk)": "($nk)", "$(n)k": "$(n)k", "none": "none"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_number_date_format_negative_sign %in% names(named_list)) {
if (is.logical(chart_number_date_format_negative_sign)) {
chart_number_date_format_negative_sign <- as.character(chart_number_date_format_negative_sign)
}
named_list_value <- unname(named_list[chart_number_date_format_negative_sign])[[1]]
new_list$x$state$number_format$negative_sign <- named_list_value
}
}
}
}
new_list$x$state$number_format$strip_zeros <- chart_number_date_format_strip_zeros
new_list$x$state$number_format$strip_separator <- chart_number_date_format_strip_separator
new_list$x$state$number_format$transform_labels <- chart_number_date_format_transform_labels
list_chart_number_date_format_transform <- c("multiply", "divide", "exponentiate", NULL)
if (!is.null(chart_number_date_format_transform)) {
if (!chart_number_date_format_transform %in% list_chart_number_date_format_transform) {
stop("`chart_number_date_format_transform` must be one of: c('multiply', 'divide', 'exponentiate')")
} else {
if (length(jsonlite::fromJSON('{"multiply": "multiply", "divide": "divide", "exponentiate": "exponentiate"}')) > 1) {
named_list <- jsonlite::fromJSON('{"multiply": "multiply", "divide": "divide", "exponentiate": "exponentiate"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_number_date_format_transform %in% names(named_list)) {
if (is.logical(chart_number_date_format_transform)) {
chart_number_date_format_transform <- as.character(chart_number_date_format_transform)
}
named_list_value <- unname(named_list[chart_number_date_format_transform])[[1]]
new_list$x$state$number_format$transform <- named_list_value
}
}
}
}
new_list$x$state$number_format$multiply_divide_constant <- chart_number_date_format_multiply_divide_constant
new_list$x$state$number_format$exponentiate_constant <- chart_number_date_format_exponentiate_constant
new_list$x$state$layout$body_font <- chart_layout_body_font
new_list$x$state$layout$font_color <- chart_layout_font_color
list_chart_layout_background_color_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_background_color_enabled)) {
if (!chart_layout_background_color_enabled %in% list_chart_layout_background_color_enabled) {
stop("`chart_layout_background_color_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_background_color_enabled %in% names(named_list)) {
if (is.logical(chart_layout_background_color_enabled)) {
chart_layout_background_color_enabled <- as.character(chart_layout_background_color_enabled)
}
named_list_value <- unname(named_list[chart_layout_background_color_enabled])[[1]]
new_list$x$state$layout$background_color_enabled <- named_list_value
}
}
}
}
list_chart_layout_background_image_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_background_image_enabled)) {
if (!chart_layout_background_image_enabled %in% list_chart_layout_background_image_enabled) {
stop("`chart_layout_background_image_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_background_image_enabled %in% names(named_list)) {
if (is.logical(chart_layout_background_image_enabled)) {
chart_layout_background_image_enabled <- as.character(chart_layout_background_image_enabled)
}
named_list_value <- unname(named_list[chart_layout_background_image_enabled])[[1]]
new_list$x$state$layout$background_image_enabled <- named_list_value
}
}
}
}
new_list$x$state$layout$background_color <- chart_layout_background_color
new_list$x$state$layout$background_image_src <- chart_layout_background_image_src
list_chart_layout_background_image_size <- c("cover", "contain", "auto", "100% 100%", NULL)
if (!is.null(chart_layout_background_image_size)) {
if (!chart_layout_background_image_size %in% list_chart_layout_background_image_size) {
stop("`chart_layout_background_image_size` must be one of: c('cover', 'contain', 'auto', '100% 100%')")
} else {
if (length(jsonlite::fromJSON('{"cover": "cover", "contain": "contain", "auto": "auto", "100% 100%": "100% 100%"}')) > 1) {
named_list <- jsonlite::fromJSON('{"cover": "cover", "contain": "contain", "auto": "auto", "100% 100%": "100% 100%"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_background_image_size %in% names(named_list)) {
if (is.logical(chart_layout_background_image_size)) {
chart_layout_background_image_size <- as.character(chart_layout_background_image_size)
}
named_list_value <- unname(named_list[chart_layout_background_image_size])[[1]]
new_list$x$state$layout$background_image_size <- named_list_value
}
}
}
}
list_chart_layout_background_image_position <- c("top left", "top center", "top right", "center left", "center center", "center right", "bottom left", "bottom center", "bottom right", NULL)
if (!is.null(chart_layout_background_image_position)) {
if (!chart_layout_background_image_position %in% list_chart_layout_background_image_position) {
stop("`chart_layout_background_image_position` must be one of: c('top left', 'top center', 'top right', 'center left', 'center center', 'center right', 'bottom left', 'bottom center', 'bottom right')")
} else {
if (length(jsonlite::fromJSON('{"top left": "top left", "top center": "top center", "top right": "top right", "center left": "center left", "center center": "center center", "center right": "center right", "bottom left": "bottom left", "bottom center": "bottom center", "bottom right": "bottom right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top left": "top left", "top center": "top center", "top right": "top right", "center left": "center left", "center center": "center center", "center right": "center right", "bottom left": "bottom left", "bottom center": "bottom center", "bottom right": "bottom right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_background_image_position %in% names(named_list)) {
if (is.logical(chart_layout_background_image_position)) {
chart_layout_background_image_position <- as.character(chart_layout_background_image_position)
}
named_list_value <- unname(named_list[chart_layout_background_image_position])[[1]]
new_list$x$state$layout$background_image_position <- named_list_value
}
}
}
}
list_chart_layout_max_width_target <- c("none", "wrapper", "primary", NULL)
if (!is.null(chart_layout_max_width_target)) {
if (!chart_layout_max_width_target %in% list_chart_layout_max_width_target) {
stop("`chart_layout_max_width_target` must be one of: c('none', 'wrapper', 'primary')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "wrapper": "wrapper", "primary": "primary"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "wrapper": "wrapper", "primary": "primary"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_max_width_target %in% names(named_list)) {
if (is.logical(chart_layout_max_width_target)) {
chart_layout_max_width_target <- as.character(chart_layout_max_width_target)
}
named_list_value <- unname(named_list[chart_layout_max_width_target])[[1]]
new_list$x$state$layout$max_width_target <- named_list_value
}
}
}
}
new_list$x$state$layout$max_width <- chart_layout_max_width
list_chart_layout_max_width_align <- c("left", "center", "right", NULL)
if (!is.null(chart_layout_max_width_align)) {
if (!chart_layout_max_width_align %in% list_chart_layout_max_width_align) {
stop("`chart_layout_max_width_align` must be one of: c('left', 'center', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_max_width_align %in% names(named_list)) {
if (is.logical(chart_layout_max_width_align)) {
chart_layout_max_width_align <- as.character(chart_layout_max_width_align)
}
named_list_value <- unname(named_list[chart_layout_max_width_align])[[1]]
new_list$x$state$layout$max_width_align <- named_list_value
}
}
}
}
new_list$x$state$layout$layout_order <- chart_layout_layout_order
list_chart_layout_space_between_sections <- c("0.5", "1", "1.5", "custom", NULL)
if (!is.null(chart_layout_space_between_sections)) {
if (!chart_layout_space_between_sections %in% list_chart_layout_space_between_sections) {
stop("`chart_layout_space_between_sections` must be one of: c('0.5', '1', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.5": "0.5", "1": "1", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.5": "0.5", "1": "1", "1.5": "1.5", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_space_between_sections %in% names(named_list)) {
if (is.logical(chart_layout_space_between_sections)) {
chart_layout_space_between_sections <- as.character(chart_layout_space_between_sections)
}
named_list_value <- unname(named_list[chart_layout_space_between_sections])[[1]]
new_list$x$state$layout$space_between_sections <- named_list_value
}
}
}
}
new_list$x$state$layout$space_between_sections_custom <- chart_layout_space_between_sections_custom
new_list$x$state$layout$margin_top <- chart_layout_margin_top
new_list$x$state$layout$margin_right <- chart_layout_margin_right
new_list$x$state$layout$margin_bottom <- chart_layout_margin_bottom
new_list$x$state$layout$margin_left <- chart_layout_margin_left
new_list$x$state$layout$border$enabled <- chart_layout_border_enabled
new_list$x$state$layout$border$top$width <- chart_layout_border_top_width
list_chart_layout_border_top_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_border_top_style)) {
if (!chart_layout_border_top_style %in% list_chart_layout_border_top_style) {
stop("`chart_layout_border_top_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_border_top_style %in% names(named_list)) {
if (is.logical(chart_layout_border_top_style)) {
chart_layout_border_top_style <- as.character(chart_layout_border_top_style)
}
named_list_value <- unname(named_list[chart_layout_border_top_style])[[1]]
new_list$x$state$layout$border$top$style <- named_list_value
}
}
}
}
new_list$x$state$layout$border$top$color <- chart_layout_border_top_color
new_list$x$state$layout$border$right$width <- chart_layout_border_right_width
list_chart_layout_border_right_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_border_right_style)) {
if (!chart_layout_border_right_style %in% list_chart_layout_border_right_style) {
stop("`chart_layout_border_right_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_border_right_style %in% names(named_list)) {
if (is.logical(chart_layout_border_right_style)) {
chart_layout_border_right_style <- as.character(chart_layout_border_right_style)
}
named_list_value <- unname(named_list[chart_layout_border_right_style])[[1]]
new_list$x$state$layout$border$right$style <- named_list_value
}
}
}
}
new_list$x$state$layout$border$right$color <- chart_layout_border_right_color
new_list$x$state$layout$border$bottom$width <- chart_layout_border_bottom_width
list_chart_layout_border_bottom_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_border_bottom_style)) {
if (!chart_layout_border_bottom_style %in% list_chart_layout_border_bottom_style) {
stop("`chart_layout_border_bottom_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_border_bottom_style %in% names(named_list)) {
if (is.logical(chart_layout_border_bottom_style)) {
chart_layout_border_bottom_style <- as.character(chart_layout_border_bottom_style)
}
named_list_value <- unname(named_list[chart_layout_border_bottom_style])[[1]]
new_list$x$state$layout$border$bottom$style <- named_list_value
}
}
}
}
new_list$x$state$layout$border$bottom$color <- chart_layout_border_bottom_color
new_list$x$state$layout$border$left$width <- chart_layout_border_left_width
list_chart_layout_border_left_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_border_left_style)) {
if (!chart_layout_border_left_style %in% list_chart_layout_border_left_style) {
stop("`chart_layout_border_left_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_border_left_style %in% names(named_list)) {
if (is.logical(chart_layout_border_left_style)) {
chart_layout_border_left_style <- as.character(chart_layout_border_left_style)
}
named_list_value <- unname(named_list[chart_layout_border_left_style])[[1]]
new_list$x$state$layout$border$left$style <- named_list_value
}
}
}
}
new_list$x$state$layout$border$left$color <- chart_layout_border_left_color
list_chart_layout_read_direction <- c("ltr", "rtl", NULL)
if (!is.null(chart_layout_read_direction)) {
if (!chart_layout_read_direction %in% list_chart_layout_read_direction) {
stop("`chart_layout_read_direction` must be one of: c('ltr', 'rtl')")
} else {
if (length(jsonlite::fromJSON('{"ltr": "ltr", "rtl": "rtl"}')) > 1) {
named_list <- jsonlite::fromJSON('{"ltr": "ltr", "rtl": "rtl"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_read_direction %in% names(named_list)) {
if (is.logical(chart_layout_read_direction)) {
chart_layout_read_direction <- as.character(chart_layout_read_direction)
}
named_list_value <- unname(named_list[chart_layout_read_direction])[[1]]
new_list$x$state$layout$read_direction <- named_list_value
}
}
}
}
new_list$x$state$layout$font_size_mobile_small <- chart_layout_font_size_mobile_small
new_list$x$state$layout$font_size_mobile_big <- chart_layout_font_size_mobile_big
new_list$x$state$layout$font_size_tablet <- chart_layout_font_size_tablet
new_list$x$state$layout$font_size_desktop <- chart_layout_font_size_desktop
new_list$x$state$layout$font_size_big_screen <- chart_layout_font_size_big_screen
new_list$x$state$layout$breakpoint_mobile_small <- chart_layout_breakpoint_mobile_small
new_list$x$state$layout$breakpoint_mobile_big <- chart_layout_breakpoint_mobile_big
new_list$x$state$layout$breakpoint_tablet <- chart_layout_breakpoint_tablet
new_list$x$state$layout$breakpoint_desktop <- chart_layout_breakpoint_desktop
new_list$x$state$layout$breakpoint_big_screen <- chart_layout_breakpoint_big_screen
list_chart_layout_header_align <- c("left", "center", "right", NULL)
if (!is.null(chart_layout_header_align)) {
if (!chart_layout_header_align %in% list_chart_layout_header_align) {
stop("`chart_layout_header_align` must be one of: c('left', 'center', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_align %in% names(named_list)) {
if (is.logical(chart_layout_header_align)) {
chart_layout_header_align <- as.character(chart_layout_header_align)
}
named_list_value <- unname(named_list[chart_layout_header_align])[[1]]
new_list$x$state$layout$header_align <- named_list_value
}
}
}
}
if (length(chart_layout_title) > 1) {
new_list$x$state$layout$title <- paste(chart_layout_title, collapse = "\n")
} else {
new_list$x$state$layout$title <- chart_layout_title
}
new_list$x$state$layout$title_styling <- chart_layout_title_styling
new_list$x$state$layout$title_font <- chart_layout_title_font
list_chart_layout_title_size <- c("1.4", "1.6", "2", "custom", NULL)
if (!is.null(chart_layout_title_size)) {
if (!chart_layout_title_size %in% list_chart_layout_title_size) {
stop("`chart_layout_title_size` must be one of: c('1.4', '1.6', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1.4": "1.4", "1.6": "1.6", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1.4": "1.4", "1.6": "1.6", "2": "2", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_title_size %in% names(named_list)) {
if (is.logical(chart_layout_title_size)) {
chart_layout_title_size <- as.character(chart_layout_title_size)
}
named_list_value <- unname(named_list[chart_layout_title_size])[[1]]
new_list$x$state$layout$title_size <- named_list_value
}
}
}
}
new_list$x$state$layout$title_size_custom <- chart_layout_title_size_custom
list_chart_layout_title_weight <- c("bold", "normal", NULL)
if (!is.null(chart_layout_title_weight)) {
if (!chart_layout_title_weight %in% list_chart_layout_title_weight) {
stop("`chart_layout_title_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_title_weight %in% names(named_list)) {
if (is.logical(chart_layout_title_weight)) {
chart_layout_title_weight <- as.character(chart_layout_title_weight)
}
named_list_value <- unname(named_list[chart_layout_title_weight])[[1]]
new_list$x$state$layout$title_weight <- named_list_value
}
}
}
}
new_list$x$state$layout$title_color <- chart_layout_title_color
new_list$x$state$layout$title_line_height <- chart_layout_title_line_height
list_chart_layout_title_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(chart_layout_title_space_above)) {
if (!chart_layout_title_space_above %in% list_chart_layout_title_space_above) {
stop("`chart_layout_title_space_above` must be one of: c('0', '0.5', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_title_space_above %in% names(named_list)) {
if (is.logical(chart_layout_title_space_above)) {
chart_layout_title_space_above <- as.character(chart_layout_title_space_above)
}
named_list_value <- unname(named_list[chart_layout_title_space_above])[[1]]
new_list$x$state$layout$title_space_above <- named_list_value
}
}
}
}
new_list$x$state$layout$title_space_above_custom <- chart_layout_title_space_above_custom
if (length(chart_layout_subtitle) > 1) {
new_list$x$state$layout$subtitle <- paste(chart_layout_subtitle, collapse = "\n")
} else {
new_list$x$state$layout$subtitle <- chart_layout_subtitle
}
new_list$x$state$layout$subtitle_styling <- chart_layout_subtitle_styling
new_list$x$state$layout$subtitle_font <- chart_layout_subtitle_font
list_chart_layout_subtitle_size <- c("1.4", "1.6", "2", "custom", NULL)
if (!is.null(chart_layout_subtitle_size)) {
if (!chart_layout_subtitle_size %in% list_chart_layout_subtitle_size) {
stop("`chart_layout_subtitle_size` must be one of: c('1.4', '1.6', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1.4": "1.4", "1.6": "1.6", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1.4": "1.4", "1.6": "1.6", "2": "2", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_subtitle_size %in% names(named_list)) {
if (is.logical(chart_layout_subtitle_size)) {
chart_layout_subtitle_size <- as.character(chart_layout_subtitle_size)
}
named_list_value <- unname(named_list[chart_layout_subtitle_size])[[1]]
new_list$x$state$layout$subtitle_size <- named_list_value
}
}
}
}
new_list$x$state$layout$subtitle_size_custom <- chart_layout_subtitle_size_custom
list_chart_layout_subtitle_weight <- c("bold", "normal", NULL)
if (!is.null(chart_layout_subtitle_weight)) {
if (!chart_layout_subtitle_weight %in% list_chart_layout_subtitle_weight) {
stop("`chart_layout_subtitle_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_subtitle_weight %in% names(named_list)) {
if (is.logical(chart_layout_subtitle_weight)) {
chart_layout_subtitle_weight <- as.character(chart_layout_subtitle_weight)
}
named_list_value <- unname(named_list[chart_layout_subtitle_weight])[[1]]
new_list$x$state$layout$subtitle_weight <- named_list_value
}
}
}
}
new_list$x$state$layout$subtitle_color <- chart_layout_subtitle_color
new_list$x$state$layout$subtitle_line_height <- chart_layout_subtitle_line_height
list_chart_layout_subtitle_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(chart_layout_subtitle_space_above)) {
if (!chart_layout_subtitle_space_above %in% list_chart_layout_subtitle_space_above) {
stop("`chart_layout_subtitle_space_above` must be one of: c('0', '0.5', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_subtitle_space_above %in% names(named_list)) {
if (is.logical(chart_layout_subtitle_space_above)) {
chart_layout_subtitle_space_above <- as.character(chart_layout_subtitle_space_above)
}
named_list_value <- unname(named_list[chart_layout_subtitle_space_above])[[1]]
new_list$x$state$layout$subtitle_space_above <- named_list_value
}
}
}
}
new_list$x$state$layout$subtitle_space_above_custom <- chart_layout_subtitle_space_above_custom
if (length(chart_layout_header_text) > 1) {
new_list$x$state$layout$header_text <- paste(chart_layout_header_text, collapse = "\n")
} else {
new_list$x$state$layout$header_text <- chart_layout_header_text
}
new_list$x$state$layout$header_text_styling <- chart_layout_header_text_styling
list_chart_layout_header_text_size <- c("1.2", "1.4", "1.6", "custom", NULL)
if (!is.null(chart_layout_header_text_size)) {
if (!chart_layout_header_text_size %in% list_chart_layout_header_text_size) {
stop("`chart_layout_header_text_size` must be one of: c('1.2', '1.4', '1.6', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1.2": "1.2", "1.4": "1.4", "1.6": "1.6", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1.2": "1.2", "1.4": "1.4", "1.6": "1.6", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_text_size %in% names(named_list)) {
if (is.logical(chart_layout_header_text_size)) {
chart_layout_header_text_size <- as.character(chart_layout_header_text_size)
}
named_list_value <- unname(named_list[chart_layout_header_text_size])[[1]]
new_list$x$state$layout$header_text_size <- named_list_value
}
}
}
}
new_list$x$state$layout$header_text_size_custom <- chart_layout_header_text_size_custom
list_chart_layout_header_text_weight <- c("bold", "normal", NULL)
if (!is.null(chart_layout_header_text_weight)) {
if (!chart_layout_header_text_weight %in% list_chart_layout_header_text_weight) {
stop("`chart_layout_header_text_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_text_weight %in% names(named_list)) {
if (is.logical(chart_layout_header_text_weight)) {
chart_layout_header_text_weight <- as.character(chart_layout_header_text_weight)
}
named_list_value <- unname(named_list[chart_layout_header_text_weight])[[1]]
new_list$x$state$layout$header_text_weight <- named_list_value
}
}
}
}
new_list$x$state$layout$header_text_color <- chart_layout_header_text_color
new_list$x$state$layout$header_text_line_height <- chart_layout_header_text_line_height
list_chart_layout_header_text_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(chart_layout_header_text_space_above)) {
if (!chart_layout_header_text_space_above %in% list_chart_layout_header_text_space_above) {
stop("`chart_layout_header_text_space_above` must be one of: c('0', '0.5', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0": "0", "0.5": "0.5", "1": "1", "custom": "custom"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_text_space_above %in% names(named_list)) {
if (is.logical(chart_layout_header_text_space_above)) {
chart_layout_header_text_space_above <- as.character(chart_layout_header_text_space_above)
}
named_list_value <- unname(named_list[chart_layout_header_text_space_above])[[1]]
new_list$x$state$layout$header_text_space_above <- named_list_value
}
}
}
}
new_list$x$state$layout$header_text_space_above_custom <- chart_layout_header_text_space_above_custom
list_chart_layout_header_border <- c("top", "bottom", "top_and_bottom", "none", NULL)
if (!is.null(chart_layout_header_border)) {
if (!chart_layout_header_border %in% list_chart_layout_header_border) {
stop("`chart_layout_header_border` must be one of: c('top', 'bottom', 'top_and_bottom', 'none')")
} else {
if (length(jsonlite::fromJSON('{"top": "top", "bottom": "bottom", "top_and_bottom": "top_and_bottom", "none": "none"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top": "top", "bottom": "bottom", "top_and_bottom": "top_and_bottom", "none": "none"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_border %in% names(named_list)) {
if (is.logical(chart_layout_header_border)) {
chart_layout_header_border <- as.character(chart_layout_header_border)
}
named_list_value <- unname(named_list[chart_layout_header_border])[[1]]
new_list$x$state$layout$header_border <- named_list_value
}
}
}
}
new_list$x$state$layout$header_border_width <- chart_layout_header_border_width
new_list$x$state$layout$header_border_color <- chart_layout_header_border_color
list_chart_layout_header_border_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_header_border_style)) {
if (!chart_layout_header_border_style %in% list_chart_layout_header_border_style) {
stop("`chart_layout_header_border_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_border_style %in% names(named_list)) {
if (is.logical(chart_layout_header_border_style)) {
chart_layout_header_border_style <- as.character(chart_layout_header_border_style)
}
named_list_value <- unname(named_list[chart_layout_header_border_style])[[1]]
new_list$x$state$layout$header_border_style <- named_list_value
}
}
}
}
new_list$x$state$layout$header_border_space <- chart_layout_header_border_space
list_chart_layout_header_logo_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_header_logo_enabled)) {
if (!chart_layout_header_logo_enabled %in% list_chart_layout_header_logo_enabled) {
stop("`chart_layout_header_logo_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_logo_enabled %in% names(named_list)) {
if (is.logical(chart_layout_header_logo_enabled)) {
chart_layout_header_logo_enabled <- as.character(chart_layout_header_logo_enabled)
}
named_list_value <- unname(named_list[chart_layout_header_logo_enabled])[[1]]
new_list$x$state$layout$header_logo_enabled <- named_list_value
}
}
}
}
new_list$x$state$layout$header_logo_src <- chart_layout_header_logo_src
new_list$x$state$layout$header_logo_alt <- chart_layout_header_logo_alt
new_list$x$state$layout$header_logo_link_url <- chart_layout_header_logo_link_url
new_list$x$state$layout$header_logo_height <- chart_layout_header_logo_height
list_chart_layout_header_logo_align <- c("inside", "outside", NULL)
if (!is.null(chart_layout_header_logo_align)) {
if (!chart_layout_header_logo_align %in% list_chart_layout_header_logo_align) {
stop("`chart_layout_header_logo_align` must be one of: c('inside', 'outside')")
} else {
if (length(jsonlite::fromJSON('{"inside": "inside", "outside": "outside"}')) > 1) {
named_list <- jsonlite::fromJSON('{"inside": "inside", "outside": "outside"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_logo_align %in% names(named_list)) {
if (is.logical(chart_layout_header_logo_align)) {
chart_layout_header_logo_align <- as.character(chart_layout_header_logo_align)
}
named_list_value <- unname(named_list[chart_layout_header_logo_align])[[1]]
new_list$x$state$layout$header_logo_align <- named_list_value
}
}
}
}
list_chart_layout_header_logo_position_inside <- c("top", "left", "right", NULL)
if (!is.null(chart_layout_header_logo_position_inside)) {
if (!chart_layout_header_logo_position_inside %in% list_chart_layout_header_logo_position_inside) {
stop("`chart_layout_header_logo_position_inside` must be one of: c('top', 'left', 'right')")
} else {
if (length(jsonlite::fromJSON('{"top": "top", "left": "left", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top": "top", "left": "left", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_logo_position_inside %in% names(named_list)) {
if (is.logical(chart_layout_header_logo_position_inside)) {
chart_layout_header_logo_position_inside <- as.character(chart_layout_header_logo_position_inside)
}
named_list_value <- unname(named_list[chart_layout_header_logo_position_inside])[[1]]
new_list$x$state$layout$header_logo_position_inside <- named_list_value
}
}
}
}
list_chart_layout_header_logo_position_outside <- c("left", "right", NULL)
if (!is.null(chart_layout_header_logo_position_outside)) {
if (!chart_layout_header_logo_position_outside %in% list_chart_layout_header_logo_position_outside) {
stop("`chart_layout_header_logo_position_outside` must be one of: c('left', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_header_logo_position_outside %in% names(named_list)) {
if (is.logical(chart_layout_header_logo_position_outside)) {
chart_layout_header_logo_position_outside <- as.character(chart_layout_header_logo_position_outside)
}
named_list_value <- unname(named_list[chart_layout_header_logo_position_outside])[[1]]
new_list$x$state$layout$header_logo_position_outside <- named_list_value
}
}
}
}
new_list$x$state$layout$header_logo_margin_top <- chart_layout_header_logo_margin_top
new_list$x$state$layout$header_logo_margin_right <- chart_layout_header_logo_margin_right
new_list$x$state$layout$header_logo_margin_bottom <- chart_layout_header_logo_margin_bottom
new_list$x$state$layout$header_logo_margin_left <- chart_layout_header_logo_margin_left
list_chart_layout_footer_align <- c("left", "center", "right", "justify", NULL)
if (!is.null(chart_layout_footer_align)) {
if (!chart_layout_footer_align %in% list_chart_layout_footer_align) {
stop("`chart_layout_footer_align` must be one of: c('left', 'center', 'right', 'justify')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right", "justify": "justify"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "center": "center", "right": "right", "justify": "justify"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_align %in% names(named_list)) {
if (is.logical(chart_layout_footer_align)) {
chart_layout_footer_align <- as.character(chart_layout_footer_align)
}
named_list_value <- unname(named_list[chart_layout_footer_align])[[1]]
new_list$x$state$layout$footer_align <- named_list_value
}
}
}
}
new_list$x$state$layout$footer_text_size <- chart_layout_footer_text_size
new_list$x$state$layout$footer_text_color <- chart_layout_footer_text_color
new_list$x$state$layout$footer_styling <- chart_layout_footer_styling
new_list$x$state$layout$footer_font <- chart_layout_footer_font
list_chart_layout_footer_text_weight <- c("bold", "normal", NULL)
if (!is.null(chart_layout_footer_text_weight)) {
if (!chart_layout_footer_text_weight %in% list_chart_layout_footer_text_weight) {
stop("`chart_layout_footer_text_weight` must be one of: c('bold', 'normal')")
} else {
if (length(jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')) > 1) {
named_list <- jsonlite::fromJSON('{"bold": "bold", "normal": "normal"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_text_weight %in% names(named_list)) {
if (is.logical(chart_layout_footer_text_weight)) {
chart_layout_footer_text_weight <- as.character(chart_layout_footer_text_weight)
}
named_list_value <- unname(named_list[chart_layout_footer_text_weight])[[1]]
new_list$x$state$layout$footer_text_weight <- named_list_value
}
}
}
}
new_list$x$state$layout$source_name <- chart_layout_source_name
new_list$x$state$layout$source_url <- chart_layout_source_url
new_list$x$state$layout$multiple_sources <- chart_layout_multiple_sources
new_list$x$state$layout$source_name_2 <- chart_layout_source_name_2
new_list$x$state$layout$source_url_2 <- chart_layout_source_url_2
new_list$x$state$layout$source_name_3 <- chart_layout_source_name_3
new_list$x$state$layout$source_url_3 <- chart_layout_source_url_3
new_list$x$state$layout$source_label <- chart_layout_source_label
if (length(chart_layout_footer_note) > 1) {
new_list$x$state$layout$footer_note <- paste(chart_layout_footer_note, collapse = "\n")
} else {
new_list$x$state$layout$footer_note <- chart_layout_footer_note
}
if (length(chart_layout_footer_note_secondary) > 1) {
new_list$x$state$layout$footer_note_secondary <- paste(chart_layout_footer_note_secondary, collapse = "\n")
} else {
new_list$x$state$layout$footer_note_secondary <- chart_layout_footer_note_secondary
}
new_list$x$state$layout$advanced_note_styling <- chart_layout_advanced_note_styling
list_chart_layout_footer_timestamp_format <- c("%H:%M:%S", "%I:%M %p", "%H:%M", "%H:%M %p", "%H:%M:%S, %d %b %Y", "%H:%M, %d %b %Y", "%H:%M, %d/%m/%Y", "%H:%M, %m/%d/%Y", "%H:%M, %d-%m-%Y", "%H:%M, %m-%d-%Y", "%d %b %Y", "%m/%d/%Y", "%d/%m/%Y", "%m-%d-%Y", "%d-%m-%Y", "%Y-%m-%d", "%Y-%m-%d %H:%M:%S", NULL)
if (!is.null(chart_layout_footer_timestamp_format)) {
if (!chart_layout_footer_timestamp_format %in% list_chart_layout_footer_timestamp_format) {
stop("`chart_layout_footer_timestamp_format` must be one of: c('%H:%M:%S', '%I:%M %p', '%H:%M', '%H:%M %p', '%H:%M:%S, %d %b %Y', '%H:%M, %d %b %Y', '%H:%M, %d/%m/%Y', '%H:%M, %m/%d/%Y', '%H:%M, %d-%m-%Y', '%H:%M, %m-%d-%Y', '%d %b %Y', '%m/%d/%Y', '%d/%m/%Y', '%m-%d-%Y', '%d-%m-%Y', '%Y-%m-%d', '%Y-%m-%d %H:%M:%S')")
} else {
if (length(jsonlite::fromJSON('{"%H:%M:%S": "%H:%M:%S", "%I:%M %p": "%I:%M %p", "%H:%M": "%H:%M", "%H:%M %p": "%H:%M %p", "%H:%M:%S, %d %b %Y": "%H:%M:%S, %d %b %Y", "%H:%M, %d %b %Y": "%H:%M, %d %b %Y", "%H:%M, %d/%m/%Y": "%H:%M, %d/%m/%Y", "%H:%M, %m/%d/%Y": "%H:%M, %m/%d/%Y", "%H:%M, %d-%m-%Y": "%H:%M, %d-%m-%Y", "%H:%M, %m-%d-%Y": "%H:%M, %m-%d-%Y", "%d %b %Y": "%d %b %Y", "%m/%d/%Y": "%m/%d/%Y", "%d/%m/%Y": "%d/%m/%Y", "%m-%d-%Y": "%m-%d-%Y", "%d-%m-%Y": "%d-%m-%Y", "%Y-%m-%d": "%Y-%m-%d", "%Y-%m-%d %H:%M:%S": "%Y-%m-%d %H:%M:%S"}')) > 1) {
named_list <- jsonlite::fromJSON('{"%H:%M:%S": "%H:%M:%S", "%I:%M %p": "%I:%M %p", "%H:%M": "%H:%M", "%H:%M %p": "%H:%M %p", "%H:%M:%S, %d %b %Y": "%H:%M:%S, %d %b %Y", "%H:%M, %d %b %Y": "%H:%M, %d %b %Y", "%H:%M, %d/%m/%Y": "%H:%M, %d/%m/%Y", "%H:%M, %m/%d/%Y": "%H:%M, %m/%d/%Y", "%H:%M, %d-%m-%Y": "%H:%M, %d-%m-%Y", "%H:%M, %m-%d-%Y": "%H:%M, %m-%d-%Y", "%d %b %Y": "%d %b %Y", "%m/%d/%Y": "%m/%d/%Y", "%d/%m/%Y": "%d/%m/%Y", "%m-%d-%Y": "%m-%d-%Y", "%d-%m-%Y": "%d-%m-%Y", "%Y-%m-%d": "%Y-%m-%d", "%Y-%m-%d %H:%M:%S": "%Y-%m-%d %H:%M:%S"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_timestamp_format %in% names(named_list)) {
if (is.logical(chart_layout_footer_timestamp_format)) {
chart_layout_footer_timestamp_format <- as.character(chart_layout_footer_timestamp_format)
}
named_list_value <- unname(named_list[chart_layout_footer_timestamp_format])[[1]]
new_list$x$state$layout$footer_timestamp_format <- named_list_value
}
}
}
}
list_chart_layout_footer_logo_enabled <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_footer_logo_enabled)) {
if (!chart_layout_footer_logo_enabled %in% list_chart_layout_footer_logo_enabled) {
stop("`chart_layout_footer_logo_enabled` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_logo_enabled %in% names(named_list)) {
if (is.logical(chart_layout_footer_logo_enabled)) {
chart_layout_footer_logo_enabled <- as.character(chart_layout_footer_logo_enabled)
}
named_list_value <- unname(named_list[chart_layout_footer_logo_enabled])[[1]]
new_list$x$state$layout$footer_logo_enabled <- named_list_value
}
}
}
}
new_list$x$state$layout$footer_logo_src <- chart_layout_footer_logo_src
new_list$x$state$layout$footer_logo_src_light <- chart_layout_footer_logo_src_light
new_list$x$state$layout$footer_logo_alt <- chart_layout_footer_logo_alt
new_list$x$state$layout$footer_logo_link_url <- chart_layout_footer_logo_link_url
new_list$x$state$layout$footer_logo_height <- chart_layout_footer_logo_height
new_list$x$state$layout$footer_logo_margin <- chart_layout_footer_logo_margin
list_chart_layout_footer_logo_order <- c("left", "right", NULL)
if (!is.null(chart_layout_footer_logo_order)) {
if (!chart_layout_footer_logo_order %in% list_chart_layout_footer_logo_order) {
stop("`chart_layout_footer_logo_order` must be one of: c('left', 'right')")
} else {
if (length(jsonlite::fromJSON('{"left": "left", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"left": "left", "right": "right"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_logo_order %in% names(named_list)) {
if (is.logical(chart_layout_footer_logo_order)) {
chart_layout_footer_logo_order <- as.character(chart_layout_footer_logo_order)
}
named_list_value <- unname(named_list[chart_layout_footer_logo_order])[[1]]
new_list$x$state$layout$footer_logo_order <- named_list_value
}
}
}
}
list_chart_layout_footer_align_vertical <- c("flex-start", "center", "flex-end", NULL)
if (!is.null(chart_layout_footer_align_vertical)) {
if (!chart_layout_footer_align_vertical %in% list_chart_layout_footer_align_vertical) {
stop("`chart_layout_footer_align_vertical` must be one of: c('flex-start', 'center', 'flex-end')")
} else {
if (length(jsonlite::fromJSON('{"flex-start": "flex-start", "center": "center", "flex-end": "flex-end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"flex-start": "flex-start", "center": "center", "flex-end": "flex-end"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_align_vertical %in% names(named_list)) {
if (is.logical(chart_layout_footer_align_vertical)) {
chart_layout_footer_align_vertical <- as.character(chart_layout_footer_align_vertical)
}
named_list_value <- unname(named_list[chart_layout_footer_align_vertical])[[1]]
new_list$x$state$layout$footer_align_vertical <- named_list_value
}
}
}
}
list_chart_layout_footer_border <- c("top", "bottom", "top_and_bottom", "none", NULL)
if (!is.null(chart_layout_footer_border)) {
if (!chart_layout_footer_border %in% list_chart_layout_footer_border) {
stop("`chart_layout_footer_border` must be one of: c('top', 'bottom', 'top_and_bottom', 'none')")
} else {
if (length(jsonlite::fromJSON('{"top": "top", "bottom": "bottom", "top_and_bottom": "top_and_bottom", "none": "none"}')) > 1) {
named_list <- jsonlite::fromJSON('{"top": "top", "bottom": "bottom", "top_and_bottom": "top_and_bottom", "none": "none"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_border %in% names(named_list)) {
if (is.logical(chart_layout_footer_border)) {
chart_layout_footer_border <- as.character(chart_layout_footer_border)
}
named_list_value <- unname(named_list[chart_layout_footer_border])[[1]]
new_list$x$state$layout$footer_border <- named_list_value
}
}
}
}
new_list$x$state$layout$footer_border_width <- chart_layout_footer_border_width
new_list$x$state$layout$footer_border_color <- chart_layout_footer_border_color
list_chart_layout_footer_border_style <- c("solid", "dashed", "dotted", NULL)
if (!is.null(chart_layout_footer_border_style)) {
if (!chart_layout_footer_border_style %in% list_chart_layout_footer_border_style) {
stop("`chart_layout_footer_border_style` must be one of: c('solid', 'dashed', 'dotted')")
} else {
if (length(jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')) > 1) {
named_list <- jsonlite::fromJSON('{"solid": "solid", "dashed": "dashed", "dotted": "dotted"}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_footer_border_style %in% names(named_list)) {
if (is.logical(chart_layout_footer_border_style)) {
chart_layout_footer_border_style <- as.character(chart_layout_footer_border_style)
}
named_list_value <- unname(named_list[chart_layout_footer_border_style])[[1]]
new_list$x$state$layout$footer_border_style <- named_list_value
}
}
}
}
new_list$x$state$layout$footer_border_space <- chart_layout_footer_border_space
if (length(chart_layout_screenreader_text_primary) > 1) {
new_list$x$state$layout$screenreader_text_primary <- paste(chart_layout_screenreader_text_primary, collapse = "\n")
} else {
new_list$x$state$layout$screenreader_text_primary <- chart_layout_screenreader_text_primary
}
new_list$x$state$layout$screenreader_label <- chart_layout_screenreader_label
list_chart_layout_screenreader_hide_primary <- c(TRUE, FALSE, NULL)
if (!is.null(chart_layout_screenreader_hide_primary)) {
if (!chart_layout_screenreader_hide_primary %in% list_chart_layout_screenreader_hide_primary) {
stop("`chart_layout_screenreader_hide_primary` must be one of: c(TRUE, FALSE)")
} else {
if (length(jsonlite::fromJSON('{"true": true, "false": false}')) > 1) {
named_list <- jsonlite::fromJSON('{"true": true, "false": false}')
# Get the names of the list
names_list <- names(named_list)
# Convert names to boolean values only if they are "true" or "false"
boolean_names <- sapply(names_list, function(x) {
if (x == "true") {
return("TRUE")
} else if (x == "false") {
return("FALSE")
} else {
return(x) # Return the original name if it's not "true" or "false"
}
})
# Set the names of the list to boolean values
names(named_list) <- boolean_names
if (length(named_list) > 1 && chart_layout_screenreader_hide_primary %in% names(named_list)) {
if (is.logical(chart_layout_screenreader_hide_primary)) {
chart_layout_screenreader_hide_primary <- as.character(chart_layout_screenreader_hide_primary)
}
named_list_value <- unname(named_list[chart_layout_screenreader_hide_primary])[[1]]
new_list$x$state$layout$screenreader_hide_primary <- named_list_value
}
}
}
}
new_list$x$state$url_state$enabled <- chart_url_settings_enabled
if (length(chart_url_settings_whitelist) > 1) {
new_list$x$state$url_state$whitelist <- paste(chart_url_settings_whitelist, collapse = "\n")
} else {
new_list$x$state$url_state$whitelist <- chart_url_settings_whitelist
}
deep_merge(old_list, new_list)
}
Try the flourishcharts package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.