df_nunique_character Function

public function df_nunique_character(df, col_index) result(n_unique)

Count number of unique values in character column

Arguments

Type IntentOptional Attributes Name
type(data_frame), intent(in) :: df
integer, intent(in) :: col_index

Return Value integer


Source Code

    function df_nunique_character(df, col_index) result(n_unique)
        type(data_frame), intent(in) :: df
        integer, intent(in) :: col_index
        integer :: n_unique

        character(len=:), dimension(:), allocatable :: unique_vals

        if (col_index < 1 .or. col_index > df % ncols()) error stop "column index out of range"
        if (df % dtype(col_index) /= CHARACTER_NUM) error stop "column is not character type"

        unique_vals = df_unique_character(df, col_index)
        n_unique = size(unique_vals)
    end function df_nunique_character