Nothing
R/set_gauge_details.R
In flourishcharts: 'Flourish' for 'R' and 'Python'
Defines functions
set_gauge_details
Documented in
set_gauge_details
#' Set gauge chart details
#' @name set_gauge_details
#' @param gauge_radial_extent Shape. Choices: 90, 180, 270, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_radial_extent_custom Angle. Flourish type hint: number, defaults to `NULL`
#' @param gauge_width Inner radius. Choices: 1, 0.75, 0.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_width_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param gauge_scale_domain Range. Choices: auto, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_scale_domain_min Min. Flourish type hint: number, defaults to `NULL`
#' @param gauge_scale_domain_max Max. Flourish type hint: number, defaults to `NULL`
#' @param gauge_color Color. Flourish type hint: color, defaults to `NULL`
#' @param gauge_opacity Opacity. Flourish type hint: number, defaults to `NULL`
#' @param gauge_border_color Border. Flourish type hint: color, defaults to `NULL`
#' @param gauge_border_size Border size. Flourish type hint: number, defaults to `NULL`
#' @param height_mode Height mode. Choices: auto, standard, aspect. Auto: sets the height based on the chart type, data and width. Standard: default Flourish responsive sizing. Aspect ratio: sets the aspect of each plot. This setting is ignored when embedded in a fixed-height context, such as a simple Iframe embedFlourish type hint: string, defaults to `NULL`
#' @param aspect_ratio Aspect ratio. Choices: 0.75, 1, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param aspect_ratio_custom Custom. 1 is square, above 1 is wider, and below 1 is taller. Flourish type hint: number, defaults to `NULL`
#' @param add_aspect_ratio_mobile Mobile aspect ratio. Choices: disabled, enabled. Flourish type hint: string, defaults to `NULL`
#' @param breakpoint Breakpoint. The width at which mobile mode ends and desktop begins. Flourish type hint: number, defaults to `NULL`
#' @param aspect_ratio_mobile Mobile aspect ratio. Choices: 0.75, 1, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param aspect_ratio_mobile_custom Custom. 1 is square, above 1 is wider, and below 1 is taller. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_columns_fixed Grid mode. Choices: `FALSE`, `TRUE`. In Auto mode, the number of columns will change with screen size. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_facet_columns Columns. The number of columns in the grid. (If specifying custom positions, extra columns may be added automatically.). Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_min_width Min gauge width. Determines the minimum size (in pixels) at which each gauge will appear. Ignored if you specify a fixed number of columns. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_min_width_fixed Min chart width. Specify the minimum width of a chart or cell in the grid, below which the Fixed grid will be ignored and it will fall back to responsive Auto mode. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_custom_grid Add custom positions. Specify positions for individual charts in the grid useful for making a map layout. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_facet_custom_positions Custom positions. Enter the name of a facet, one per line, using the format: Facet name: row, column where row and column are numbers indicating the grid position where a facet should be positioned. For example, Alaska : 1, 1 Maine : 1, 11 Wisconsin : 2, 6 Flourish type hint: text, defaults to `NULL`
#' @param chart_facet_max_width Max gauge width. Determines the maximum size (in pixels) at which each gauge will appear. Ignored if you specify a fixed number of columns. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_gutter_w Horizontal margin. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_gutter_h Vertical margin. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_animation On data change. Choices: auto, name, reuse. If a chart in the grid is removed, that cell can either be animated out (with another cell moving to take its place) or reused for the new data in that cell. Auto decides for you based on the data. Flourish type hint: string, defaults to `NULL`
#' @param chart_facet_titles Show titles. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_facet_title_align Alignment. Choices: auto, left, center, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_facet_title_size Size. Relative to the width of the chart. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_title_unit Scale with chart. Choices: rem, facet. Flourish type hint: string, defaults to `NULL`
#' @param chart_facet_title_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_facet_title_padding_top Space above. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_title_padding_bottom Space below. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_title_bg Background. Choices: none, full, text. Flourish type hint: string, defaults to `NULL`
#' @param chart_facet_title_bg_color Background color. Flourish type hint: color, defaults to `NULL`
#' @param chart_facet_title_bg_padding Background padding. Horizontal space between text and background. Flourish type hint: number, defaults to `NULL`
#' @param segment_width Size. Choices: 0.1, 0.2, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param segment_width_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param segment_number Number. Choices: auto, fixed, custom. Flourish type hint: string, defaults to `NULL`
#' @param segment_fixed_number Number. Flourish type hint: number, defaults to `NULL`
#' @param segment_custom Two values per line in the following format 0 :: 5. Flourish type hint: text, defaults to `NULL`
#' @param segment_labels One label per line. If the number of segments is Fixed, labels will be added to each segment according to the order they appear in the gauge. If the number of segments is Custom, labels will be added to each segment according to the order in the custom segments have been inputted. Flourish type hint: text, defaults to `NULL`
#' @param segment_label_size Size. Choices: auto, 0.8, 1, 1.2, custom. In rems, a multiple of the pages base font size. Flourish type hint: string, defaults to `NULL`
#' @param segment_label_size_custom Custom. In rems, a multiple of the pages base font size. Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param segment_label_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param segment_label_rotation Rotation. Choices: none, ring. Flourish type hint: string, defaults to `NULL`
#' @param segment_label_color Color. Flourish type hint: color, defaults to `NULL`
#' @param segment_label_padding Padding. Flourish type hint: number, defaults to `NULL`
#' @param color_type Choices: categorical, numeric. Flourish type hint: string, 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 ticks_mode Mode. Choices: none, auto, number, custom. Flourish type hint: string, defaults to `NULL`
#' @param ticks_number Number. Approximate number of ticks or gridlines. The actual number will depend on the range of values, chart size, etc. Flourish type hint: number, defaults to `NULL`
#' @param ticks_custom One tick value per line. Flourish type hint: text, defaults to `NULL`
#' @param ticks_width Width. Flourish type hint: number, defaults to `NULL`
#' @param ticks_color Color. Flourish type hint: color, defaults to `NULL`
#' @param ticks_length Size. Choices: 0.1, 0.2, 0.3, custom. Flourish type hint: string, defaults to `NULL`
#' @param ticks_length_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param ticks_animation Animation. Choices: disabled, enabled. Flourish type hint: string, defaults to `NULL`
#' @param ticks_animation_duration Duration. The duration, in seconds, of the transitions for example, between two slides in a story Flourish type hint: number, defaults to `NULL`
#' @param intermediate_ticks Intermediate ticks. Choices: off, on. Flourish type hint: string, defaults to `NULL`
#' @param intermediate_ticks_number Number. Approximate number of intermediate ticks or gridlines. The actual number will depend on the range of values, chart size, etc. Flourish type hint: number, defaults to `NULL`
#' @param intermediate_ticks_width Size. As a proportion of the tick size. Flourish type hint: number, defaults to `NULL`
#' @param ticks_direction Direction. Choices: inwards, outwards. Flourish type hint: string, defaults to `NULL`
#' @param label_position Position. Choices: inside, outside. Flourish type hint: string, defaults to `NULL`
#' @param ticks_label_padding Space. Flourish type hint: number, defaults to `NULL`
#' @param ticks_label_color Color. Flourish type hint: color, defaults to `NULL`
#' @param label_rotation Rotation. Choices: none, auto, ring. Flourish type hint: string, defaults to `NULL`
#' @param label_flip Auto flip. Automatically flip when labels become less legible. Flourish type hint: boolean, defaults to `NULL`
#' @param ticks_label_size Size. Choices: 1, 1.5, 2, custom. In rems, a multiple of the pages base font size. Flourish type hint: string, defaults to `NULL`
#' @param ticks_label_size_custom Custom. In rems, a multiple of the pages base font size. Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param ticks_label_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param needle_size Size. Choices: 0.03, 0.06, 0.09, custom. Flourish type hint: string, defaults to `NULL`
#' @param needle_size_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param needle_hand_length Length. Choices: 0.5, 0.75, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param needle_hand_length_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param needle_color Color. Choices: gauge, custom. Flourish type hint: string, defaults to `NULL`
#' @param needle_color_custom Flourish type hint: color, defaults to `NULL`
#' @param needle_centre_size Size. Choices: 0.5, 1, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param needle_centre_size_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param needle_centre_stroke_width Border width. Flourish type hint: number, defaults to `NULL`
#' @param needle_centre_stroke Border color. Flourish type hint: color, defaults to `NULL`
#' @param needle_animation Animation. Choices: disabled, enabled. Flourish type hint: string, defaults to `NULL`
#' @param needle_animation_duration Duration. The duration, in seconds, of the transitions for example, between two slides in a story Flourish type hint: number, defaults to `NULL`
#' @param jitter Amplitude. Choices: none, low, medium, high. Sets how much the gauge needle moves when it animates up and down. To turn off the animation click NoneFlourish type hint: string, defaults to `NULL`
#' @param jitter_speed Speed. Flourish type hint: number, defaults to `NULL`
#' @param gauge_text_align Alignment. Choices: start, middle, end. Flourish type hint: string, defaults to `NULL`
#' @param gauge_text_position Position. Choices: above, below, split. Flourish type hint: string, defaults to `NULL`
#' @param gauge_text_position_flip Flip order. Flourish type hint: boolean, defaults to `NULL`
#' @param gauge_name_size Size. Choices: 1, 1.5, 2, custom. In rems, a multiple of the pages base font size. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_size_custom Custom. In rems, a multiple of the pages base font size. Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param gauge_name_styling Change styling. Flourish type hint: boolean, defaults to `NULL`
#' @param gauge_name_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_color Color. Choices: gauge, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_color_custom Flourish type hint: color, defaults to `NULL`
#' @param gauge_name_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param gauge_name_space_below Space below. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_space_below_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param gauge_value_size Size. Choices: 1, 1.5, 2, custom. In rems, a multiple of the pages base font size. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_size_custom Custom. In rems, a multiple of the pages base font size. Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param gauge_value_styling Change styling. Flourish type hint: boolean, defaults to `NULL`
#' @param gauge_value_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_color Color. Choices: gauge, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_color_custom Flourish type hint: color, defaults to `NULL`
#' @param gauge_value_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param gauge_value_space_below Space below. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_space_below_custom Custom. Flourish type hint: number, 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_filter_controls_container_alignment Alignment. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_container_controls_spacing Spacing. The space between controls, like dropdowns and adjacent button sets, in em units. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_control_type Control type. Choices: dropdown, buttons, slider. Choose between a dropdown, buttons or a time slider Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_control_styles Adv. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_filter_controls_control_title Control title. Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_button_group Grouped. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_filter_controls_button_group_width_mode Button group width. Choices: auto, full, fixed. Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_button_group_width_fixed Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_dropdown_width_mode Dropdown width. Choices: auto, full, fixed. Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_dropdown_width_fixed Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_slider_width Slider width. Width of the slider track in rems Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_slider_max_label_width Max label width. In rems, multiples of base font size. If larger than the longest label, only the space required to fit labels will be used. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_slider_step_time Time between steps. Measured in seconds, positive values move the slider left to right, negative values move the slider right to left. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_slider_loop Loop. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_filter_controls_slider_restart_pause Pause before loop. Measured in seconds and in addition to the regular step time displayed above. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_sort Sorting. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_controls_style_font_size Text size. Flourish type hint: number, defaults to `NULL`
#' @param chart_controls_style_font_weight Text weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_controls_style_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_dropdown_control_style_background Background. Flourish type hint: color, defaults to `NULL`
#' @param chart_dropdown_control_style_font_color Text color. Flourish type hint: color, defaults to `NULL`
#' @param chart_dropdown_control_style_border_styles_advanced Dropdown border styles. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_dropdown_control_style_border_style Border style. Choices: all, bottom. Show border on all sides, or only at the bottom. Flourish type hint: string, defaults to `NULL`
#' @param chart_dropdown_control_style_border_width Border width. Flourish type hint: number, defaults to `NULL`
#' @param chart_dropdown_control_style_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_dropdown_control_style_border_transparency Transparency. Flourish type hint: number, defaults to `NULL`
#' @param chart_dropdown_control_style_border_radius Radius. Flourish type hint: number, defaults to `NULL`
#' @param chart_button_control_style_background Background. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_background_selected Selected. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_background_hover Mouse over. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_font_color Text color. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_font_color_selected Selected. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_font_color_hover Mouse over. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_button_styles_advanced Button border styles. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_button_control_style_border_width Border width. Flourish type hint: number, defaults to `NULL`
#' @param chart_button_control_style_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_border_transparency Transparency. Flourish type hint: number, defaults to `NULL`
#' @param chart_button_control_style_border_radius Radius. Flourish type hint: number, defaults to `NULL`
#' @param chart_slider_control_style_track_color Track. Flourish type hint: color, defaults to `NULL`
#' @param chart_slider_control_style_font_color Text. Flourish type hint: color, defaults to `NULL`
#' @param chart_slider_control_style_handle_color Handle. Flourish type hint: color, defaults to `NULL`
#' @param chart_slider_control_style_play_color Play/pause. Flourish type hint: color, defaults to `NULL`
#' @param chart_slider_control_style_track_height Track height. Flourish type hint: number, defaults to `NULL`
#' @param chart_slider_control_style_handle_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_slider_control_style_play_button Play button. Flourish type hint: boolean, 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 . 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 = "gauge", api_key = Sys.getenv("FLOURISH_API_KEY")) |>
#' bind_gauge_data(gapminder) |>
#' set_gauge_details()
#' )
#' @export
set_gauge_details <- function(
.,
gauge_radial_extent = NULL,
gauge_radial_extent_custom = NULL,
gauge_width = NULL,
gauge_width_custom = NULL,
gauge_scale_domain = NULL,
gauge_scale_domain_min = NULL,
gauge_scale_domain_max = NULL,
gauge_color = NULL,
gauge_opacity = NULL,
gauge_border_color = NULL,
gauge_border_size = NULL,
height_mode = NULL,
aspect_ratio = NULL,
aspect_ratio_custom = NULL,
add_aspect_ratio_mobile = NULL,
breakpoint = NULL,
aspect_ratio_mobile = NULL,
aspect_ratio_mobile_custom = NULL,
chart_facet_columns_fixed = NULL,
chart_facet_columns = NULL,
chart_facet_min_width = NULL,
chart_facet_min_width_fixed = NULL,
chart_facet_custom_grid = NULL,
chart_facet_custom_positions = NULL,
chart_facet_max_width = NULL,
chart_facet_gutter_w = NULL,
chart_facet_gutter_h = NULL,
chart_facet_animation = NULL,
chart_facet_titles = NULL,
chart_facet_title_align = NULL,
chart_facet_title_size = NULL,
chart_facet_title_unit = NULL,
chart_facet_title_color = NULL,
chart_facet_title_padding_top = NULL,
chart_facet_title_padding_bottom = NULL,
chart_facet_title_bg = NULL,
chart_facet_title_bg_color = NULL,
chart_facet_title_bg_padding = NULL,
segment_width = NULL,
segment_width_custom = NULL,
segment_number = NULL,
segment_fixed_number = NULL,
segment_custom = NULL,
segment_labels = NULL,
segment_label_size = NULL,
segment_label_size_custom = NULL,
segment_label_weight = NULL,
segment_label_rotation = NULL,
segment_label_color = NULL,
segment_label_padding = NULL,
color_type = 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,
ticks_mode = NULL,
ticks_number = NULL,
ticks_custom = NULL,
ticks_width = NULL,
ticks_color = NULL,
ticks_length = NULL,
ticks_length_custom = NULL,
ticks_animation = NULL,
ticks_animation_duration = NULL,
intermediate_ticks = NULL,
intermediate_ticks_number = NULL,
intermediate_ticks_width = NULL,
ticks_direction = NULL,
label_position = NULL,
ticks_label_padding = NULL,
ticks_label_color = NULL,
label_rotation = NULL,
label_flip = NULL,
ticks_label_size = NULL,
ticks_label_size_custom = NULL,
ticks_label_weight = NULL,
needle_size = NULL,
needle_size_custom = NULL,
needle_hand_length = NULL,
needle_hand_length_custom = NULL,
needle_color = NULL,
needle_color_custom = NULL,
needle_centre_size = NULL,
needle_centre_size_custom = NULL,
needle_centre_stroke_width = NULL,
needle_centre_stroke = NULL,
needle_animation = NULL,
needle_animation_duration = NULL,
jitter = NULL,
jitter_speed = NULL,
gauge_text_align = NULL,
gauge_text_position = NULL,
gauge_text_position_flip = NULL,
gauge_name_size = NULL,
gauge_name_size_custom = NULL,
gauge_name_styling = NULL,
gauge_name_weight = NULL,
gauge_name_color = NULL,
gauge_name_color_custom = NULL,
gauge_name_space_above = NULL,
gauge_name_space_above_custom = NULL,
gauge_name_space_below = NULL,
gauge_name_space_below_custom = NULL,
gauge_value_size = NULL,
gauge_value_size_custom = NULL,
gauge_value_styling = NULL,
gauge_value_weight = NULL,
gauge_value_color = NULL,
gauge_value_color_custom = NULL,
gauge_value_space_above = NULL,
gauge_value_space_above_custom = NULL,
gauge_value_space_below = NULL,
gauge_value_space_below_custom = 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_filter_controls_container_alignment = NULL,
chart_filter_controls_container_controls_spacing = NULL,
chart_filter_controls_control_type = NULL,
chart_filter_controls_control_styles = NULL,
chart_filter_controls_control_title = NULL,
chart_filter_controls_button_group = NULL,
chart_filter_controls_button_group_width_mode = NULL,
chart_filter_controls_button_group_width_fixed = NULL,
chart_filter_controls_dropdown_width_mode = NULL,
chart_filter_controls_dropdown_width_fixed = NULL,
chart_filter_controls_slider_width = NULL,
chart_filter_controls_slider_max_label_width = NULL,
chart_filter_controls_slider_step_time = NULL,
chart_filter_controls_slider_loop = NULL,
chart_filter_controls_slider_restart_pause = NULL,
chart_filter_controls_sort = NULL,
chart_controls_style_font_size = NULL,
chart_controls_style_font_weight = NULL,
chart_controls_style_height = NULL,
chart_dropdown_control_style_background = NULL,
chart_dropdown_control_style_font_color = NULL,
chart_dropdown_control_style_border_styles_advanced = NULL,
chart_dropdown_control_style_border_style = NULL,
chart_dropdown_control_style_border_width = NULL,
chart_dropdown_control_style_border_color = NULL,
chart_dropdown_control_style_border_transparency = NULL,
chart_dropdown_control_style_border_radius = NULL,
chart_button_control_style_background = NULL,
chart_button_control_style_background_selected = NULL,
chart_button_control_style_background_hover = NULL,
chart_button_control_style_font_color = NULL,
chart_button_control_style_font_color_selected = NULL,
chart_button_control_style_font_color_hover = NULL,
chart_button_control_style_button_styles_advanced = NULL,
chart_button_control_style_border_width = NULL,
chart_button_control_style_border_color = NULL,
chart_button_control_style_border_transparency = NULL,
chart_button_control_style_border_radius = NULL,
chart_slider_control_style_track_color = NULL,
chart_slider_control_style_font_color = NULL,
chart_slider_control_style_handle_color = NULL,
chart_slider_control_style_play_color = NULL,
chart_slider_control_style_track_height = NULL,
chart_slider_control_style_handle_height = NULL,
chart_slider_control_style_play_button = 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) {
details_error(., "gauge")
old_list <- .
new_list <- list()
if (isTRUE(old_list$x$template != "@flourish/gauge")) {
stop("`set_gauge_details()` is not supported for this chart type.")
}
list_gauge_radial_extent <- c("90", "180", "270", "custom", NULL)
if (!is.null(gauge_radial_extent)) {
if (!gauge_radial_extent %in% list_gauge_radial_extent) {
stop("`gauge_radial_extent` must be one of: c('90', '180', '270', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"90": "90", "180": "180", "270": "270", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"90": "90", "180": "180", "270": "270", "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 && gauge_radial_extent %in% names(named_list)) {
if (is.logical(gauge_radial_extent)) {
gauge_radial_extent <- as.character(gauge_radial_extent)
}
named_list_value <- unname(named_list[gauge_radial_extent])[[1]]
new_list$x$state$gauge_radial_extent <- named_list_value
}
}
}
}
new_list$x$state$gauge_radial_extent_custom <- gauge_radial_extent_custom
list_gauge_width <- c("1", "0.75", "0.5", "custom", NULL)
if (!is.null(gauge_width)) {
if (!gauge_width %in% list_gauge_width) {
stop("`gauge_width` must be one of: c('1', '0.75', '0.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "0.75": "0.75", "0.5": "0.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "0.75": "0.75", "0.5": "0.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 && gauge_width %in% names(named_list)) {
if (is.logical(gauge_width)) {
gauge_width <- as.character(gauge_width)
}
named_list_value <- unname(named_list[gauge_width])[[1]]
new_list$x$state$gauge_width <- named_list_value
}
}
}
}
new_list$x$state$gauge_width_custom <- gauge_width_custom
list_gauge_scale_domain <- c("auto", "custom", NULL)
if (!is.null(gauge_scale_domain)) {
if (!gauge_scale_domain %in% list_gauge_scale_domain) {
stop("`gauge_scale_domain` 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 && gauge_scale_domain %in% names(named_list)) {
if (is.logical(gauge_scale_domain)) {
gauge_scale_domain <- as.character(gauge_scale_domain)
}
named_list_value <- unname(named_list[gauge_scale_domain])[[1]]
new_list$x$state$gauge_scale_domain <- named_list_value
}
}
}
}
new_list$x$state$gauge_scale_domain_min <- gauge_scale_domain_min
new_list$x$state$gauge_scale_domain_max <- gauge_scale_domain_max
new_list$x$state$gauge_color <- gauge_color
new_list$x$state$gauge_opacity <- gauge_opacity
new_list$x$state$gauge_border_color <- gauge_border_color
new_list$x$state$gauge_border_size <- gauge_border_size
list_height_mode <- c("auto", "standard", "aspect", NULL)
if (!is.null(height_mode)) {
if (!height_mode %in% list_height_mode) {
stop("`height_mode` must be one of: c('auto', 'standard', 'aspect')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "standard": "standard", "aspect": "aspect"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "standard": "standard", "aspect": "aspect"}')
# 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 && height_mode %in% names(named_list)) {
if (is.logical(height_mode)) {
height_mode <- as.character(height_mode)
}
named_list_value <- unname(named_list[height_mode])[[1]]
new_list$x$state$height_mode <- named_list_value
}
}
}
}
list_aspect_ratio <- c("0.75", "1", "1.5", "custom", NULL)
if (!is.null(aspect_ratio)) {
if (!aspect_ratio %in% list_aspect_ratio) {
stop("`aspect_ratio` must be one of: c('0.75', '1', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.75": "0.75", "1": "1", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.75": "0.75", "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 && aspect_ratio %in% names(named_list)) {
if (is.logical(aspect_ratio)) {
aspect_ratio <- as.character(aspect_ratio)
}
named_list_value <- unname(named_list[aspect_ratio])[[1]]
new_list$x$state$aspect_ratio <- named_list_value
}
}
}
}
new_list$x$state$aspect_ratio_custom <- aspect_ratio_custom
list_add_aspect_ratio_mobile <- c("disabled", "enabled", NULL)
if (!is.null(add_aspect_ratio_mobile)) {
if (!add_aspect_ratio_mobile %in% list_add_aspect_ratio_mobile) {
stop("`add_aspect_ratio_mobile` must be one of: c('disabled', 'enabled')")
} else {
if (length(jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')) > 1) {
named_list <- jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')
# 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 && add_aspect_ratio_mobile %in% names(named_list)) {
if (is.logical(add_aspect_ratio_mobile)) {
add_aspect_ratio_mobile <- as.character(add_aspect_ratio_mobile)
}
named_list_value <- unname(named_list[add_aspect_ratio_mobile])[[1]]
new_list$x$state$add_aspect_ratio_mobile <- named_list_value
}
}
}
}
new_list$x$state$breakpoint <- breakpoint
list_aspect_ratio_mobile <- c("0.75", "1", "1.5", "custom", NULL)
if (!is.null(aspect_ratio_mobile)) {
if (!aspect_ratio_mobile %in% list_aspect_ratio_mobile) {
stop("`aspect_ratio_mobile` must be one of: c('0.75', '1', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.75": "0.75", "1": "1", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.75": "0.75", "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 && aspect_ratio_mobile %in% names(named_list)) {
if (is.logical(aspect_ratio_mobile)) {
aspect_ratio_mobile <- as.character(aspect_ratio_mobile)
}
named_list_value <- unname(named_list[aspect_ratio_mobile])[[1]]
new_list$x$state$aspect_ratio_mobile <- named_list_value
}
}
}
}
new_list$x$state$aspect_ratio_mobile_custom <- aspect_ratio_mobile_custom
list_chart_facet_columns_fixed <- c(FALSE, TRUE, NULL)
if (!is.null(chart_facet_columns_fixed)) {
if (!chart_facet_columns_fixed %in% list_chart_facet_columns_fixed) {
stop("`chart_facet_columns_fixed` 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_facet_columns_fixed %in% names(named_list)) {
if (is.logical(chart_facet_columns_fixed)) {
chart_facet_columns_fixed <- as.character(chart_facet_columns_fixed)
}
named_list_value <- unname(named_list[chart_facet_columns_fixed])[[1]]
new_list$x$state$facets$columns_fixed <- named_list_value
}
}
}
}
new_list$x$state$facets$columns <- chart_facet_columns
new_list$x$state$facets$min_width <- chart_facet_min_width
new_list$x$state$facets$min_width_fixed <- chart_facet_min_width_fixed
new_list$x$state$facets$custom_grid <- chart_facet_custom_grid
if (length(chart_facet_custom_positions) > 1) {
new_list$x$state$facets$custom_positions <- paste(chart_facet_custom_positions, collapse = "\n")
} else {
new_list$x$state$facets$custom_positions <- chart_facet_custom_positions
}
new_list$x$state$facets$max_width <- chart_facet_max_width
new_list$x$state$facets$gutter_w <- chart_facet_gutter_w
new_list$x$state$facets$gutter_h <- chart_facet_gutter_h
list_chart_facet_animation <- c("auto", "name", "reuse", NULL)
if (!is.null(chart_facet_animation)) {
if (!chart_facet_animation %in% list_chart_facet_animation) {
stop("`chart_facet_animation` must be one of: c('auto', 'name', 'reuse')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "name": "name", "reuse": "reuse"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "name": "name", "reuse": "reuse"}')
# 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_facet_animation %in% names(named_list)) {
if (is.logical(chart_facet_animation)) {
chart_facet_animation <- as.character(chart_facet_animation)
}
named_list_value <- unname(named_list[chart_facet_animation])[[1]]
new_list$x$state$facets$animation <- named_list_value
}
}
}
}
new_list$x$state$facets$titles <- chart_facet_titles
list_chart_facet_title_align <- c("auto", "left", "center", "right", NULL)
if (!is.null(chart_facet_title_align)) {
if (!chart_facet_title_align %in% list_chart_facet_title_align) {
stop("`chart_facet_title_align` must be one of: c('auto', 'left', 'center', 'right')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "left": "left", "center": "center", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "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_facet_title_align %in% names(named_list)) {
if (is.logical(chart_facet_title_align)) {
chart_facet_title_align <- as.character(chart_facet_title_align)
}
named_list_value <- unname(named_list[chart_facet_title_align])[[1]]
new_list$x$state$facets$title_align <- named_list_value
}
}
}
}
new_list$x$state$facets$title_size <- chart_facet_title_size
list_chart_facet_title_unit <- c("rem", "facet", NULL)
if (!is.null(chart_facet_title_unit)) {
if (!chart_facet_title_unit %in% list_chart_facet_title_unit) {
stop("`chart_facet_title_unit` must be one of: c('rem', 'facet')")
} else {
if (length(jsonlite::fromJSON('{"rem": "rem", "facet": "facet"}')) > 1) {
named_list <- jsonlite::fromJSON('{"rem": "rem", "facet": "facet"}')
# 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_facet_title_unit %in% names(named_list)) {
if (is.logical(chart_facet_title_unit)) {
chart_facet_title_unit <- as.character(chart_facet_title_unit)
}
named_list_value <- unname(named_list[chart_facet_title_unit])[[1]]
new_list$x$state$facets$title_unit <- named_list_value
}
}
}
}
new_list$x$state$facets$title_color <- chart_facet_title_color
new_list$x$state$facets$title_padding_top <- chart_facet_title_padding_top
new_list$x$state$facets$title_padding_bottom <- chart_facet_title_padding_bottom
list_chart_facet_title_bg <- c("none", "full", "text", NULL)
if (!is.null(chart_facet_title_bg)) {
if (!chart_facet_title_bg %in% list_chart_facet_title_bg) {
stop("`chart_facet_title_bg` must be one of: c('none', 'full', 'text')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "full": "full", "text": "text"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "full": "full", "text": "text"}')
# 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_facet_title_bg %in% names(named_list)) {
if (is.logical(chart_facet_title_bg)) {
chart_facet_title_bg <- as.character(chart_facet_title_bg)
}
named_list_value <- unname(named_list[chart_facet_title_bg])[[1]]
new_list$x$state$facets$title_bg <- named_list_value
}
}
}
}
new_list$x$state$facets$title_bg_color <- chart_facet_title_bg_color
new_list$x$state$facets$title_bg_padding <- chart_facet_title_bg_padding
list_segment_width <- c("0.1", "0.2", "1", "custom", NULL)
if (!is.null(segment_width)) {
if (!segment_width %in% list_segment_width) {
stop("`segment_width` must be one of: c('0.1', '0.2', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.1": "0.1", "0.2": "0.2", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.1": "0.1", "0.2": "0.2", "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 && segment_width %in% names(named_list)) {
if (is.logical(segment_width)) {
segment_width <- as.character(segment_width)
}
named_list_value <- unname(named_list[segment_width])[[1]]
new_list$x$state$segment_width <- named_list_value
}
}
}
}
new_list$x$state$segment_width_custom <- segment_width_custom
list_segment_number <- c("auto", "fixed", "custom", NULL)
if (!is.null(segment_number)) {
if (!segment_number %in% list_segment_number) {
stop("`segment_number` must be one of: c('auto', 'fixed', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "fixed": "fixed", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "fixed": "fixed", "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 && segment_number %in% names(named_list)) {
if (is.logical(segment_number)) {
segment_number <- as.character(segment_number)
}
named_list_value <- unname(named_list[segment_number])[[1]]
new_list$x$state$segment_number <- named_list_value
}
}
}
}
new_list$x$state$segment_fixed_number <- segment_fixed_number
if (length(segment_custom) > 1) {
new_list$x$state$segment_custom <- paste(segment_custom, collapse = "\n")
} else {
new_list$x$state$segment_custom <- segment_custom
}
if (length(segment_labels) > 1) {
new_list$x$state$segment_labels <- paste(segment_labels, collapse = "\n")
} else {
new_list$x$state$segment_labels <- segment_labels
}
list_segment_label_size <- c("auto", "0.8", "1", "1.2", "custom", NULL)
if (!is.null(segment_label_size)) {
if (!segment_label_size %in% list_segment_label_size) {
stop("`segment_label_size` must be one of: c('auto', '0.8', '1', '1.2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "0.8": "0.8", "1": "1", "1.2": "1.2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "0.8": "0.8", "1": "1", "1.2": "1.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 && segment_label_size %in% names(named_list)) {
if (is.logical(segment_label_size)) {
segment_label_size <- as.character(segment_label_size)
}
named_list_value <- unname(named_list[segment_label_size])[[1]]
new_list$x$state$segment_label_size <- named_list_value
}
}
}
}
new_list$x$state$segment_label_size_custom <- segment_label_size_custom
list_segment_label_weight <- c("bold", "normal", NULL)
if (!is.null(segment_label_weight)) {
if (!segment_label_weight %in% list_segment_label_weight) {
stop("`segment_label_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 && segment_label_weight %in% names(named_list)) {
if (is.logical(segment_label_weight)) {
segment_label_weight <- as.character(segment_label_weight)
}
named_list_value <- unname(named_list[segment_label_weight])[[1]]
new_list$x$state$segment_label_weight <- named_list_value
}
}
}
}
list_segment_label_rotation <- c("none", "ring", NULL)
if (!is.null(segment_label_rotation)) {
if (!segment_label_rotation %in% list_segment_label_rotation) {
stop("`segment_label_rotation` must be one of: c('none', 'ring')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "ring": "ring"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "ring": "ring"}')
# 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 && segment_label_rotation %in% names(named_list)) {
if (is.logical(segment_label_rotation)) {
segment_label_rotation <- as.character(segment_label_rotation)
}
named_list_value <- unname(named_list[segment_label_rotation])[[1]]
new_list$x$state$segment_label_rotation <- named_list_value
}
}
}
}
new_list$x$state$segment_label_color <- segment_label_color
new_list$x$state$segment_label_padding <- segment_label_padding
list_color_type <- c("categorical", "numeric", NULL)
if (!is.null(color_type)) {
if (!color_type %in% list_color_type) {
stop("`color_type` must be one of: c('categorical', 'numeric')")
} else {
if (length(jsonlite::fromJSON('{"categorical": "categorical", "numeric": "numeric"}')) > 1) {
named_list <- jsonlite::fromJSON('{"categorical": "categorical", "numeric": "numeric"}')
# 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 && color_type %in% names(named_list)) {
if (is.logical(color_type)) {
color_type <- as.character(color_type)
}
named_list_value <- unname(named_list[color_type])[[1]]
new_list$x$state$color_type <- named_list_value
}
}
}
}
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_ticks_mode <- c("none", "auto", "number", "custom", NULL)
if (!is.null(ticks_mode)) {
if (!ticks_mode %in% list_ticks_mode) {
stop("`ticks_mode` must be one of: c('none', 'auto', 'number', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "auto": "auto", "number": "number", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "auto": "auto", "number": "number", "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 && ticks_mode %in% names(named_list)) {
if (is.logical(ticks_mode)) {
ticks_mode <- as.character(ticks_mode)
}
named_list_value <- unname(named_list[ticks_mode])[[1]]
new_list$x$state$ticks_mode <- named_list_value
}
}
}
}
new_list$x$state$ticks_number <- ticks_number
if (length(ticks_custom) > 1) {
new_list$x$state$ticks_custom <- paste(ticks_custom, collapse = "\n")
} else {
new_list$x$state$ticks_custom <- ticks_custom
}
new_list$x$state$ticks_width <- ticks_width
new_list$x$state$ticks_color <- ticks_color
list_ticks_length <- c("0.1", "0.2", "0.3", "custom", NULL)
if (!is.null(ticks_length)) {
if (!ticks_length %in% list_ticks_length) {
stop("`ticks_length` must be one of: c('0.1', '0.2', '0.3', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.1": "0.1", "0.2": "0.2", "0.3": "0.3", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.1": "0.1", "0.2": "0.2", "0.3": "0.3", "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 && ticks_length %in% names(named_list)) {
if (is.logical(ticks_length)) {
ticks_length <- as.character(ticks_length)
}
named_list_value <- unname(named_list[ticks_length])[[1]]
new_list$x$state$ticks_length <- named_list_value
}
}
}
}
new_list$x$state$ticks_length_custom <- ticks_length_custom
list_ticks_animation <- c("disabled", "enabled", NULL)
if (!is.null(ticks_animation)) {
if (!ticks_animation %in% list_ticks_animation) {
stop("`ticks_animation` must be one of: c('disabled', 'enabled')")
} else {
if (length(jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')) > 1) {
named_list <- jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')
# 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 && ticks_animation %in% names(named_list)) {
if (is.logical(ticks_animation)) {
ticks_animation <- as.character(ticks_animation)
}
named_list_value <- unname(named_list[ticks_animation])[[1]]
new_list$x$state$ticks_animation <- named_list_value
}
}
}
}
new_list$x$state$ticks_animation_duration <- ticks_animation_duration
list_intermediate_ticks <- c("off", "on", NULL)
if (!is.null(intermediate_ticks)) {
if (!intermediate_ticks %in% list_intermediate_ticks) {
stop("`intermediate_ticks` must be one of: c('off', 'on')")
} else {
if (length(jsonlite::fromJSON('{"off": "off", "on": "on"}')) > 1) {
named_list <- jsonlite::fromJSON('{"off": "off", "on": "on"}')
# 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 && intermediate_ticks %in% names(named_list)) {
if (is.logical(intermediate_ticks)) {
intermediate_ticks <- as.character(intermediate_ticks)
}
named_list_value <- unname(named_list[intermediate_ticks])[[1]]
new_list$x$state$intermediate_ticks <- named_list_value
}
}
}
}
new_list$x$state$intermediate_ticks_number <- intermediate_ticks_number
new_list$x$state$intermediate_ticks_width <- intermediate_ticks_width
list_ticks_direction <- c("inwards", "outwards", NULL)
if (!is.null(ticks_direction)) {
if (!ticks_direction %in% list_ticks_direction) {
stop("`ticks_direction` must be one of: c('inwards', 'outwards')")
} else {
if (length(jsonlite::fromJSON('{"inwards": "inwards", "outwards": "outwards"}')) > 1) {
named_list <- jsonlite::fromJSON('{"inwards": "inwards", "outwards": "outwards"}')
# 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 && ticks_direction %in% names(named_list)) {
if (is.logical(ticks_direction)) {
ticks_direction <- as.character(ticks_direction)
}
named_list_value <- unname(named_list[ticks_direction])[[1]]
new_list$x$state$ticks_direction <- named_list_value
}
}
}
}
list_label_position <- c("inside", "outside", NULL)
if (!is.null(label_position)) {
if (!label_position %in% list_label_position) {
stop("`label_position` 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 && label_position %in% names(named_list)) {
if (is.logical(label_position)) {
label_position <- as.character(label_position)
}
named_list_value <- unname(named_list[label_position])[[1]]
new_list$x$state$label_position <- named_list_value
}
}
}
}
new_list$x$state$ticks_label_padding <- ticks_label_padding
new_list$x$state$ticks_label_color <- ticks_label_color
list_label_rotation <- c("none", "auto", "ring", NULL)
if (!is.null(label_rotation)) {
if (!label_rotation %in% list_label_rotation) {
stop("`label_rotation` must be one of: c('none', 'auto', 'ring')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "auto": "auto", "ring": "ring"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "auto": "auto", "ring": "ring"}')
# 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 && label_rotation %in% names(named_list)) {
if (is.logical(label_rotation)) {
label_rotation <- as.character(label_rotation)
}
named_list_value <- unname(named_list[label_rotation])[[1]]
new_list$x$state$label_rotation <- named_list_value
}
}
}
}
new_list$x$state$label_flip <- label_flip
list_ticks_label_size <- c("1", "1.5", "2", "custom", NULL)
if (!is.null(ticks_label_size)) {
if (!ticks_label_size %in% list_ticks_label_size) {
stop("`ticks_label_size` must be one of: c('1', '1.5', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "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 && ticks_label_size %in% names(named_list)) {
if (is.logical(ticks_label_size)) {
ticks_label_size <- as.character(ticks_label_size)
}
named_list_value <- unname(named_list[ticks_label_size])[[1]]
new_list$x$state$ticks_label_size <- named_list_value
}
}
}
}
new_list$x$state$ticks_label_size_custom <- ticks_label_size_custom
list_ticks_label_weight <- c("bold", "normal", NULL)
if (!is.null(ticks_label_weight)) {
if (!ticks_label_weight %in% list_ticks_label_weight) {
stop("`ticks_label_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 && ticks_label_weight %in% names(named_list)) {
if (is.logical(ticks_label_weight)) {
ticks_label_weight <- as.character(ticks_label_weight)
}
named_list_value <- unname(named_list[ticks_label_weight])[[1]]
new_list$x$state$ticks_label_weight <- named_list_value
}
}
}
}
list_needle_size <- c("0.03", "0.06", "0.09", "custom", NULL)
if (!is.null(needle_size)) {
if (!needle_size %in% list_needle_size) {
stop("`needle_size` must be one of: c('0.03', '0.06', '0.09', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.03": "0.03", "0.06": "0.06", "0.09": "0.09", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.03": "0.03", "0.06": "0.06", "0.09": "0.09", "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 && needle_size %in% names(named_list)) {
if (is.logical(needle_size)) {
needle_size <- as.character(needle_size)
}
named_list_value <- unname(named_list[needle_size])[[1]]
new_list$x$state$needle_size <- named_list_value
}
}
}
}
new_list$x$state$needle_size_custom <- needle_size_custom
list_needle_hand_length <- c("0.5", "0.75", "1", "custom", NULL)
if (!is.null(needle_hand_length)) {
if (!needle_hand_length %in% list_needle_hand_length) {
stop("`needle_hand_length` must be one of: c('0.5', '0.75', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.5": "0.5", "0.75": "0.75", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.5": "0.5", "0.75": "0.75", "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 && needle_hand_length %in% names(named_list)) {
if (is.logical(needle_hand_length)) {
needle_hand_length <- as.character(needle_hand_length)
}
named_list_value <- unname(named_list[needle_hand_length])[[1]]
new_list$x$state$needle_hand_length <- named_list_value
}
}
}
}
new_list$x$state$needle_hand_length_custom <- needle_hand_length_custom
list_needle_color <- c("gauge", "custom", NULL)
if (!is.null(needle_color)) {
if (!needle_color %in% list_needle_color) {
stop("`needle_color` must be one of: c('gauge', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"gauge": "gauge", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"gauge": "gauge", "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 && needle_color %in% names(named_list)) {
if (is.logical(needle_color)) {
needle_color <- as.character(needle_color)
}
named_list_value <- unname(named_list[needle_color])[[1]]
new_list$x$state$needle_color <- named_list_value
}
}
}
}
new_list$x$state$needle_color_custom <- needle_color_custom
list_needle_centre_size <- c("0.5", "1", "1.5", "custom", NULL)
if (!is.null(needle_centre_size)) {
if (!needle_centre_size %in% list_needle_centre_size) {
stop("`needle_centre_size` 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 && needle_centre_size %in% names(named_list)) {
if (is.logical(needle_centre_size)) {
needle_centre_size <- as.character(needle_centre_size)
}
named_list_value <- unname(named_list[needle_centre_size])[[1]]
new_list$x$state$needle_centre_size <- named_list_value
}
}
}
}
new_list$x$state$needle_centre_size_custom <- needle_centre_size_custom
new_list$x$state$needle_centre_stroke_width <- needle_centre_stroke_width
new_list$x$state$needle_centre_stroke <- needle_centre_stroke
list_needle_animation <- c("disabled", "enabled", NULL)
if (!is.null(needle_animation)) {
if (!needle_animation %in% list_needle_animation) {
stop("`needle_animation` must be one of: c('disabled', 'enabled')")
} else {
if (length(jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')) > 1) {
named_list <- jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')
# 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 && needle_animation %in% names(named_list)) {
if (is.logical(needle_animation)) {
needle_animation <- as.character(needle_animation)
}
named_list_value <- unname(named_list[needle_animation])[[1]]
new_list$x$state$needle_animation <- named_list_value
}
}
}
}
new_list$x$state$needle_animation_duration <- needle_animation_duration
list_jitter <- c("none", "low", "medium", "high", NULL)
if (!is.null(jitter)) {
if (!jitter %in% list_jitter) {
stop("`jitter` must be one of: c('none', 'low', 'medium', 'high')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "low": "low", "medium": "medium", "high": "high"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "low": "low", "medium": "medium", "high": "high"}')
# 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 && jitter %in% names(named_list)) {
if (is.logical(jitter)) {
jitter <- as.character(jitter)
}
named_list_value <- unname(named_list[jitter])[[1]]
new_list$x$state$jitter <- named_list_value
}
}
}
}
new_list$x$state$jitter_speed <- jitter_speed
list_gauge_text_align <- c("start", "middle", "end", NULL)
if (!is.null(gauge_text_align)) {
if (!gauge_text_align %in% list_gauge_text_align) {
stop("`gauge_text_align` must be one of: c('start', 'middle', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "middle": "middle", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "middle": "middle", "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 && gauge_text_align %in% names(named_list)) {
if (is.logical(gauge_text_align)) {
gauge_text_align <- as.character(gauge_text_align)
}
named_list_value <- unname(named_list[gauge_text_align])[[1]]
new_list$x$state$gauge_text_align <- named_list_value
}
}
}
}
list_gauge_text_position <- c("above", "below", "split", NULL)
if (!is.null(gauge_text_position)) {
if (!gauge_text_position %in% list_gauge_text_position) {
stop("`gauge_text_position` must be one of: c('above', 'below', 'split')")
} else {
if (length(jsonlite::fromJSON('{"above": "above", "below": "below", "split": "split"}')) > 1) {
named_list <- jsonlite::fromJSON('{"above": "above", "below": "below", "split": "split"}')
# 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 && gauge_text_position %in% names(named_list)) {
if (is.logical(gauge_text_position)) {
gauge_text_position <- as.character(gauge_text_position)
}
named_list_value <- unname(named_list[gauge_text_position])[[1]]
new_list$x$state$gauge_text_position <- named_list_value
}
}
}
}
new_list$x$state$gauge_text_position_flip <- gauge_text_position_flip
list_gauge_name_size <- c("1", "1.5", "2", "custom", NULL)
if (!is.null(gauge_name_size)) {
if (!gauge_name_size %in% list_gauge_name_size) {
stop("`gauge_name_size` must be one of: c('1', '1.5', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "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 && gauge_name_size %in% names(named_list)) {
if (is.logical(gauge_name_size)) {
gauge_name_size <- as.character(gauge_name_size)
}
named_list_value <- unname(named_list[gauge_name_size])[[1]]
new_list$x$state$gauge_name_size <- named_list_value
}
}
}
}
new_list$x$state$gauge_name_size_custom <- gauge_name_size_custom
new_list$x$state$gauge_name_styling <- gauge_name_styling
list_gauge_name_weight <- c("bold", "normal", NULL)
if (!is.null(gauge_name_weight)) {
if (!gauge_name_weight %in% list_gauge_name_weight) {
stop("`gauge_name_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 && gauge_name_weight %in% names(named_list)) {
if (is.logical(gauge_name_weight)) {
gauge_name_weight <- as.character(gauge_name_weight)
}
named_list_value <- unname(named_list[gauge_name_weight])[[1]]
new_list$x$state$gauge_name_weight <- named_list_value
}
}
}
}
list_gauge_name_color <- c("gauge", "custom", NULL)
if (!is.null(gauge_name_color)) {
if (!gauge_name_color %in% list_gauge_name_color) {
stop("`gauge_name_color` must be one of: c('gauge', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"gauge": "gauge", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"gauge": "gauge", "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 && gauge_name_color %in% names(named_list)) {
if (is.logical(gauge_name_color)) {
gauge_name_color <- as.character(gauge_name_color)
}
named_list_value <- unname(named_list[gauge_name_color])[[1]]
new_list$x$state$gauge_name_color <- named_list_value
}
}
}
}
new_list$x$state$gauge_name_color_custom <- gauge_name_color_custom
list_gauge_name_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(gauge_name_space_above)) {
if (!gauge_name_space_above %in% list_gauge_name_space_above) {
stop("`gauge_name_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 && gauge_name_space_above %in% names(named_list)) {
if (is.logical(gauge_name_space_above)) {
gauge_name_space_above <- as.character(gauge_name_space_above)
}
named_list_value <- unname(named_list[gauge_name_space_above])[[1]]
new_list$x$state$gauge_name_space_above <- named_list_value
}
}
}
}
new_list$x$state$gauge_name_space_above_custom <- gauge_name_space_above_custom
list_gauge_name_space_below <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(gauge_name_space_below)) {
if (!gauge_name_space_below %in% list_gauge_name_space_below) {
stop("`gauge_name_space_below` 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 && gauge_name_space_below %in% names(named_list)) {
if (is.logical(gauge_name_space_below)) {
gauge_name_space_below <- as.character(gauge_name_space_below)
}
named_list_value <- unname(named_list[gauge_name_space_below])[[1]]
new_list$x$state$gauge_name_space_below <- named_list_value
}
}
}
}
new_list$x$state$gauge_name_space_below_custom <- gauge_name_space_below_custom
list_gauge_value_size <- c("1", "1.5", "2", "custom", NULL)
if (!is.null(gauge_value_size)) {
if (!gauge_value_size %in% list_gauge_value_size) {
stop("`gauge_value_size` must be one of: c('1', '1.5', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "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 && gauge_value_size %in% names(named_list)) {
if (is.logical(gauge_value_size)) {
gauge_value_size <- as.character(gauge_value_size)
}
named_list_value <- unname(named_list[gauge_value_size])[[1]]
new_list$x$state$gauge_value_size <- named_list_value
}
}
}
}
new_list$x$state$gauge_value_size_custom <- gauge_value_size_custom
new_list$x$state$gauge_value_styling <- gauge_value_styling
list_gauge_value_weight <- c("bold", "normal", NULL)
if (!is.null(gauge_value_weight)) {
if (!gauge_value_weight %in% list_gauge_value_weight) {
stop("`gauge_value_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 && gauge_value_weight %in% names(named_list)) {
if (is.logical(gauge_value_weight)) {
gauge_value_weight <- as.character(gauge_value_weight)
}
named_list_value <- unname(named_list[gauge_value_weight])[[1]]
new_list$x$state$gauge_value_weight <- named_list_value
}
}
}
}
list_gauge_value_color <- c("gauge", "custom", NULL)
if (!is.null(gauge_value_color)) {
if (!gauge_value_color %in% list_gauge_value_color) {
stop("`gauge_value_color` must be one of: c('gauge', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"gauge": "gauge", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"gauge": "gauge", "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 && gauge_value_color %in% names(named_list)) {
if (is.logical(gauge_value_color)) {
gauge_value_color <- as.character(gauge_value_color)
}
named_list_value <- unname(named_list[gauge_value_color])[[1]]
new_list$x$state$gauge_value_color <- named_list_value
}
}
}
}
new_list$x$state$gauge_value_color_custom <- gauge_value_color_custom
list_gauge_value_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(gauge_value_space_above)) {
if (!gauge_value_space_above %in% list_gauge_value_space_above) {
stop("`gauge_value_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 && gauge_value_space_above %in% names(named_list)) {
if (is.logical(gauge_value_space_above)) {
gauge_value_space_above <- as.character(gauge_value_space_above)
}
named_list_value <- unname(named_list[gauge_value_space_above])[[1]]
new_list$x$state$gauge_value_space_above <- named_list_value
}
}
}
}
new_list$x$state$gauge_value_space_above_custom <- gauge_value_space_above_custom
list_gauge_value_space_below <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(gauge_value_space_below)) {
if (!gauge_value_space_below %in% list_gauge_value_space_below) {
stop("`gauge_value_space_below` 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 && gauge_value_space_below %in% names(named_list)) {
if (is.logical(gauge_value_space_below)) {
gauge_value_space_below <- as.character(gauge_value_space_below)
}
named_list_value <- unname(named_list[gauge_value_space_below])[[1]]
new_list$x$state$gauge_value_space_below <- named_list_value
}
}
}
}
new_list$x$state$gauge_value_space_below_custom <- gauge_value_space_below_custom
new_list$x$state$formatting$prefix <- chart_number_date_format_prefix
new_list$x$state$formatting$suffix <- chart_number_date_format_suffix
new_list$x$state$formatting$n_dec <- chart_number_date_format_n_dec
new_list$x$state$formatting$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$formatting$negative_sign <- named_list_value
}
}
}
}
new_list$x$state$formatting$strip_zeros <- chart_number_date_format_strip_zeros
new_list$x$state$formatting$strip_separator <- chart_number_date_format_strip_separator
new_list$x$state$formatting$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$formatting$transform <- named_list_value
}
}
}
}
new_list$x$state$formatting$multiply_divide_constant <- chart_number_date_format_multiply_divide_constant
new_list$x$state$formatting$exponentiate_constant <- chart_number_date_format_exponentiate_constant
list_chart_filter_controls_container_alignment <- c("start", "center", "end", NULL)
if (!is.null(chart_filter_controls_container_alignment)) {
if (!chart_filter_controls_container_alignment %in% list_chart_filter_controls_container_alignment) {
stop("`chart_filter_controls_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_filter_controls_container_alignment %in% names(named_list)) {
if (is.logical(chart_filter_controls_container_alignment)) {
chart_filter_controls_container_alignment <- as.character(chart_filter_controls_container_alignment)
}
named_list_value <- unname(named_list[chart_filter_controls_container_alignment])[[1]]
new_list$x$state$controls_container$alignment <- named_list_value
}
}
}
}
new_list$x$state$controls_container$controls_spacing <- chart_filter_controls_container_controls_spacing
list_chart_filter_controls_control_type <- c("dropdown", "buttons", "slider", NULL)
if (!is.null(chart_filter_controls_control_type)) {
if (!chart_filter_controls_control_type %in% list_chart_filter_controls_control_type) {
stop("`chart_filter_controls_control_type` must be one of: c('dropdown', 'buttons', 'slider')")
} else {
if (length(jsonlite::fromJSON('{"dropdown": "dropdown", "buttons": "buttons", "slider": "slider"}')) > 1) {
named_list <- jsonlite::fromJSON('{"dropdown": "dropdown", "buttons": "buttons", "slider": "slider"}')
# 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_filter_controls_control_type %in% names(named_list)) {
if (is.logical(chart_filter_controls_control_type)) {
chart_filter_controls_control_type <- as.character(chart_filter_controls_control_type)
}
named_list_value <- unname(named_list[chart_filter_controls_control_type])[[1]]
new_list$x$state$controls$control_type <- named_list_value
}
}
}
}
new_list$x$state$controls$control_styles <- chart_filter_controls_control_styles
new_list$x$state$controls$control_title <- chart_filter_controls_control_title
list_chart_filter_controls_button_group <- c(TRUE, FALSE, NULL)
if (!is.null(chart_filter_controls_button_group)) {
if (!chart_filter_controls_button_group %in% list_chart_filter_controls_button_group) {
stop("`chart_filter_controls_button_group` 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_filter_controls_button_group %in% names(named_list)) {
if (is.logical(chart_filter_controls_button_group)) {
chart_filter_controls_button_group <- as.character(chart_filter_controls_button_group)
}
named_list_value <- unname(named_list[chart_filter_controls_button_group])[[1]]
new_list$x$state$controls$button_group <- named_list_value
}
}
}
}
list_chart_filter_controls_button_group_width_mode <- c("auto", "full", "fixed", NULL)
if (!is.null(chart_filter_controls_button_group_width_mode)) {
if (!chart_filter_controls_button_group_width_mode %in% list_chart_filter_controls_button_group_width_mode) {
stop("`chart_filter_controls_button_group_width_mode` must be one of: c('auto', 'full', 'fixed')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "full": "full", "fixed": "fixed"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "full": "full", "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 && chart_filter_controls_button_group_width_mode %in% names(named_list)) {
if (is.logical(chart_filter_controls_button_group_width_mode)) {
chart_filter_controls_button_group_width_mode <- as.character(chart_filter_controls_button_group_width_mode)
}
named_list_value <- unname(named_list[chart_filter_controls_button_group_width_mode])[[1]]
new_list$x$state$controls$button_group_width_mode <- named_list_value
}
}
}
}
new_list$x$state$controls$button_group_width_fixed <- chart_filter_controls_button_group_width_fixed
list_chart_filter_controls_dropdown_width_mode <- c("auto", "full", "fixed", NULL)
if (!is.null(chart_filter_controls_dropdown_width_mode)) {
if (!chart_filter_controls_dropdown_width_mode %in% list_chart_filter_controls_dropdown_width_mode) {
stop("`chart_filter_controls_dropdown_width_mode` must be one of: c('auto', 'full', 'fixed')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "full": "full", "fixed": "fixed"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "full": "full", "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 && chart_filter_controls_dropdown_width_mode %in% names(named_list)) {
if (is.logical(chart_filter_controls_dropdown_width_mode)) {
chart_filter_controls_dropdown_width_mode <- as.character(chart_filter_controls_dropdown_width_mode)
}
named_list_value <- unname(named_list[chart_filter_controls_dropdown_width_mode])[[1]]
new_list$x$state$controls$dropdown_width_mode <- named_list_value
}
}
}
}
new_list$x$state$controls$dropdown_width_fixed <- chart_filter_controls_dropdown_width_fixed
new_list$x$state$controls$slider_width <- chart_filter_controls_slider_width
new_list$x$state$controls$slider_max_label_width <- chart_filter_controls_slider_max_label_width
new_list$x$state$controls$slider_step_time <- chart_filter_controls_slider_step_time
new_list$x$state$controls$slider_loop <- chart_filter_controls_slider_loop
new_list$x$state$controls$slider_restart_pause <- chart_filter_controls_slider_restart_pause
list_chart_filter_controls_sort <- c(TRUE, FALSE, NULL)
if (!is.null(chart_filter_controls_sort)) {
if (!chart_filter_controls_sort %in% list_chart_filter_controls_sort) {
stop("`chart_filter_controls_sort` 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_filter_controls_sort %in% names(named_list)) {
if (is.logical(chart_filter_controls_sort)) {
chart_filter_controls_sort <- as.character(chart_filter_controls_sort)
}
named_list_value <- unname(named_list[chart_filter_controls_sort])[[1]]
new_list$x$state$controls$sort <- named_list_value
}
}
}
}
new_list$x$state$controls_style$font_size <- chart_controls_style_font_size
list_chart_controls_style_font_weight <- c("bold", "normal", NULL)
if (!is.null(chart_controls_style_font_weight)) {
if (!chart_controls_style_font_weight %in% list_chart_controls_style_font_weight) {
stop("`chart_controls_style_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 && chart_controls_style_font_weight %in% names(named_list)) {
if (is.logical(chart_controls_style_font_weight)) {
chart_controls_style_font_weight <- as.character(chart_controls_style_font_weight)
}
named_list_value <- unname(named_list[chart_controls_style_font_weight])[[1]]
new_list$x$state$controls_style$font_weight <- named_list_value
}
}
}
}
new_list$x$state$controls_style$height <- chart_controls_style_height
new_list$x$state$dropdown_style$background <- chart_dropdown_control_style_background
new_list$x$state$dropdown_style$font_color <- chart_dropdown_control_style_font_color
new_list$x$state$dropdown_style$border_styles_advanced <- chart_dropdown_control_style_border_styles_advanced
list_chart_dropdown_control_style_border_style <- c("all", "bottom", NULL)
if (!is.null(chart_dropdown_control_style_border_style)) {
if (!chart_dropdown_control_style_border_style %in% list_chart_dropdown_control_style_border_style) {
stop("`chart_dropdown_control_style_border_style` must be one of: c('all', 'bottom')")
} else {
if (length(jsonlite::fromJSON('{"all": "all", "bottom": "bottom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"all": "all", "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 && chart_dropdown_control_style_border_style %in% names(named_list)) {
if (is.logical(chart_dropdown_control_style_border_style)) {
chart_dropdown_control_style_border_style <- as.character(chart_dropdown_control_style_border_style)
}
named_list_value <- unname(named_list[chart_dropdown_control_style_border_style])[[1]]
new_list$x$state$dropdown_style$border_style <- named_list_value
}
}
}
}
new_list$x$state$dropdown_style$border_width <- chart_dropdown_control_style_border_width
new_list$x$state$dropdown_style$border_color <- chart_dropdown_control_style_border_color
new_list$x$state$dropdown_style$border_transparency <- chart_dropdown_control_style_border_transparency
new_list$x$state$dropdown_style$border_radius <- chart_dropdown_control_style_border_radius
new_list$x$state$button_style$background <- chart_button_control_style_background
new_list$x$state$button_style$background_selected <- chart_button_control_style_background_selected
new_list$x$state$button_style$background_hover <- chart_button_control_style_background_hover
new_list$x$state$button_style$font_color <- chart_button_control_style_font_color
new_list$x$state$button_style$font_color_selected <- chart_button_control_style_font_color_selected
new_list$x$state$button_style$font_color_hover <- chart_button_control_style_font_color_hover
new_list$x$state$button_style$button_styles_advanced <- chart_button_control_style_button_styles_advanced
new_list$x$state$button_style$border_width <- chart_button_control_style_border_width
new_list$x$state$button_style$border_color <- chart_button_control_style_border_color
new_list$x$state$button_style$border_transparency <- chart_button_control_style_border_transparency
new_list$x$state$button_style$border_radius <- chart_button_control_style_border_radius
new_list$x$state$slider_style$track_color <- chart_slider_control_style_track_color
new_list$x$state$slider_style$font_color <- chart_slider_control_style_font_color
new_list$x$state$slider_style$handle_color <- chart_slider_control_style_handle_color
new_list$x$state$slider_style$play_color <- chart_slider_control_style_play_color
new_list$x$state$slider_style$track_height <- chart_slider_control_style_track_height
new_list$x$state$slider_style$handle_height <- chart_slider_control_style_handle_height
new_list$x$state$slider_style$play_button <- chart_slider_control_style_play_button
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
}
}
}
}
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_gauge_details
Documented in set_gauge_details
#' Set gauge chart details
#' @name set_gauge_details
#' @param gauge_radial_extent Shape. Choices: 90, 180, 270, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_radial_extent_custom Angle. Flourish type hint: number, defaults to `NULL`
#' @param gauge_width Inner radius. Choices: 1, 0.75, 0.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_width_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param gauge_scale_domain Range. Choices: auto, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_scale_domain_min Min. Flourish type hint: number, defaults to `NULL`
#' @param gauge_scale_domain_max Max. Flourish type hint: number, defaults to `NULL`
#' @param gauge_color Color. Flourish type hint: color, defaults to `NULL`
#' @param gauge_opacity Opacity. Flourish type hint: number, defaults to `NULL`
#' @param gauge_border_color Border. Flourish type hint: color, defaults to `NULL`
#' @param gauge_border_size Border size. Flourish type hint: number, defaults to `NULL`
#' @param height_mode Height mode. Choices: auto, standard, aspect. Auto: sets the height based on the chart type, data and width. Standard: default Flourish responsive sizing. Aspect ratio: sets the aspect of each plot. This setting is ignored when embedded in a fixed-height context, such as a simple Iframe embedFlourish type hint: string, defaults to `NULL`
#' @param aspect_ratio Aspect ratio. Choices: 0.75, 1, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param aspect_ratio_custom Custom. 1 is square, above 1 is wider, and below 1 is taller. Flourish type hint: number, defaults to `NULL`
#' @param add_aspect_ratio_mobile Mobile aspect ratio. Choices: disabled, enabled. Flourish type hint: string, defaults to `NULL`
#' @param breakpoint Breakpoint. The width at which mobile mode ends and desktop begins. Flourish type hint: number, defaults to `NULL`
#' @param aspect_ratio_mobile Mobile aspect ratio. Choices: 0.75, 1, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param aspect_ratio_mobile_custom Custom. 1 is square, above 1 is wider, and below 1 is taller. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_columns_fixed Grid mode. Choices: `FALSE`, `TRUE`. In Auto mode, the number of columns will change with screen size. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_facet_columns Columns. The number of columns in the grid. (If specifying custom positions, extra columns may be added automatically.). Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_min_width Min gauge width. Determines the minimum size (in pixels) at which each gauge will appear. Ignored if you specify a fixed number of columns. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_min_width_fixed Min chart width. Specify the minimum width of a chart or cell in the grid, below which the Fixed grid will be ignored and it will fall back to responsive Auto mode. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_custom_grid Add custom positions. Specify positions for individual charts in the grid useful for making a map layout. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_facet_custom_positions Custom positions. Enter the name of a facet, one per line, using the format: Facet name: row, column where row and column are numbers indicating the grid position where a facet should be positioned. For example, Alaska : 1, 1 Maine : 1, 11 Wisconsin : 2, 6 Flourish type hint: text, defaults to `NULL`
#' @param chart_facet_max_width Max gauge width. Determines the maximum size (in pixels) at which each gauge will appear. Ignored if you specify a fixed number of columns. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_gutter_w Horizontal margin. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_gutter_h Vertical margin. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_animation On data change. Choices: auto, name, reuse. If a chart in the grid is removed, that cell can either be animated out (with another cell moving to take its place) or reused for the new data in that cell. Auto decides for you based on the data. Flourish type hint: string, defaults to `NULL`
#' @param chart_facet_titles Show titles. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_facet_title_align Alignment. Choices: auto, left, center, right. Flourish type hint: string, defaults to `NULL`
#' @param chart_facet_title_size Size. Relative to the width of the chart. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_title_unit Scale with chart. Choices: rem, facet. Flourish type hint: string, defaults to `NULL`
#' @param chart_facet_title_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_facet_title_padding_top Space above. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_title_padding_bottom Space below. Flourish type hint: number, defaults to `NULL`
#' @param chart_facet_title_bg Background. Choices: none, full, text. Flourish type hint: string, defaults to `NULL`
#' @param chart_facet_title_bg_color Background color. Flourish type hint: color, defaults to `NULL`
#' @param chart_facet_title_bg_padding Background padding. Horizontal space between text and background. Flourish type hint: number, defaults to `NULL`
#' @param segment_width Size. Choices: 0.1, 0.2, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param segment_width_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param segment_number Number. Choices: auto, fixed, custom. Flourish type hint: string, defaults to `NULL`
#' @param segment_fixed_number Number. Flourish type hint: number, defaults to `NULL`
#' @param segment_custom Two values per line in the following format 0 :: 5. Flourish type hint: text, defaults to `NULL`
#' @param segment_labels One label per line. If the number of segments is Fixed, labels will be added to each segment according to the order they appear in the gauge. If the number of segments is Custom, labels will be added to each segment according to the order in the custom segments have been inputted. Flourish type hint: text, defaults to `NULL`
#' @param segment_label_size Size. Choices: auto, 0.8, 1, 1.2, custom. In rems, a multiple of the pages base font size. Flourish type hint: string, defaults to `NULL`
#' @param segment_label_size_custom Custom. In rems, a multiple of the pages base font size. Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param segment_label_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param segment_label_rotation Rotation. Choices: none, ring. Flourish type hint: string, defaults to `NULL`
#' @param segment_label_color Color. Flourish type hint: color, defaults to `NULL`
#' @param segment_label_padding Padding. Flourish type hint: number, defaults to `NULL`
#' @param color_type Choices: categorical, numeric. Flourish type hint: string, 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 ticks_mode Mode. Choices: none, auto, number, custom. Flourish type hint: string, defaults to `NULL`
#' @param ticks_number Number. Approximate number of ticks or gridlines. The actual number will depend on the range of values, chart size, etc. Flourish type hint: number, defaults to `NULL`
#' @param ticks_custom One tick value per line. Flourish type hint: text, defaults to `NULL`
#' @param ticks_width Width. Flourish type hint: number, defaults to `NULL`
#' @param ticks_color Color. Flourish type hint: color, defaults to `NULL`
#' @param ticks_length Size. Choices: 0.1, 0.2, 0.3, custom. Flourish type hint: string, defaults to `NULL`
#' @param ticks_length_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param ticks_animation Animation. Choices: disabled, enabled. Flourish type hint: string, defaults to `NULL`
#' @param ticks_animation_duration Duration. The duration, in seconds, of the transitions for example, between two slides in a story Flourish type hint: number, defaults to `NULL`
#' @param intermediate_ticks Intermediate ticks. Choices: off, on. Flourish type hint: string, defaults to `NULL`
#' @param intermediate_ticks_number Number. Approximate number of intermediate ticks or gridlines. The actual number will depend on the range of values, chart size, etc. Flourish type hint: number, defaults to `NULL`
#' @param intermediate_ticks_width Size. As a proportion of the tick size. Flourish type hint: number, defaults to `NULL`
#' @param ticks_direction Direction. Choices: inwards, outwards. Flourish type hint: string, defaults to `NULL`
#' @param label_position Position. Choices: inside, outside. Flourish type hint: string, defaults to `NULL`
#' @param ticks_label_padding Space. Flourish type hint: number, defaults to `NULL`
#' @param ticks_label_color Color. Flourish type hint: color, defaults to `NULL`
#' @param label_rotation Rotation. Choices: none, auto, ring. Flourish type hint: string, defaults to `NULL`
#' @param label_flip Auto flip. Automatically flip when labels become less legible. Flourish type hint: boolean, defaults to `NULL`
#' @param ticks_label_size Size. Choices: 1, 1.5, 2, custom. In rems, a multiple of the pages base font size. Flourish type hint: string, defaults to `NULL`
#' @param ticks_label_size_custom Custom. In rems, a multiple of the pages base font size. Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param ticks_label_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param needle_size Size. Choices: 0.03, 0.06, 0.09, custom. Flourish type hint: string, defaults to `NULL`
#' @param needle_size_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param needle_hand_length Length. Choices: 0.5, 0.75, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param needle_hand_length_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param needle_color Color. Choices: gauge, custom. Flourish type hint: string, defaults to `NULL`
#' @param needle_color_custom Flourish type hint: color, defaults to `NULL`
#' @param needle_centre_size Size. Choices: 0.5, 1, 1.5, custom. Flourish type hint: string, defaults to `NULL`
#' @param needle_centre_size_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param needle_centre_stroke_width Border width. Flourish type hint: number, defaults to `NULL`
#' @param needle_centre_stroke Border color. Flourish type hint: color, defaults to `NULL`
#' @param needle_animation Animation. Choices: disabled, enabled. Flourish type hint: string, defaults to `NULL`
#' @param needle_animation_duration Duration. The duration, in seconds, of the transitions for example, between two slides in a story Flourish type hint: number, defaults to `NULL`
#' @param jitter Amplitude. Choices: none, low, medium, high. Sets how much the gauge needle moves when it animates up and down. To turn off the animation click NoneFlourish type hint: string, defaults to `NULL`
#' @param jitter_speed Speed. Flourish type hint: number, defaults to `NULL`
#' @param gauge_text_align Alignment. Choices: start, middle, end. Flourish type hint: string, defaults to `NULL`
#' @param gauge_text_position Position. Choices: above, below, split. Flourish type hint: string, defaults to `NULL`
#' @param gauge_text_position_flip Flip order. Flourish type hint: boolean, defaults to `NULL`
#' @param gauge_name_size Size. Choices: 1, 1.5, 2, custom. In rems, a multiple of the pages base font size. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_size_custom Custom. In rems, a multiple of the pages base font size. Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param gauge_name_styling Change styling. Flourish type hint: boolean, defaults to `NULL`
#' @param gauge_name_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_color Color. Choices: gauge, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_color_custom Flourish type hint: color, defaults to `NULL`
#' @param gauge_name_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param gauge_name_space_below Space below. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_name_space_below_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param gauge_value_size Size. Choices: 1, 1.5, 2, custom. In rems, a multiple of the pages base font size. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_size_custom Custom. In rems, a multiple of the pages base font size. Best results will be with values between 1.2 and 3. Flourish type hint: number, defaults to `NULL`
#' @param gauge_value_styling Change styling. Flourish type hint: boolean, defaults to `NULL`
#' @param gauge_value_weight Weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_color Color. Choices: gauge, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_color_custom Flourish type hint: color, defaults to `NULL`
#' @param gauge_value_space_above Space above. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_space_above_custom Custom. Flourish type hint: number, defaults to `NULL`
#' @param gauge_value_space_below Space below. Choices: 0, 0.5, 1, custom. Flourish type hint: string, defaults to `NULL`
#' @param gauge_value_space_below_custom Custom. Flourish type hint: number, 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_filter_controls_container_alignment Alignment. Choices: start, center, end. Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_container_controls_spacing Spacing. The space between controls, like dropdowns and adjacent button sets, in em units. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_control_type Control type. Choices: dropdown, buttons, slider. Choose between a dropdown, buttons or a time slider Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_control_styles Adv. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_filter_controls_control_title Control title. Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_button_group Grouped. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_filter_controls_button_group_width_mode Button group width. Choices: auto, full, fixed. Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_button_group_width_fixed Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_dropdown_width_mode Dropdown width. Choices: auto, full, fixed. Flourish type hint: string, defaults to `NULL`
#' @param chart_filter_controls_dropdown_width_fixed Width. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_slider_width Slider width. Width of the slider track in rems Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_slider_max_label_width Max label width. In rems, multiples of base font size. If larger than the longest label, only the space required to fit labels will be used. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_slider_step_time Time between steps. Measured in seconds, positive values move the slider left to right, negative values move the slider right to left. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_slider_loop Loop. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_filter_controls_slider_restart_pause Pause before loop. Measured in seconds and in addition to the regular step time displayed above. Flourish type hint: number, defaults to `NULL`
#' @param chart_filter_controls_sort Sorting. Choices: `TRUE`, `FALSE`. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_controls_style_font_size Text size. Flourish type hint: number, defaults to `NULL`
#' @param chart_controls_style_font_weight Text weight. Choices: bold, normal. Flourish type hint: string, defaults to `NULL`
#' @param chart_controls_style_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_dropdown_control_style_background Background. Flourish type hint: color, defaults to `NULL`
#' @param chart_dropdown_control_style_font_color Text color. Flourish type hint: color, defaults to `NULL`
#' @param chart_dropdown_control_style_border_styles_advanced Dropdown border styles. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_dropdown_control_style_border_style Border style. Choices: all, bottom. Show border on all sides, or only at the bottom. Flourish type hint: string, defaults to `NULL`
#' @param chart_dropdown_control_style_border_width Border width. Flourish type hint: number, defaults to `NULL`
#' @param chart_dropdown_control_style_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_dropdown_control_style_border_transparency Transparency. Flourish type hint: number, defaults to `NULL`
#' @param chart_dropdown_control_style_border_radius Radius. Flourish type hint: number, defaults to `NULL`
#' @param chart_button_control_style_background Background. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_background_selected Selected. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_background_hover Mouse over. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_font_color Text color. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_font_color_selected Selected. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_font_color_hover Mouse over. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_button_styles_advanced Button border styles. Flourish type hint: boolean, defaults to `NULL`
#' @param chart_button_control_style_border_width Border width. Flourish type hint: number, defaults to `NULL`
#' @param chart_button_control_style_border_color Color. Flourish type hint: color, defaults to `NULL`
#' @param chart_button_control_style_border_transparency Transparency. Flourish type hint: number, defaults to `NULL`
#' @param chart_button_control_style_border_radius Radius. Flourish type hint: number, defaults to `NULL`
#' @param chart_slider_control_style_track_color Track. Flourish type hint: color, defaults to `NULL`
#' @param chart_slider_control_style_font_color Text. Flourish type hint: color, defaults to `NULL`
#' @param chart_slider_control_style_handle_color Handle. Flourish type hint: color, defaults to `NULL`
#' @param chart_slider_control_style_play_color Play/pause. Flourish type hint: color, defaults to `NULL`
#' @param chart_slider_control_style_track_height Track height. Flourish type hint: number, defaults to `NULL`
#' @param chart_slider_control_style_handle_height Height. Flourish type hint: number, defaults to `NULL`
#' @param chart_slider_control_style_play_button Play button. Flourish type hint: boolean, 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 . 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 = "gauge", api_key = Sys.getenv("FLOURISH_API_KEY")) |>
#' bind_gauge_data(gapminder) |>
#' set_gauge_details()
#' )
#' @export
set_gauge_details <- function(
.,
gauge_radial_extent = NULL,
gauge_radial_extent_custom = NULL,
gauge_width = NULL,
gauge_width_custom = NULL,
gauge_scale_domain = NULL,
gauge_scale_domain_min = NULL,
gauge_scale_domain_max = NULL,
gauge_color = NULL,
gauge_opacity = NULL,
gauge_border_color = NULL,
gauge_border_size = NULL,
height_mode = NULL,
aspect_ratio = NULL,
aspect_ratio_custom = NULL,
add_aspect_ratio_mobile = NULL,
breakpoint = NULL,
aspect_ratio_mobile = NULL,
aspect_ratio_mobile_custom = NULL,
chart_facet_columns_fixed = NULL,
chart_facet_columns = NULL,
chart_facet_min_width = NULL,
chart_facet_min_width_fixed = NULL,
chart_facet_custom_grid = NULL,
chart_facet_custom_positions = NULL,
chart_facet_max_width = NULL,
chart_facet_gutter_w = NULL,
chart_facet_gutter_h = NULL,
chart_facet_animation = NULL,
chart_facet_titles = NULL,
chart_facet_title_align = NULL,
chart_facet_title_size = NULL,
chart_facet_title_unit = NULL,
chart_facet_title_color = NULL,
chart_facet_title_padding_top = NULL,
chart_facet_title_padding_bottom = NULL,
chart_facet_title_bg = NULL,
chart_facet_title_bg_color = NULL,
chart_facet_title_bg_padding = NULL,
segment_width = NULL,
segment_width_custom = NULL,
segment_number = NULL,
segment_fixed_number = NULL,
segment_custom = NULL,
segment_labels = NULL,
segment_label_size = NULL,
segment_label_size_custom = NULL,
segment_label_weight = NULL,
segment_label_rotation = NULL,
segment_label_color = NULL,
segment_label_padding = NULL,
color_type = 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,
ticks_mode = NULL,
ticks_number = NULL,
ticks_custom = NULL,
ticks_width = NULL,
ticks_color = NULL,
ticks_length = NULL,
ticks_length_custom = NULL,
ticks_animation = NULL,
ticks_animation_duration = NULL,
intermediate_ticks = NULL,
intermediate_ticks_number = NULL,
intermediate_ticks_width = NULL,
ticks_direction = NULL,
label_position = NULL,
ticks_label_padding = NULL,
ticks_label_color = NULL,
label_rotation = NULL,
label_flip = NULL,
ticks_label_size = NULL,
ticks_label_size_custom = NULL,
ticks_label_weight = NULL,
needle_size = NULL,
needle_size_custom = NULL,
needle_hand_length = NULL,
needle_hand_length_custom = NULL,
needle_color = NULL,
needle_color_custom = NULL,
needle_centre_size = NULL,
needle_centre_size_custom = NULL,
needle_centre_stroke_width = NULL,
needle_centre_stroke = NULL,
needle_animation = NULL,
needle_animation_duration = NULL,
jitter = NULL,
jitter_speed = NULL,
gauge_text_align = NULL,
gauge_text_position = NULL,
gauge_text_position_flip = NULL,
gauge_name_size = NULL,
gauge_name_size_custom = NULL,
gauge_name_styling = NULL,
gauge_name_weight = NULL,
gauge_name_color = NULL,
gauge_name_color_custom = NULL,
gauge_name_space_above = NULL,
gauge_name_space_above_custom = NULL,
gauge_name_space_below = NULL,
gauge_name_space_below_custom = NULL,
gauge_value_size = NULL,
gauge_value_size_custom = NULL,
gauge_value_styling = NULL,
gauge_value_weight = NULL,
gauge_value_color = NULL,
gauge_value_color_custom = NULL,
gauge_value_space_above = NULL,
gauge_value_space_above_custom = NULL,
gauge_value_space_below = NULL,
gauge_value_space_below_custom = 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_filter_controls_container_alignment = NULL,
chart_filter_controls_container_controls_spacing = NULL,
chart_filter_controls_control_type = NULL,
chart_filter_controls_control_styles = NULL,
chart_filter_controls_control_title = NULL,
chart_filter_controls_button_group = NULL,
chart_filter_controls_button_group_width_mode = NULL,
chart_filter_controls_button_group_width_fixed = NULL,
chart_filter_controls_dropdown_width_mode = NULL,
chart_filter_controls_dropdown_width_fixed = NULL,
chart_filter_controls_slider_width = NULL,
chart_filter_controls_slider_max_label_width = NULL,
chart_filter_controls_slider_step_time = NULL,
chart_filter_controls_slider_loop = NULL,
chart_filter_controls_slider_restart_pause = NULL,
chart_filter_controls_sort = NULL,
chart_controls_style_font_size = NULL,
chart_controls_style_font_weight = NULL,
chart_controls_style_height = NULL,
chart_dropdown_control_style_background = NULL,
chart_dropdown_control_style_font_color = NULL,
chart_dropdown_control_style_border_styles_advanced = NULL,
chart_dropdown_control_style_border_style = NULL,
chart_dropdown_control_style_border_width = NULL,
chart_dropdown_control_style_border_color = NULL,
chart_dropdown_control_style_border_transparency = NULL,
chart_dropdown_control_style_border_radius = NULL,
chart_button_control_style_background = NULL,
chart_button_control_style_background_selected = NULL,
chart_button_control_style_background_hover = NULL,
chart_button_control_style_font_color = NULL,
chart_button_control_style_font_color_selected = NULL,
chart_button_control_style_font_color_hover = NULL,
chart_button_control_style_button_styles_advanced = NULL,
chart_button_control_style_border_width = NULL,
chart_button_control_style_border_color = NULL,
chart_button_control_style_border_transparency = NULL,
chart_button_control_style_border_radius = NULL,
chart_slider_control_style_track_color = NULL,
chart_slider_control_style_font_color = NULL,
chart_slider_control_style_handle_color = NULL,
chart_slider_control_style_play_color = NULL,
chart_slider_control_style_track_height = NULL,
chart_slider_control_style_handle_height = NULL,
chart_slider_control_style_play_button = 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) {
details_error(., "gauge")
old_list <- .
new_list <- list()
if (isTRUE(old_list$x$template != "@flourish/gauge")) {
stop("`set_gauge_details()` is not supported for this chart type.")
}
list_gauge_radial_extent <- c("90", "180", "270", "custom", NULL)
if (!is.null(gauge_radial_extent)) {
if (!gauge_radial_extent %in% list_gauge_radial_extent) {
stop("`gauge_radial_extent` must be one of: c('90', '180', '270', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"90": "90", "180": "180", "270": "270", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"90": "90", "180": "180", "270": "270", "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 && gauge_radial_extent %in% names(named_list)) {
if (is.logical(gauge_radial_extent)) {
gauge_radial_extent <- as.character(gauge_radial_extent)
}
named_list_value <- unname(named_list[gauge_radial_extent])[[1]]
new_list$x$state$gauge_radial_extent <- named_list_value
}
}
}
}
new_list$x$state$gauge_radial_extent_custom <- gauge_radial_extent_custom
list_gauge_width <- c("1", "0.75", "0.5", "custom", NULL)
if (!is.null(gauge_width)) {
if (!gauge_width %in% list_gauge_width) {
stop("`gauge_width` must be one of: c('1', '0.75', '0.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "0.75": "0.75", "0.5": "0.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "0.75": "0.75", "0.5": "0.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 && gauge_width %in% names(named_list)) {
if (is.logical(gauge_width)) {
gauge_width <- as.character(gauge_width)
}
named_list_value <- unname(named_list[gauge_width])[[1]]
new_list$x$state$gauge_width <- named_list_value
}
}
}
}
new_list$x$state$gauge_width_custom <- gauge_width_custom
list_gauge_scale_domain <- c("auto", "custom", NULL)
if (!is.null(gauge_scale_domain)) {
if (!gauge_scale_domain %in% list_gauge_scale_domain) {
stop("`gauge_scale_domain` 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 && gauge_scale_domain %in% names(named_list)) {
if (is.logical(gauge_scale_domain)) {
gauge_scale_domain <- as.character(gauge_scale_domain)
}
named_list_value <- unname(named_list[gauge_scale_domain])[[1]]
new_list$x$state$gauge_scale_domain <- named_list_value
}
}
}
}
new_list$x$state$gauge_scale_domain_min <- gauge_scale_domain_min
new_list$x$state$gauge_scale_domain_max <- gauge_scale_domain_max
new_list$x$state$gauge_color <- gauge_color
new_list$x$state$gauge_opacity <- gauge_opacity
new_list$x$state$gauge_border_color <- gauge_border_color
new_list$x$state$gauge_border_size <- gauge_border_size
list_height_mode <- c("auto", "standard", "aspect", NULL)
if (!is.null(height_mode)) {
if (!height_mode %in% list_height_mode) {
stop("`height_mode` must be one of: c('auto', 'standard', 'aspect')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "standard": "standard", "aspect": "aspect"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "standard": "standard", "aspect": "aspect"}')
# 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 && height_mode %in% names(named_list)) {
if (is.logical(height_mode)) {
height_mode <- as.character(height_mode)
}
named_list_value <- unname(named_list[height_mode])[[1]]
new_list$x$state$height_mode <- named_list_value
}
}
}
}
list_aspect_ratio <- c("0.75", "1", "1.5", "custom", NULL)
if (!is.null(aspect_ratio)) {
if (!aspect_ratio %in% list_aspect_ratio) {
stop("`aspect_ratio` must be one of: c('0.75', '1', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.75": "0.75", "1": "1", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.75": "0.75", "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 && aspect_ratio %in% names(named_list)) {
if (is.logical(aspect_ratio)) {
aspect_ratio <- as.character(aspect_ratio)
}
named_list_value <- unname(named_list[aspect_ratio])[[1]]
new_list$x$state$aspect_ratio <- named_list_value
}
}
}
}
new_list$x$state$aspect_ratio_custom <- aspect_ratio_custom
list_add_aspect_ratio_mobile <- c("disabled", "enabled", NULL)
if (!is.null(add_aspect_ratio_mobile)) {
if (!add_aspect_ratio_mobile %in% list_add_aspect_ratio_mobile) {
stop("`add_aspect_ratio_mobile` must be one of: c('disabled', 'enabled')")
} else {
if (length(jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')) > 1) {
named_list <- jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')
# 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 && add_aspect_ratio_mobile %in% names(named_list)) {
if (is.logical(add_aspect_ratio_mobile)) {
add_aspect_ratio_mobile <- as.character(add_aspect_ratio_mobile)
}
named_list_value <- unname(named_list[add_aspect_ratio_mobile])[[1]]
new_list$x$state$add_aspect_ratio_mobile <- named_list_value
}
}
}
}
new_list$x$state$breakpoint <- breakpoint
list_aspect_ratio_mobile <- c("0.75", "1", "1.5", "custom", NULL)
if (!is.null(aspect_ratio_mobile)) {
if (!aspect_ratio_mobile %in% list_aspect_ratio_mobile) {
stop("`aspect_ratio_mobile` must be one of: c('0.75', '1', '1.5', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.75": "0.75", "1": "1", "1.5": "1.5", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.75": "0.75", "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 && aspect_ratio_mobile %in% names(named_list)) {
if (is.logical(aspect_ratio_mobile)) {
aspect_ratio_mobile <- as.character(aspect_ratio_mobile)
}
named_list_value <- unname(named_list[aspect_ratio_mobile])[[1]]
new_list$x$state$aspect_ratio_mobile <- named_list_value
}
}
}
}
new_list$x$state$aspect_ratio_mobile_custom <- aspect_ratio_mobile_custom
list_chart_facet_columns_fixed <- c(FALSE, TRUE, NULL)
if (!is.null(chart_facet_columns_fixed)) {
if (!chart_facet_columns_fixed %in% list_chart_facet_columns_fixed) {
stop("`chart_facet_columns_fixed` 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_facet_columns_fixed %in% names(named_list)) {
if (is.logical(chart_facet_columns_fixed)) {
chart_facet_columns_fixed <- as.character(chart_facet_columns_fixed)
}
named_list_value <- unname(named_list[chart_facet_columns_fixed])[[1]]
new_list$x$state$facets$columns_fixed <- named_list_value
}
}
}
}
new_list$x$state$facets$columns <- chart_facet_columns
new_list$x$state$facets$min_width <- chart_facet_min_width
new_list$x$state$facets$min_width_fixed <- chart_facet_min_width_fixed
new_list$x$state$facets$custom_grid <- chart_facet_custom_grid
if (length(chart_facet_custom_positions) > 1) {
new_list$x$state$facets$custom_positions <- paste(chart_facet_custom_positions, collapse = "\n")
} else {
new_list$x$state$facets$custom_positions <- chart_facet_custom_positions
}
new_list$x$state$facets$max_width <- chart_facet_max_width
new_list$x$state$facets$gutter_w <- chart_facet_gutter_w
new_list$x$state$facets$gutter_h <- chart_facet_gutter_h
list_chart_facet_animation <- c("auto", "name", "reuse", NULL)
if (!is.null(chart_facet_animation)) {
if (!chart_facet_animation %in% list_chart_facet_animation) {
stop("`chart_facet_animation` must be one of: c('auto', 'name', 'reuse')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "name": "name", "reuse": "reuse"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "name": "name", "reuse": "reuse"}')
# 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_facet_animation %in% names(named_list)) {
if (is.logical(chart_facet_animation)) {
chart_facet_animation <- as.character(chart_facet_animation)
}
named_list_value <- unname(named_list[chart_facet_animation])[[1]]
new_list$x$state$facets$animation <- named_list_value
}
}
}
}
new_list$x$state$facets$titles <- chart_facet_titles
list_chart_facet_title_align <- c("auto", "left", "center", "right", NULL)
if (!is.null(chart_facet_title_align)) {
if (!chart_facet_title_align %in% list_chart_facet_title_align) {
stop("`chart_facet_title_align` must be one of: c('auto', 'left', 'center', 'right')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "left": "left", "center": "center", "right": "right"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "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_facet_title_align %in% names(named_list)) {
if (is.logical(chart_facet_title_align)) {
chart_facet_title_align <- as.character(chart_facet_title_align)
}
named_list_value <- unname(named_list[chart_facet_title_align])[[1]]
new_list$x$state$facets$title_align <- named_list_value
}
}
}
}
new_list$x$state$facets$title_size <- chart_facet_title_size
list_chart_facet_title_unit <- c("rem", "facet", NULL)
if (!is.null(chart_facet_title_unit)) {
if (!chart_facet_title_unit %in% list_chart_facet_title_unit) {
stop("`chart_facet_title_unit` must be one of: c('rem', 'facet')")
} else {
if (length(jsonlite::fromJSON('{"rem": "rem", "facet": "facet"}')) > 1) {
named_list <- jsonlite::fromJSON('{"rem": "rem", "facet": "facet"}')
# 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_facet_title_unit %in% names(named_list)) {
if (is.logical(chart_facet_title_unit)) {
chart_facet_title_unit <- as.character(chart_facet_title_unit)
}
named_list_value <- unname(named_list[chart_facet_title_unit])[[1]]
new_list$x$state$facets$title_unit <- named_list_value
}
}
}
}
new_list$x$state$facets$title_color <- chart_facet_title_color
new_list$x$state$facets$title_padding_top <- chart_facet_title_padding_top
new_list$x$state$facets$title_padding_bottom <- chart_facet_title_padding_bottom
list_chart_facet_title_bg <- c("none", "full", "text", NULL)
if (!is.null(chart_facet_title_bg)) {
if (!chart_facet_title_bg %in% list_chart_facet_title_bg) {
stop("`chart_facet_title_bg` must be one of: c('none', 'full', 'text')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "full": "full", "text": "text"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "full": "full", "text": "text"}')
# 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_facet_title_bg %in% names(named_list)) {
if (is.logical(chart_facet_title_bg)) {
chart_facet_title_bg <- as.character(chart_facet_title_bg)
}
named_list_value <- unname(named_list[chart_facet_title_bg])[[1]]
new_list$x$state$facets$title_bg <- named_list_value
}
}
}
}
new_list$x$state$facets$title_bg_color <- chart_facet_title_bg_color
new_list$x$state$facets$title_bg_padding <- chart_facet_title_bg_padding
list_segment_width <- c("0.1", "0.2", "1", "custom", NULL)
if (!is.null(segment_width)) {
if (!segment_width %in% list_segment_width) {
stop("`segment_width` must be one of: c('0.1', '0.2', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.1": "0.1", "0.2": "0.2", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.1": "0.1", "0.2": "0.2", "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 && segment_width %in% names(named_list)) {
if (is.logical(segment_width)) {
segment_width <- as.character(segment_width)
}
named_list_value <- unname(named_list[segment_width])[[1]]
new_list$x$state$segment_width <- named_list_value
}
}
}
}
new_list$x$state$segment_width_custom <- segment_width_custom
list_segment_number <- c("auto", "fixed", "custom", NULL)
if (!is.null(segment_number)) {
if (!segment_number %in% list_segment_number) {
stop("`segment_number` must be one of: c('auto', 'fixed', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "fixed": "fixed", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "fixed": "fixed", "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 && segment_number %in% names(named_list)) {
if (is.logical(segment_number)) {
segment_number <- as.character(segment_number)
}
named_list_value <- unname(named_list[segment_number])[[1]]
new_list$x$state$segment_number <- named_list_value
}
}
}
}
new_list$x$state$segment_fixed_number <- segment_fixed_number
if (length(segment_custom) > 1) {
new_list$x$state$segment_custom <- paste(segment_custom, collapse = "\n")
} else {
new_list$x$state$segment_custom <- segment_custom
}
if (length(segment_labels) > 1) {
new_list$x$state$segment_labels <- paste(segment_labels, collapse = "\n")
} else {
new_list$x$state$segment_labels <- segment_labels
}
list_segment_label_size <- c("auto", "0.8", "1", "1.2", "custom", NULL)
if (!is.null(segment_label_size)) {
if (!segment_label_size %in% list_segment_label_size) {
stop("`segment_label_size` must be one of: c('auto', '0.8', '1', '1.2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "0.8": "0.8", "1": "1", "1.2": "1.2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "0.8": "0.8", "1": "1", "1.2": "1.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 && segment_label_size %in% names(named_list)) {
if (is.logical(segment_label_size)) {
segment_label_size <- as.character(segment_label_size)
}
named_list_value <- unname(named_list[segment_label_size])[[1]]
new_list$x$state$segment_label_size <- named_list_value
}
}
}
}
new_list$x$state$segment_label_size_custom <- segment_label_size_custom
list_segment_label_weight <- c("bold", "normal", NULL)
if (!is.null(segment_label_weight)) {
if (!segment_label_weight %in% list_segment_label_weight) {
stop("`segment_label_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 && segment_label_weight %in% names(named_list)) {
if (is.logical(segment_label_weight)) {
segment_label_weight <- as.character(segment_label_weight)
}
named_list_value <- unname(named_list[segment_label_weight])[[1]]
new_list$x$state$segment_label_weight <- named_list_value
}
}
}
}
list_segment_label_rotation <- c("none", "ring", NULL)
if (!is.null(segment_label_rotation)) {
if (!segment_label_rotation %in% list_segment_label_rotation) {
stop("`segment_label_rotation` must be one of: c('none', 'ring')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "ring": "ring"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "ring": "ring"}')
# 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 && segment_label_rotation %in% names(named_list)) {
if (is.logical(segment_label_rotation)) {
segment_label_rotation <- as.character(segment_label_rotation)
}
named_list_value <- unname(named_list[segment_label_rotation])[[1]]
new_list$x$state$segment_label_rotation <- named_list_value
}
}
}
}
new_list$x$state$segment_label_color <- segment_label_color
new_list$x$state$segment_label_padding <- segment_label_padding
list_color_type <- c("categorical", "numeric", NULL)
if (!is.null(color_type)) {
if (!color_type %in% list_color_type) {
stop("`color_type` must be one of: c('categorical', 'numeric')")
} else {
if (length(jsonlite::fromJSON('{"categorical": "categorical", "numeric": "numeric"}')) > 1) {
named_list <- jsonlite::fromJSON('{"categorical": "categorical", "numeric": "numeric"}')
# 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 && color_type %in% names(named_list)) {
if (is.logical(color_type)) {
color_type <- as.character(color_type)
}
named_list_value <- unname(named_list[color_type])[[1]]
new_list$x$state$color_type <- named_list_value
}
}
}
}
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_ticks_mode <- c("none", "auto", "number", "custom", NULL)
if (!is.null(ticks_mode)) {
if (!ticks_mode %in% list_ticks_mode) {
stop("`ticks_mode` must be one of: c('none', 'auto', 'number', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "auto": "auto", "number": "number", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "auto": "auto", "number": "number", "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 && ticks_mode %in% names(named_list)) {
if (is.logical(ticks_mode)) {
ticks_mode <- as.character(ticks_mode)
}
named_list_value <- unname(named_list[ticks_mode])[[1]]
new_list$x$state$ticks_mode <- named_list_value
}
}
}
}
new_list$x$state$ticks_number <- ticks_number
if (length(ticks_custom) > 1) {
new_list$x$state$ticks_custom <- paste(ticks_custom, collapse = "\n")
} else {
new_list$x$state$ticks_custom <- ticks_custom
}
new_list$x$state$ticks_width <- ticks_width
new_list$x$state$ticks_color <- ticks_color
list_ticks_length <- c("0.1", "0.2", "0.3", "custom", NULL)
if (!is.null(ticks_length)) {
if (!ticks_length %in% list_ticks_length) {
stop("`ticks_length` must be one of: c('0.1', '0.2', '0.3', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.1": "0.1", "0.2": "0.2", "0.3": "0.3", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.1": "0.1", "0.2": "0.2", "0.3": "0.3", "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 && ticks_length %in% names(named_list)) {
if (is.logical(ticks_length)) {
ticks_length <- as.character(ticks_length)
}
named_list_value <- unname(named_list[ticks_length])[[1]]
new_list$x$state$ticks_length <- named_list_value
}
}
}
}
new_list$x$state$ticks_length_custom <- ticks_length_custom
list_ticks_animation <- c("disabled", "enabled", NULL)
if (!is.null(ticks_animation)) {
if (!ticks_animation %in% list_ticks_animation) {
stop("`ticks_animation` must be one of: c('disabled', 'enabled')")
} else {
if (length(jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')) > 1) {
named_list <- jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')
# 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 && ticks_animation %in% names(named_list)) {
if (is.logical(ticks_animation)) {
ticks_animation <- as.character(ticks_animation)
}
named_list_value <- unname(named_list[ticks_animation])[[1]]
new_list$x$state$ticks_animation <- named_list_value
}
}
}
}
new_list$x$state$ticks_animation_duration <- ticks_animation_duration
list_intermediate_ticks <- c("off", "on", NULL)
if (!is.null(intermediate_ticks)) {
if (!intermediate_ticks %in% list_intermediate_ticks) {
stop("`intermediate_ticks` must be one of: c('off', 'on')")
} else {
if (length(jsonlite::fromJSON('{"off": "off", "on": "on"}')) > 1) {
named_list <- jsonlite::fromJSON('{"off": "off", "on": "on"}')
# 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 && intermediate_ticks %in% names(named_list)) {
if (is.logical(intermediate_ticks)) {
intermediate_ticks <- as.character(intermediate_ticks)
}
named_list_value <- unname(named_list[intermediate_ticks])[[1]]
new_list$x$state$intermediate_ticks <- named_list_value
}
}
}
}
new_list$x$state$intermediate_ticks_number <- intermediate_ticks_number
new_list$x$state$intermediate_ticks_width <- intermediate_ticks_width
list_ticks_direction <- c("inwards", "outwards", NULL)
if (!is.null(ticks_direction)) {
if (!ticks_direction %in% list_ticks_direction) {
stop("`ticks_direction` must be one of: c('inwards', 'outwards')")
} else {
if (length(jsonlite::fromJSON('{"inwards": "inwards", "outwards": "outwards"}')) > 1) {
named_list <- jsonlite::fromJSON('{"inwards": "inwards", "outwards": "outwards"}')
# 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 && ticks_direction %in% names(named_list)) {
if (is.logical(ticks_direction)) {
ticks_direction <- as.character(ticks_direction)
}
named_list_value <- unname(named_list[ticks_direction])[[1]]
new_list$x$state$ticks_direction <- named_list_value
}
}
}
}
list_label_position <- c("inside", "outside", NULL)
if (!is.null(label_position)) {
if (!label_position %in% list_label_position) {
stop("`label_position` 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 && label_position %in% names(named_list)) {
if (is.logical(label_position)) {
label_position <- as.character(label_position)
}
named_list_value <- unname(named_list[label_position])[[1]]
new_list$x$state$label_position <- named_list_value
}
}
}
}
new_list$x$state$ticks_label_padding <- ticks_label_padding
new_list$x$state$ticks_label_color <- ticks_label_color
list_label_rotation <- c("none", "auto", "ring", NULL)
if (!is.null(label_rotation)) {
if (!label_rotation %in% list_label_rotation) {
stop("`label_rotation` must be one of: c('none', 'auto', 'ring')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "auto": "auto", "ring": "ring"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "auto": "auto", "ring": "ring"}')
# 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 && label_rotation %in% names(named_list)) {
if (is.logical(label_rotation)) {
label_rotation <- as.character(label_rotation)
}
named_list_value <- unname(named_list[label_rotation])[[1]]
new_list$x$state$label_rotation <- named_list_value
}
}
}
}
new_list$x$state$label_flip <- label_flip
list_ticks_label_size <- c("1", "1.5", "2", "custom", NULL)
if (!is.null(ticks_label_size)) {
if (!ticks_label_size %in% list_ticks_label_size) {
stop("`ticks_label_size` must be one of: c('1', '1.5', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "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 && ticks_label_size %in% names(named_list)) {
if (is.logical(ticks_label_size)) {
ticks_label_size <- as.character(ticks_label_size)
}
named_list_value <- unname(named_list[ticks_label_size])[[1]]
new_list$x$state$ticks_label_size <- named_list_value
}
}
}
}
new_list$x$state$ticks_label_size_custom <- ticks_label_size_custom
list_ticks_label_weight <- c("bold", "normal", NULL)
if (!is.null(ticks_label_weight)) {
if (!ticks_label_weight %in% list_ticks_label_weight) {
stop("`ticks_label_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 && ticks_label_weight %in% names(named_list)) {
if (is.logical(ticks_label_weight)) {
ticks_label_weight <- as.character(ticks_label_weight)
}
named_list_value <- unname(named_list[ticks_label_weight])[[1]]
new_list$x$state$ticks_label_weight <- named_list_value
}
}
}
}
list_needle_size <- c("0.03", "0.06", "0.09", "custom", NULL)
if (!is.null(needle_size)) {
if (!needle_size %in% list_needle_size) {
stop("`needle_size` must be one of: c('0.03', '0.06', '0.09', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.03": "0.03", "0.06": "0.06", "0.09": "0.09", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.03": "0.03", "0.06": "0.06", "0.09": "0.09", "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 && needle_size %in% names(named_list)) {
if (is.logical(needle_size)) {
needle_size <- as.character(needle_size)
}
named_list_value <- unname(named_list[needle_size])[[1]]
new_list$x$state$needle_size <- named_list_value
}
}
}
}
new_list$x$state$needle_size_custom <- needle_size_custom
list_needle_hand_length <- c("0.5", "0.75", "1", "custom", NULL)
if (!is.null(needle_hand_length)) {
if (!needle_hand_length %in% list_needle_hand_length) {
stop("`needle_hand_length` must be one of: c('0.5', '0.75', '1', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"0.5": "0.5", "0.75": "0.75", "1": "1", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"0.5": "0.5", "0.75": "0.75", "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 && needle_hand_length %in% names(named_list)) {
if (is.logical(needle_hand_length)) {
needle_hand_length <- as.character(needle_hand_length)
}
named_list_value <- unname(named_list[needle_hand_length])[[1]]
new_list$x$state$needle_hand_length <- named_list_value
}
}
}
}
new_list$x$state$needle_hand_length_custom <- needle_hand_length_custom
list_needle_color <- c("gauge", "custom", NULL)
if (!is.null(needle_color)) {
if (!needle_color %in% list_needle_color) {
stop("`needle_color` must be one of: c('gauge', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"gauge": "gauge", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"gauge": "gauge", "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 && needle_color %in% names(named_list)) {
if (is.logical(needle_color)) {
needle_color <- as.character(needle_color)
}
named_list_value <- unname(named_list[needle_color])[[1]]
new_list$x$state$needle_color <- named_list_value
}
}
}
}
new_list$x$state$needle_color_custom <- needle_color_custom
list_needle_centre_size <- c("0.5", "1", "1.5", "custom", NULL)
if (!is.null(needle_centre_size)) {
if (!needle_centre_size %in% list_needle_centre_size) {
stop("`needle_centre_size` 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 && needle_centre_size %in% names(named_list)) {
if (is.logical(needle_centre_size)) {
needle_centre_size <- as.character(needle_centre_size)
}
named_list_value <- unname(named_list[needle_centre_size])[[1]]
new_list$x$state$needle_centre_size <- named_list_value
}
}
}
}
new_list$x$state$needle_centre_size_custom <- needle_centre_size_custom
new_list$x$state$needle_centre_stroke_width <- needle_centre_stroke_width
new_list$x$state$needle_centre_stroke <- needle_centre_stroke
list_needle_animation <- c("disabled", "enabled", NULL)
if (!is.null(needle_animation)) {
if (!needle_animation %in% list_needle_animation) {
stop("`needle_animation` must be one of: c('disabled', 'enabled')")
} else {
if (length(jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')) > 1) {
named_list <- jsonlite::fromJSON('{"disabled": "disabled", "enabled": "enabled"}')
# 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 && needle_animation %in% names(named_list)) {
if (is.logical(needle_animation)) {
needle_animation <- as.character(needle_animation)
}
named_list_value <- unname(named_list[needle_animation])[[1]]
new_list$x$state$needle_animation <- named_list_value
}
}
}
}
new_list$x$state$needle_animation_duration <- needle_animation_duration
list_jitter <- c("none", "low", "medium", "high", NULL)
if (!is.null(jitter)) {
if (!jitter %in% list_jitter) {
stop("`jitter` must be one of: c('none', 'low', 'medium', 'high')")
} else {
if (length(jsonlite::fromJSON('{"none": "none", "low": "low", "medium": "medium", "high": "high"}')) > 1) {
named_list <- jsonlite::fromJSON('{"none": "none", "low": "low", "medium": "medium", "high": "high"}')
# 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 && jitter %in% names(named_list)) {
if (is.logical(jitter)) {
jitter <- as.character(jitter)
}
named_list_value <- unname(named_list[jitter])[[1]]
new_list$x$state$jitter <- named_list_value
}
}
}
}
new_list$x$state$jitter_speed <- jitter_speed
list_gauge_text_align <- c("start", "middle", "end", NULL)
if (!is.null(gauge_text_align)) {
if (!gauge_text_align %in% list_gauge_text_align) {
stop("`gauge_text_align` must be one of: c('start', 'middle', 'end')")
} else {
if (length(jsonlite::fromJSON('{"start": "start", "middle": "middle", "end": "end"}')) > 1) {
named_list <- jsonlite::fromJSON('{"start": "start", "middle": "middle", "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 && gauge_text_align %in% names(named_list)) {
if (is.logical(gauge_text_align)) {
gauge_text_align <- as.character(gauge_text_align)
}
named_list_value <- unname(named_list[gauge_text_align])[[1]]
new_list$x$state$gauge_text_align <- named_list_value
}
}
}
}
list_gauge_text_position <- c("above", "below", "split", NULL)
if (!is.null(gauge_text_position)) {
if (!gauge_text_position %in% list_gauge_text_position) {
stop("`gauge_text_position` must be one of: c('above', 'below', 'split')")
} else {
if (length(jsonlite::fromJSON('{"above": "above", "below": "below", "split": "split"}')) > 1) {
named_list <- jsonlite::fromJSON('{"above": "above", "below": "below", "split": "split"}')
# 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 && gauge_text_position %in% names(named_list)) {
if (is.logical(gauge_text_position)) {
gauge_text_position <- as.character(gauge_text_position)
}
named_list_value <- unname(named_list[gauge_text_position])[[1]]
new_list$x$state$gauge_text_position <- named_list_value
}
}
}
}
new_list$x$state$gauge_text_position_flip <- gauge_text_position_flip
list_gauge_name_size <- c("1", "1.5", "2", "custom", NULL)
if (!is.null(gauge_name_size)) {
if (!gauge_name_size %in% list_gauge_name_size) {
stop("`gauge_name_size` must be one of: c('1', '1.5', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "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 && gauge_name_size %in% names(named_list)) {
if (is.logical(gauge_name_size)) {
gauge_name_size <- as.character(gauge_name_size)
}
named_list_value <- unname(named_list[gauge_name_size])[[1]]
new_list$x$state$gauge_name_size <- named_list_value
}
}
}
}
new_list$x$state$gauge_name_size_custom <- gauge_name_size_custom
new_list$x$state$gauge_name_styling <- gauge_name_styling
list_gauge_name_weight <- c("bold", "normal", NULL)
if (!is.null(gauge_name_weight)) {
if (!gauge_name_weight %in% list_gauge_name_weight) {
stop("`gauge_name_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 && gauge_name_weight %in% names(named_list)) {
if (is.logical(gauge_name_weight)) {
gauge_name_weight <- as.character(gauge_name_weight)
}
named_list_value <- unname(named_list[gauge_name_weight])[[1]]
new_list$x$state$gauge_name_weight <- named_list_value
}
}
}
}
list_gauge_name_color <- c("gauge", "custom", NULL)
if (!is.null(gauge_name_color)) {
if (!gauge_name_color %in% list_gauge_name_color) {
stop("`gauge_name_color` must be one of: c('gauge', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"gauge": "gauge", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"gauge": "gauge", "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 && gauge_name_color %in% names(named_list)) {
if (is.logical(gauge_name_color)) {
gauge_name_color <- as.character(gauge_name_color)
}
named_list_value <- unname(named_list[gauge_name_color])[[1]]
new_list$x$state$gauge_name_color <- named_list_value
}
}
}
}
new_list$x$state$gauge_name_color_custom <- gauge_name_color_custom
list_gauge_name_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(gauge_name_space_above)) {
if (!gauge_name_space_above %in% list_gauge_name_space_above) {
stop("`gauge_name_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 && gauge_name_space_above %in% names(named_list)) {
if (is.logical(gauge_name_space_above)) {
gauge_name_space_above <- as.character(gauge_name_space_above)
}
named_list_value <- unname(named_list[gauge_name_space_above])[[1]]
new_list$x$state$gauge_name_space_above <- named_list_value
}
}
}
}
new_list$x$state$gauge_name_space_above_custom <- gauge_name_space_above_custom
list_gauge_name_space_below <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(gauge_name_space_below)) {
if (!gauge_name_space_below %in% list_gauge_name_space_below) {
stop("`gauge_name_space_below` 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 && gauge_name_space_below %in% names(named_list)) {
if (is.logical(gauge_name_space_below)) {
gauge_name_space_below <- as.character(gauge_name_space_below)
}
named_list_value <- unname(named_list[gauge_name_space_below])[[1]]
new_list$x$state$gauge_name_space_below <- named_list_value
}
}
}
}
new_list$x$state$gauge_name_space_below_custom <- gauge_name_space_below_custom
list_gauge_value_size <- c("1", "1.5", "2", "custom", NULL)
if (!is.null(gauge_value_size)) {
if (!gauge_value_size %in% list_gauge_value_size) {
stop("`gauge_value_size` must be one of: c('1', '1.5', '2', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "2": "2", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"1": "1", "1.5": "1.5", "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 && gauge_value_size %in% names(named_list)) {
if (is.logical(gauge_value_size)) {
gauge_value_size <- as.character(gauge_value_size)
}
named_list_value <- unname(named_list[gauge_value_size])[[1]]
new_list$x$state$gauge_value_size <- named_list_value
}
}
}
}
new_list$x$state$gauge_value_size_custom <- gauge_value_size_custom
new_list$x$state$gauge_value_styling <- gauge_value_styling
list_gauge_value_weight <- c("bold", "normal", NULL)
if (!is.null(gauge_value_weight)) {
if (!gauge_value_weight %in% list_gauge_value_weight) {
stop("`gauge_value_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 && gauge_value_weight %in% names(named_list)) {
if (is.logical(gauge_value_weight)) {
gauge_value_weight <- as.character(gauge_value_weight)
}
named_list_value <- unname(named_list[gauge_value_weight])[[1]]
new_list$x$state$gauge_value_weight <- named_list_value
}
}
}
}
list_gauge_value_color <- c("gauge", "custom", NULL)
if (!is.null(gauge_value_color)) {
if (!gauge_value_color %in% list_gauge_value_color) {
stop("`gauge_value_color` must be one of: c('gauge', 'custom')")
} else {
if (length(jsonlite::fromJSON('{"gauge": "gauge", "custom": "custom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"gauge": "gauge", "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 && gauge_value_color %in% names(named_list)) {
if (is.logical(gauge_value_color)) {
gauge_value_color <- as.character(gauge_value_color)
}
named_list_value <- unname(named_list[gauge_value_color])[[1]]
new_list$x$state$gauge_value_color <- named_list_value
}
}
}
}
new_list$x$state$gauge_value_color_custom <- gauge_value_color_custom
list_gauge_value_space_above <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(gauge_value_space_above)) {
if (!gauge_value_space_above %in% list_gauge_value_space_above) {
stop("`gauge_value_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 && gauge_value_space_above %in% names(named_list)) {
if (is.logical(gauge_value_space_above)) {
gauge_value_space_above <- as.character(gauge_value_space_above)
}
named_list_value <- unname(named_list[gauge_value_space_above])[[1]]
new_list$x$state$gauge_value_space_above <- named_list_value
}
}
}
}
new_list$x$state$gauge_value_space_above_custom <- gauge_value_space_above_custom
list_gauge_value_space_below <- c("0", "0.5", "1", "custom", NULL)
if (!is.null(gauge_value_space_below)) {
if (!gauge_value_space_below %in% list_gauge_value_space_below) {
stop("`gauge_value_space_below` 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 && gauge_value_space_below %in% names(named_list)) {
if (is.logical(gauge_value_space_below)) {
gauge_value_space_below <- as.character(gauge_value_space_below)
}
named_list_value <- unname(named_list[gauge_value_space_below])[[1]]
new_list$x$state$gauge_value_space_below <- named_list_value
}
}
}
}
new_list$x$state$gauge_value_space_below_custom <- gauge_value_space_below_custom
new_list$x$state$formatting$prefix <- chart_number_date_format_prefix
new_list$x$state$formatting$suffix <- chart_number_date_format_suffix
new_list$x$state$formatting$n_dec <- chart_number_date_format_n_dec
new_list$x$state$formatting$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$formatting$negative_sign <- named_list_value
}
}
}
}
new_list$x$state$formatting$strip_zeros <- chart_number_date_format_strip_zeros
new_list$x$state$formatting$strip_separator <- chart_number_date_format_strip_separator
new_list$x$state$formatting$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$formatting$transform <- named_list_value
}
}
}
}
new_list$x$state$formatting$multiply_divide_constant <- chart_number_date_format_multiply_divide_constant
new_list$x$state$formatting$exponentiate_constant <- chart_number_date_format_exponentiate_constant
list_chart_filter_controls_container_alignment <- c("start", "center", "end", NULL)
if (!is.null(chart_filter_controls_container_alignment)) {
if (!chart_filter_controls_container_alignment %in% list_chart_filter_controls_container_alignment) {
stop("`chart_filter_controls_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_filter_controls_container_alignment %in% names(named_list)) {
if (is.logical(chart_filter_controls_container_alignment)) {
chart_filter_controls_container_alignment <- as.character(chart_filter_controls_container_alignment)
}
named_list_value <- unname(named_list[chart_filter_controls_container_alignment])[[1]]
new_list$x$state$controls_container$alignment <- named_list_value
}
}
}
}
new_list$x$state$controls_container$controls_spacing <- chart_filter_controls_container_controls_spacing
list_chart_filter_controls_control_type <- c("dropdown", "buttons", "slider", NULL)
if (!is.null(chart_filter_controls_control_type)) {
if (!chart_filter_controls_control_type %in% list_chart_filter_controls_control_type) {
stop("`chart_filter_controls_control_type` must be one of: c('dropdown', 'buttons', 'slider')")
} else {
if (length(jsonlite::fromJSON('{"dropdown": "dropdown", "buttons": "buttons", "slider": "slider"}')) > 1) {
named_list <- jsonlite::fromJSON('{"dropdown": "dropdown", "buttons": "buttons", "slider": "slider"}')
# 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_filter_controls_control_type %in% names(named_list)) {
if (is.logical(chart_filter_controls_control_type)) {
chart_filter_controls_control_type <- as.character(chart_filter_controls_control_type)
}
named_list_value <- unname(named_list[chart_filter_controls_control_type])[[1]]
new_list$x$state$controls$control_type <- named_list_value
}
}
}
}
new_list$x$state$controls$control_styles <- chart_filter_controls_control_styles
new_list$x$state$controls$control_title <- chart_filter_controls_control_title
list_chart_filter_controls_button_group <- c(TRUE, FALSE, NULL)
if (!is.null(chart_filter_controls_button_group)) {
if (!chart_filter_controls_button_group %in% list_chart_filter_controls_button_group) {
stop("`chart_filter_controls_button_group` 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_filter_controls_button_group %in% names(named_list)) {
if (is.logical(chart_filter_controls_button_group)) {
chart_filter_controls_button_group <- as.character(chart_filter_controls_button_group)
}
named_list_value <- unname(named_list[chart_filter_controls_button_group])[[1]]
new_list$x$state$controls$button_group <- named_list_value
}
}
}
}
list_chart_filter_controls_button_group_width_mode <- c("auto", "full", "fixed", NULL)
if (!is.null(chart_filter_controls_button_group_width_mode)) {
if (!chart_filter_controls_button_group_width_mode %in% list_chart_filter_controls_button_group_width_mode) {
stop("`chart_filter_controls_button_group_width_mode` must be one of: c('auto', 'full', 'fixed')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "full": "full", "fixed": "fixed"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "full": "full", "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 && chart_filter_controls_button_group_width_mode %in% names(named_list)) {
if (is.logical(chart_filter_controls_button_group_width_mode)) {
chart_filter_controls_button_group_width_mode <- as.character(chart_filter_controls_button_group_width_mode)
}
named_list_value <- unname(named_list[chart_filter_controls_button_group_width_mode])[[1]]
new_list$x$state$controls$button_group_width_mode <- named_list_value
}
}
}
}
new_list$x$state$controls$button_group_width_fixed <- chart_filter_controls_button_group_width_fixed
list_chart_filter_controls_dropdown_width_mode <- c("auto", "full", "fixed", NULL)
if (!is.null(chart_filter_controls_dropdown_width_mode)) {
if (!chart_filter_controls_dropdown_width_mode %in% list_chart_filter_controls_dropdown_width_mode) {
stop("`chart_filter_controls_dropdown_width_mode` must be one of: c('auto', 'full', 'fixed')")
} else {
if (length(jsonlite::fromJSON('{"auto": "auto", "full": "full", "fixed": "fixed"}')) > 1) {
named_list <- jsonlite::fromJSON('{"auto": "auto", "full": "full", "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 && chart_filter_controls_dropdown_width_mode %in% names(named_list)) {
if (is.logical(chart_filter_controls_dropdown_width_mode)) {
chart_filter_controls_dropdown_width_mode <- as.character(chart_filter_controls_dropdown_width_mode)
}
named_list_value <- unname(named_list[chart_filter_controls_dropdown_width_mode])[[1]]
new_list$x$state$controls$dropdown_width_mode <- named_list_value
}
}
}
}
new_list$x$state$controls$dropdown_width_fixed <- chart_filter_controls_dropdown_width_fixed
new_list$x$state$controls$slider_width <- chart_filter_controls_slider_width
new_list$x$state$controls$slider_max_label_width <- chart_filter_controls_slider_max_label_width
new_list$x$state$controls$slider_step_time <- chart_filter_controls_slider_step_time
new_list$x$state$controls$slider_loop <- chart_filter_controls_slider_loop
new_list$x$state$controls$slider_restart_pause <- chart_filter_controls_slider_restart_pause
list_chart_filter_controls_sort <- c(TRUE, FALSE, NULL)
if (!is.null(chart_filter_controls_sort)) {
if (!chart_filter_controls_sort %in% list_chart_filter_controls_sort) {
stop("`chart_filter_controls_sort` 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_filter_controls_sort %in% names(named_list)) {
if (is.logical(chart_filter_controls_sort)) {
chart_filter_controls_sort <- as.character(chart_filter_controls_sort)
}
named_list_value <- unname(named_list[chart_filter_controls_sort])[[1]]
new_list$x$state$controls$sort <- named_list_value
}
}
}
}
new_list$x$state$controls_style$font_size <- chart_controls_style_font_size
list_chart_controls_style_font_weight <- c("bold", "normal", NULL)
if (!is.null(chart_controls_style_font_weight)) {
if (!chart_controls_style_font_weight %in% list_chart_controls_style_font_weight) {
stop("`chart_controls_style_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 && chart_controls_style_font_weight %in% names(named_list)) {
if (is.logical(chart_controls_style_font_weight)) {
chart_controls_style_font_weight <- as.character(chart_controls_style_font_weight)
}
named_list_value <- unname(named_list[chart_controls_style_font_weight])[[1]]
new_list$x$state$controls_style$font_weight <- named_list_value
}
}
}
}
new_list$x$state$controls_style$height <- chart_controls_style_height
new_list$x$state$dropdown_style$background <- chart_dropdown_control_style_background
new_list$x$state$dropdown_style$font_color <- chart_dropdown_control_style_font_color
new_list$x$state$dropdown_style$border_styles_advanced <- chart_dropdown_control_style_border_styles_advanced
list_chart_dropdown_control_style_border_style <- c("all", "bottom", NULL)
if (!is.null(chart_dropdown_control_style_border_style)) {
if (!chart_dropdown_control_style_border_style %in% list_chart_dropdown_control_style_border_style) {
stop("`chart_dropdown_control_style_border_style` must be one of: c('all', 'bottom')")
} else {
if (length(jsonlite::fromJSON('{"all": "all", "bottom": "bottom"}')) > 1) {
named_list <- jsonlite::fromJSON('{"all": "all", "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 && chart_dropdown_control_style_border_style %in% names(named_list)) {
if (is.logical(chart_dropdown_control_style_border_style)) {
chart_dropdown_control_style_border_style <- as.character(chart_dropdown_control_style_border_style)
}
named_list_value <- unname(named_list[chart_dropdown_control_style_border_style])[[1]]
new_list$x$state$dropdown_style$border_style <- named_list_value
}
}
}
}
new_list$x$state$dropdown_style$border_width <- chart_dropdown_control_style_border_width
new_list$x$state$dropdown_style$border_color <- chart_dropdown_control_style_border_color
new_list$x$state$dropdown_style$border_transparency <- chart_dropdown_control_style_border_transparency
new_list$x$state$dropdown_style$border_radius <- chart_dropdown_control_style_border_radius
new_list$x$state$button_style$background <- chart_button_control_style_background
new_list$x$state$button_style$background_selected <- chart_button_control_style_background_selected
new_list$x$state$button_style$background_hover <- chart_button_control_style_background_hover
new_list$x$state$button_style$font_color <- chart_button_control_style_font_color
new_list$x$state$button_style$font_color_selected <- chart_button_control_style_font_color_selected
new_list$x$state$button_style$font_color_hover <- chart_button_control_style_font_color_hover
new_list$x$state$button_style$button_styles_advanced <- chart_button_control_style_button_styles_advanced
new_list$x$state$button_style$border_width <- chart_button_control_style_border_width
new_list$x$state$button_style$border_color <- chart_button_control_style_border_color
new_list$x$state$button_style$border_transparency <- chart_button_control_style_border_transparency
new_list$x$state$button_style$border_radius <- chart_button_control_style_border_radius
new_list$x$state$slider_style$track_color <- chart_slider_control_style_track_color
new_list$x$state$slider_style$font_color <- chart_slider_control_style_font_color
new_list$x$state$slider_style$handle_color <- chart_slider_control_style_handle_color
new_list$x$state$slider_style$play_color <- chart_slider_control_style_play_color
new_list$x$state$slider_style$track_height <- chart_slider_control_style_track_height
new_list$x$state$slider_style$handle_height <- chart_slider_control_style_handle_height
new_list$x$state$slider_style$play_button <- chart_slider_control_style_play_button
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
}
}
}
}
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.